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e Super Keyl 
That Never Caught On 



TRS-80* Model I Computer Owners . . . 

Store Up to 350 Kbytes on a 5 Disk 



FORMATTED DISK STORAGE CAPACITY 
KBYTES 




The DOUBLER™. It packs almost twice the data on a disk track as your single-density 
system. Depending on the type of drive, you can store up to four times more data on one 
side of a minidiskette than you can store using a standard Model I mini-disk drive. 



• The DOUBLER™ reads, writes 
and formats either single- or dou- 
ble-density minidiskettes. 

• Proprietary design allows you to 
continue to run TRSDOS*. NEW- 
DOSt Percom 05-80™ or other 
single-density software without 
making any changes to software 
or hardware. Switch to double- 
density operation at any conve- 
nient time. 

• Includes DBLDOS™, a 
TRSDOS* compatible double- 
density disk operating system. 



Mini-Disk Systems 



\B 



More s;orage capacity, 
higher reliability — from 
Percom, the industry 
leader One-, two- and 

•-drive con+igu r a- 

S m either 40- or 11- 

Fjl.y burned-m From only 



• CONVERT utility, on 
DBLDOS™ minidiskette, converts 
files and programs from single- to 
double-density or double- to sin- 
gle-density. 

• The DOUBLER™ circuit card 
includes high performance 
data separator, write precom 
pensation circuits for reliable 
disk read operations — even with 
80-track drives. 

• Plug-in Installation — The 

DOUBLER simply plugs into the 
disk controller socket of your Ex- 
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pansion Interface, requiring no 
strapping or trace cutting. Expan- 
sion Interface disk controller may 
be completely restored to original 
configuration by simply removing 
the DOUBLER™ and re-installing 
the original disk controller chip. 

• Works with standard 35-. 40-, 
77- and 80-track mini-disk drives 
rated for double-density operation. 

• Introductory price, including 

DBLDOS™ and format conversion 

utility on minidiskette, only 

$219.95. Use the coupon for even 
greater savings. 

Call toll-free. 1-800-527-1592. for the 

address of your nearest authorized Per- 
com dealer, or to order directly from Per- 
com 




PERCOM DATA COMPANY, INC. 

211 N KIRBY GARLAND TEXAS 75042 

(214)272-3421 
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TRS-80* Model I Computer Owners . . . 




Double-density storage 
It's really here! 



Here at Percom. And your authorized Percom dealers. 

And double-density storage is here in a big way. Because now 
you can choose from three different levels of mini-disk systems — 
ail double-densify rated. 

And get the storage that precisely meets your application 
needs. 

Not to mention the service and quality that's made Percom the 

industry leader. 



Although rated for double-density operation, all 
levels of Percom drives work equally well in single- 
density applications. 

You can operate these drives in ordinary single- 
density format using TRSDOS*, Percom OS-80™ 
or any other single-density operating system. 

Or, you can add a Percom DOUBLER™ to your 
Tandy Expansion Interface and store data and 
programs in either single- or double-density 
format. 



Under double-density operation, you can store 
as much as 350 Kbytes of formatted data — de- 
pending on the drive model — on one side of a 
five-inch minidiskette. 

That's/our rimes the capacity of standard Model 
I mini-disks, almost 100 Kbytes more than the 
capacity of the eight-inch IBM 3740 format! 

Available in 1-. 2- and 3-drive configurations in 
all three model lines. Percom burned-in, fully- 
tested drives start at only $399. 






TFD-40™ Drives 

TFD-40 Drives store 180 Kbytes (double -density) or 
102 Kbytes (single density) of formatted data on one 
side of a 40-track minidiskette. Although economical- 
ly priced. TFD-40 drives receive the same full Percom 
quality control measures as TFD-100 and TFD-200 
drives. 



TFD-100™ Drives 

TFD-100 drives are "flippy" drives. You store twice 
the data per minidiskette by using both sides of the 
disk. TFD-100 drives store 180 Kbytes (double- 
density) or 102 Kbytes (single-density) per side. 
Under double-density operation, you can store a 70- 
page document on one minidiskette. 



TFD-200™ Drives 

TFD-200 drives store 350 Kbytes (double-density) or 
197 Kbytes (single-density) on one side of a minidis- 
kette By comparison. 3740-formatted eight-inch 
1 disks store only 256 Kbytes. Enormous on-line stor- 
I age capacity in a 5" drive, plus proven Percom 
reliability. That's what you get in a TFD-200. 




the DOUBLER™ — This proprietary adapter for the TRS-80* 
Model I computer packs approximately twice 
■MMMMtaMiriMI the data on a disk track. 

Depending on the type of drive, yc 
store up to four rimes as much data — 
Kbytes — on one side of a minidiskette as you 
we using a Tandy standard Model I com- 
puter drive. 

Easv to install, the DOUBLER m 
into the disk controller chip socket of your 
Expansion Interface No rewiring. No trace cutting 

And because the DOUBLER reads, writes and formats 
either single or double density disks, you can con- 
tinue to run all of your single density software, then switch to 
double-density operation at any convenient time 

Included with the PC card adapter is a TRSDOS '-compatible 
double density disk operating system, called DBLDOS' M , plus a 
CONVERT utility that converts files and programs from single- to 
double density or double- to single density format 

Each DOUBLER also includes an on-card high-performance 
data separator circuit which ensures reliable disk read operation 

The DOUBLER works with standard 35-, 40 77- and SO 
track drives rated for double density operation 

Note Opening the Expansion Interface to install the 
DOUBLER may void Tandy's limited 90-day warranty 



Drive enclosures, power supplies Percom drive enclosures 
are finished in compatible silver enamel Three sizes accommo 
date either 1 . 2 or 3 drives Drive power supplies are heavy duty, 
cool running open frame design Three wire ac power cords are 
safer, have lower noise pickup 

Free software patch This software patch, called PATCH PAK ,M 
upgrades TRSDOS* for operation with improved 40- and 77- 
track drives. For single density operation only 



Quality Percom products are available at authorized dealers. Call toll free 
1-800-527-1592 for the address of your nearest dealer or to order directly from 
Percom. In Canada call 519-824-7041. 
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Manuscripts are welcome at 80 Microcomput- 
ing, we will consider publication of any TRS-80 
oriented material. Guidelines for budding auth- 
ors are available, please send a self-addressed 
envelope and ask for "How to Write for 80 Micro- 
computing." Entire contents copyright 1980 by 
1001001 Inc. No part of this publication may be 
reprinted, or reproduced by any means, without 
prior written permission from the publisher. All 
programs are published for personal use only. 
All rights reserved. 
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The Dvorak Keyboard Page 66 

by Waldo T. Boyd and Jon Etherton 

The latest in super efficient keyboards is 30 
years old. Dvorak's scheme never caught on 
with manufacturers, but an innovative piece 
of software lets you program your own key- 
board. 






80 Applications Page 42 

by Dennis Bathory Kitsz 

When Kitsz, the mad assembler, gets in a 
Christmas spirit, expect the unusual. Here 
you have his complete recipe, including 
parts, for creating your own holiday cheer- 
in harmony. 





Seasons Greetings Page 112 

by Valerie Vann 

Want to do something nifty for the holi- 
days? Turn your 80 into a graphic decora- 
tion. Let your screen scroll snowflake and 
Christmas designs. 




CAL81 Page 128 

by John F. Strazzarino 

Create gifts for your friends with your 80. 
This program tells you how to make a gift 
that will keep you and your computer in 
mind all year round. 



Holiday Cheer by Norman s. Kerr Page 1 32 

The last of our holiday packages to you lets your 80 send its own 
greeting cards. The program also maintains your card list through- 
out the year. 



Assemble it Yourself by Richard Koch Page 21 2 

Plumb the depths of your editor/assembler and let it modify itself. 
Prepare yourself for a bear! This program is a monster, so let us 
know if it's a wise use of space. 
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Get the pleasure of smooth moves. 
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Turn on your 80 and celebrate. 

125 CAL81 John F. Strazzahno 

Keep your dates straight. 
255 Com pu-Sk etch Merl J. Hendricks 

Video etching with your 80. 

102 STATS Robert P. Johnson 

The latest in statistical programs are compared. 
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A labeling program that indexes its own routines. 
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Revelations from within. 
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Tagging, dimensioning and further magic. 
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Study the dark secrets of arrays. 
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META TECHNOLOGIES 



MTCAIDS- 



MODEL I . . $69.95 MODEL II . . $99.95 

Introducing the latest addition to MTC's family of data management systems. AIDS III NO 
PROGRAMMING easy to use COMPLETE PACKAGE including demonstration application, 
documentation and MAPS-III (see below.) 

• Up to 20 USER-DEFINED FIELDS of either numeric or character type 

• CHARACTERtype fields may be any length (total, up to 2b4 characters) 

• NUMERIC type fields feature automatic formatting, rounding, decimal alignment and 
validation 

• Full feature EDITING when adding or changing records: 

ENTER FIELD icon't type m more characters than specified) 
BACKSPACE (delete last character typed) RIGHT JUSTIFY FIELD contents 

DELETE FIELD contents SKIP FIELD (to next or previous field) 

RESTORE FIELD contents SKIP RECORD (to next or previous record) 

• SORTING of records is MACHINE CODE assisted. 

200 RECORDS (40 characters) in about 5 SECONDS 

ANY COMBINATION of fields (including numerics* with each field in ascending or 
descending order 

• SELECTION of records for Loading Updating Deleting Printing and Saving is 
MACHINE CODE assisted 

- Specify up to 4 CRITERIA, each using one of 6 RELATIONAI COMPARISONS 
LOAD or SAVE selected records using MULTIPLE FILES 
Example Select records representing those people who live in the state of Col 

orado, but not in the city of Denver, whose last names begin with "F" 

and whose incomes exceed S 9000 00 
Example: Select records representing those sales made to XYZ COMPANY that 

exceed S2b 00 between the dates 03 15 and 04 10 

MAPS III (MTC AIDS PRINT SUBSYSTEM), included at no charge, has the following features 

• Full AIDS III SELECTION capabilities. 

• Prints user specified fields DOWN THE PAGE 

• Prints user specified fields in titled, columnar REPORT FORMAT, automatically 
generating column headings, paging and (optionally) indentation 

• Can create a single report from MULTIPLE FILES. 

• Prints user defined formats for CUSTOM LABELS, custom forms, etc 



BEYOHO 

BASIC 

FOR MODEL II 

MTC is proud to announce MTC EXTENDED 
BASIC for the Model II, by R Ryen Features in 
elude "fixes" to existing BASIC, multi line func- 
tions, extending an existing sequential file, PEEK. 
POKE, greatly enhanced screen control and ex 
panded editing capabilities. The contents of 
variables are NOT CHANGED when editing, delet- 
ing, inserting or merging lines, allowing continued 
program execution' All this and much more. Com- 
patible with SNAPP BASIC, below 
MTC EXTENDED BASIC $99 95 



MTC brings you the best of SNAPP. Inc. s Model II 
BASIC interpreter at a very special introductory 
price Written entirely in machine language, the 
enhancements are fully integrated into BASIC and 
require no user memory or disk space. Utilizes AP- 
PARAT's NEWDOS modifications to BASIC on the 
Model II Features include 16 single keystroke 
commands for editing, listing, and other opera- 
tions An enhanced program line renumbering fa 
cility supports relocation and duplication of blocks 
of code Includes a powerful cross-reference capa- 
bility for producing a list identifying program line 
locations of user specified variables and line 
numbers Output may be displayed or printed 
Compatible with MTC EXTENDED BASIC, above 
SNAPP BASIC for Model II $ 99 95 



MTC AIDS CALCULATION SUBSYSTEM 

MODEL I . . .$24.95 MODEL II . . .$39.95 



MTC's most popular AIDS subsystem Use 
for report generation involving basic 
manipulation of numeric data Features are: 

• User specified page title 

• Columnar Headings 

• Optional Indentation 

• Use for accounting, inventory, financial 
and other numeric based information 
systems. 



Columnar subtotals generated when 
there is a change in a user-specified 
column. 

User-specified Columnar Totals 
Columnar values computed using con- 
stants and or column values 
Balance forward calculations (Ex: Gross 
sales equals previous gross sales + sale 
amount + sales tax). 



Compare AIDS-HI 'CALCS-III with any other data management package under $100! 
Others make claims. CALCS-III " delivers! 
CALCS-III '" REQUIRES THE PURCHASE OF AIDSIII OR AIDS-II " 



¥ 



Let your TRS-80™ Teach You 

ASSEMBLY 
LANGUAGE 

REMSOFTs unique package "INTRODUCTION 
TO TRS80- ASSEMBLY PROGRAMMING" in 
eludes ten 45-minute lessons on audio cassettes, a 
display program for each lesson providing illustra- 
tion & reinforcement, and a text book on TRS-80' 
Assembly Language Programming Includes use 
ful routines to access keyboard, video, printer and 
ROM. Requires 16K Level II. Model I. 

REMASSEM-1 $69.95 

FOR DISK SYSTEMS $74.95 



Let Your TRS-80 " Teach You 

ASSEMBLY LANGUAGE 
DISK I/O TECHNIQUES 

REMSOFT does it again! REMDISK 1 is a concise, 
capsulated supplement to REMASSEM 1 Package 
consists of two 45-minute lessons on audio casset- 
tes, and display programs providing illustration 
and reinforcement. Provides specific track and 
sector I/O techniques, and sequential and random 
file access methods and routines. 

REMDISK-1 $29.95 



II 



MTC AIDS MERGE-IH™ 

This subsystem will combine up to 14 AIDS 
created data files into a single, large file An op 
tional purge capability removes duplicate entries 
while performing the merge operation (can even 
be used to eliminate duplicates in a single file). 
Machine-code assisted for highspeed perlor 
mance. MERGE-IIITM properly handles files sorted 
by any combination of fields, including numerics, 
with each field in ascending or descending order. 

MTC AIDS MERGE III™ $19.95 

For Model II $29.95 



MORE 

PRODUCTS 



I 



Let Your TRS-80 " Test Itself With 

THE FLOPPY DOCTOR & 
MEMORY DIAGNOSTIC 

by THE MICRO CLINIC 

A complete checkup tor your Model I THE FLOP- 
PY DOCTOR completely checks every sector of 
35- or 40track disk drives. Tests motor speed, 
head positioning, controller functions, status bits 
and provides complete error logging. THE 
MEMORY DIAGNOSTIC checks for proper 
write/read, refresh, executability and exclusivity of 
all address locations. Includes both diagnostics 
and complete instruction manual. 

SYSTEM DIAGNOSTICS $19.95 
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MAKES EVERY BYTE COUNT 

IN YOUR TRS-80™ MODEL I OR MODEL II DISK SYSTEM 



NATIONAL HOSPITAL AND 
WALTH CAM SERVICES, INC. 



September 17. 1980 



Dear Keta Technologies, 

Because of my work load, this is the first opportunity tha I have had to 
write you concerning the programs that I have purchased from your company. 
The programs; CALCS, SHRINK and SITTER have paid for themselves 1000 times 
over. I was able to take a custom written billing program which we had 
paid $2600 for and was able to condense it with SHRINK to about two-thirds 
of its original size! This was an incredible boon to my company as now 
I am able to fit several more utility programs on the same disk as the 
billing program. Just today I was able to adapt the ' S0RTR 1 program in 
the series of sorts of SIFTER to work with our billing program. I believe 
that you understate the speed of this sort. I n my experience, it is sorting 
over 500 records of 255 bytes in length in less than two seconds. As compared 
to the incredibly slow basic sort that I had in before, the 'S0RTR' routine 
is just short of a miracle. Imaqine having to wait over k$ ninutes everytime 
a file of 500 records was accessed for sorting with the basic sort. If I had 
paid $500 for just this sort alone, it would have been worth it, as that is 
the amount of money it will save my compary in the next six months. Now I 
have another eleven sorts in addition to the 'S0RTR' program to adapt. This 
program, SIFTER, is worth many tines what you are currently charqinq. 

CALCS has outdone a series of programs (Al DS III AND MAPS) thatl didn't believe 
could get better. With the arithmetic manipulative gualities of CALCS I will 
be able to custom-write a total accounts payable/accounts receivable system. 
Not only that, but I am now able, using CALCS, to do sales, cost, and many 
other reports which require predicting arithmetically some future performance. 
Your program has completely revolutionized the paper-flow in my office. 
With the addition of NEWD0S+ I have an unbeatable software package. I can't 
thank you enough for the speed and error- free performance of your proqrams. 

WHAT NEXT META-TECH ? How about revolutionizing the word-process I ng area ? 
You have an eager customer waiting to buy. I have yet to use your REH-ASSEM 
system because of my work load, but from the little I have done with it I a^- 
very satisfied. If you come out with anyth ing new, please contact me. 




L9c^U_ 



E.D.P. National Hospital and Health Care Services Inc. 



2 Tilcott Av«.. Suite 36. P»rV Rirjgt. I L 60068. 1312)823-1617 
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£ft REMARKS 



''We're now renovating 

new editorial offices 

to accommodate the large staff 

that handles the publication." 



The First Year of 80 

With your help, this first year of 80 
Microcomputing has turned out to 
be most successful. As far as I know, this 
is the first time any publisher has come 
out with a major magazine devoted to one 
single product. 

It has been an interesting year for us. 
We're now renovating new editorial of- 
fices to accommodate the large staff that 
handles the publication. It takes a lot of 
work to put out over 200 pages of maga- 
zine a month. 

Has any other technical magazine 
grown in less than one year to 125 pages 
of paid advertising? Certainly not in this 
field. 

The aim of 80 has been to support the 
TRS-80 computer. The editors are under 
threat of serious personal damage to 
make sure that as much of the material in 
the magazine as possible is edited from 
computerese into English so that new- 
comers to the field will be able to come up 
to speed easily. Authors are warned that 
English is preferred to computer buzz- 
words. We'll leave the egotistical comput- 
er scientist baloney to others. 

If you have developed any programs for 
the TRS-80. think of submitting them for 
publication. If you've come up with any ac- 
cessories or ways to interface various pe- 
ripherals to the TRS-80, the rest of us 
would like to know about it. Write it up. Ar- 
ticles are simple to submit; type them dou- 
ble spaced with generous margins and 
use upper and lowercase letters. The bet- 
ter the illustrations, the better the article. 
All articles are paid for upon acceptance, 
unlike some of the other publications. 

My Short Editorials 

Looking back over my editorials in 80, 1 
see that most of them have been relatively 
short. Mercifully short, perhaps. Older 
readers may remember John Campbell, 
who edited Analog for many years. Well, I 
was brought up on that magazine and I 
got used to the long, thought-provoking 
editorials John wrote, and so when I 
started my first monthly magazine, back 
in 1951 , it never occurred to me to do any- 
thing but write long editorials. 



John got to be a very good friend in the 
late 50s. There are few such brilliant men, 
so I was sorry to see him leave this world. 
But his influence lingers on in many ways, 
such as my editorials. 

My writing reflects my many interests 
. . . heck, if they interest me, why not you7 
I write about trips, visits to manufactur- 
ers, to stores around the world, to shows, 
about skin diving, skiing, ham radio, Men- 
sa, sports cars, CB radio, radar detectors, 
music, and anything else that happens to 
seem of interest at the moment. 

I do quite a bit of writing in our Micro- 
computing Industry full of avuncular ad- 
vice to the industry. Having called the turn 
of the coin several times with some ac- 
curacy, I occasionally get some respect, 
but not often. Move over Dangerfield. 

I enjoy getting out and explaining to 
groups how they can make a success of 
their lives. It's so damned easy to be suc- 
cessful today, particularly in a field such 
as microcomputing where the whole in- 
dustry is growing at an incredible rate. 
They and the country . . . and perhaps the 
world . . . would all benefit. Remember you 
don't bring benefits to a lot of others with- 
out benefitting yourself . . . and vice ver- 
sa. This was the essential message of 
Adam Smith in the 1770s and it still holds 
true. 

I also get annoyed when I run across 
people who are so damned docile that 
they will put up with bum laws just 
because they are laws. Have they forgot- 
ten that the Supreme Court has been bat- 
ting down laws wholesale for years? 
Maybe one person can't fight city hall, but 
a group of us can. Sometimes I get into 
trouble over this, and sometimes I win. I 
took on the FCC a few years ago and 
helped to bring about massive changes in 
the ham regulations. The ARRL (American 
Radio Relay League) said it couldn't be 
done. . .don't try. I said to hell with them 
and pulled It off. 

Well, I just wanted you to know a little 
about me, now that we've been together 
for 12 months. Perhaps you see why I light 
into Radio Shack every now and then. 
Sometimes I win a little. Sometimes not. 
They are almost as big as the government, 
and, in some ways, move about as fast. 



Bad News 

for Software Houses 

As Instant Software's distribution has 
grown, more and more small software 
producers have been asking about using 
our system to distribute their programs. 
Indeed, we've tried this with a couple of 
the more aggressive firms. 

In the record industry, distribution has 
been consolidated by a few large firms. 
Smaller firms rely on them to distribute 
their records. The same thing has hap- 
pened to magazine newsstand distribu- 
tion; four or five large firms run the whole 
show. Perhaps we can learn from all that. 

Instant Software has representatives 
covering the U.S. and 22 countries. Fur- 
ther, the size and number of programs In- 
stant Software has in inventory enables 
us to talk directly to the major manufac- 
turers of hardware and make a far better 
deal than could a small firm with a handful 
of programs. You can bet that we are out 
there selling the idea. 

We've given some thought to helping 
other smaller firms with their distribution, 
but I wonder if this is really the best option 
for a small software house. Let me go into 
some details on that. 

Firstly, if we were to do just the distribu- 
tion, this would leave the duplication, doc- 
umentation, packaging and advertising 
up to the software house. Yet in every step 
of that progression, a larger firm is able to 
keep its costs lower. 

Buying blank cassettes or disks, for in- 
stance: Obviously sizable savings result 
from buying 100,000 or one million quan- 
tities. You can save even more if you do 
your own tape loading. But such ma- 
chines cost $20,000 or so, putting it out of 
the reach of any but the largest houses. 

Then comes the packaging. The design 
of a good package is expensive and has to 
be amortized over hundreds of thousands 
of packages. There is also the automatic 
machinery needed for putting the tape 
and documentation in the package and 
sealing it. 

Small firms have to make do with poly 
bags. . .ugh. High volume packaging is 
much less expensive, again making It dif- 
ficult for the small firm to compete. 
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META TECHNOLOGIES 

FOR YOUR DISK SYSTEM 



FILE BOX $24 

DISKETTE STORAGE SYSTEM for 8' 



95 

for 5 l A" disks 
disks. . .$29.95 




MTC brings you the ULTIMATE diskette 
storage system, at an affordable price. Stor 
ing 50 to 60 diskettes, this durable, smoke- 
colored acrylic unit provides easy access 
through the use of index dividers and ad- 
justable tabs. Unique lid design provides 
dust-tree protection and doubles as a carry- 
ing handle. 



PLASTIC LIBRARY CASES 

(not shown) 
An economical form of storage for 10 to 15 
diskettes, and is suitable for your bookshelf! 
Case opens into a vertical holder for easy ac 
cess. 

5' 4 inch diskette case $3.25 

8-inch diskette case $3.50 



Single Sided, Single Density. Soft-Sectored 
5>/4-inch. (for TRS-80™) Mini-floppy 

DISKETTES 

$19 



TRS^O™ PRODUCTS 



>w mwof 7 It ISM IM- f HM It 

A.-01 HI K MY- I I KU - ,» .< 




NEWDOS/80 by Apparat $149.95 

NEWDOS+ with ALL UTILITIES 

35-track $69.95 

40-track $79.95 

TRS-80TM DISK AND OTHER MYSTERIES 

. $19.95 

MICROSOFT ™ BASIC DECODED & OTHER 
MYSTERIES for the TRS-80TM $29.95 



META TECHNOLOGIES 

REDEFINES 

"Customer Satisfaction" 

IN 1981 



met-a-mor-ph<>-sis (met' 3 mor' fa 
818), «.. !>■'. -8e8(-8ez'). I. a transforma- 
tion. 2. a change or successive changes 
;n character or appearance. 3. MTC's 
transition in 1981 to a bigger and 
better way of doing business, 
featuring new and improved pro- 
ducts and services. 



Products damaged in 

transit will be 

exchanged. 

Prices, Specifications. 

and Offerings subject 

to change without 

notice. 



V 



80 

box of 10 



Meta Technologies strikes again ... at 
the competition! These are factory 
fresh, absolutely first quality (no 
seconds!) mini-floppies. They are 
complete with envelopes, labels and 
write-protect tabs in a shrink- 
wrapped box. 



INTRODUCING 



■TM 



PLAIN JANE 1 

DISKETTES 

The Beautiful Floppy 

with the Magnetic Personality™ 



In 1980 alone. MTC has sold nearly a third 
of a million dollars worth of brand-name 
diskettes. If anyone knows quality, we do. 
And these are quality diskettes. The 
catch? They are in a plain white box. 
You're not paying for fancy printing, fancy 
labels or fancy names on the packaging. 
We don't even put our own label on the 
package (labels cost money). At this in- 
troductory price (our regular price will be 
$21.95 per box of 10) we cannot offer 
quantity or dealer discounts. 

PLAIN JANE™ Diskettes $19.80* 

VERBATIM brand Diskettes (box of 10) 

5 l /4-inch (for TRS-80TM) 

MD525-01 $23.95 

10 boxes of 10. . . (each box). . . $22.95 

8-inch FLOPPIES 

Single-Density, FD34-10O0 . . . $29.95 
Double-Density, FD34-8000 . . $39.95 



MORE 

PRODUCTS 



MOST ORDERS 

SHIPPED 

WITHIN ONE 

BUSINESS DAY 



* PRICE GOOD THRU 
DECEMBER 31, 1980. 
Sorry, no dealer or quanti- 
ty discounts. Allow lor 
possible shipping delays. 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• COD 



Add $2 50 for 
standard UPS 
shipping & handling 
$2 00 EXTRA 
for C O D 
Ohio residents 
add 5' :"o sales tax 




TO PLACE ORDER 
1-800-321-3552 



CALL 

TOLL 

FREE 



FOR PRODUCT INFO 
1-800-321-3640 



IN OHIO caH (216)289 7500 (COLLECT) 



^20 



Meta TectolQgies CnrawTDN 



26111 Brush Avenue Euclid Ohio 44132 



801010 
TRS-80 is a TM ot Tandy Corp 
PLAIN JANE i* a TM ot MTC 
1980 by Metatechnologies Corporation. Inc. 



sReaoer Service— see page 274 
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Documentation is a back breaker for 
small firms. Many solve the problem by 
having terrible instructions. A first rate 
product has to look good and have top- 
notch instructions. Even shipping is a 
problem for the smaller firm. To control its 
shipping, Instant Software has to ware- 
house all programs being distributed. We 
don't need the aggravation of having 
orders for something which is out of stock 
and over which we have little control. This 
means that smaller software houses will 
have to keep program packages in our 
warehouse, but at their expense. 

Then comes the matter of advertising. 
This means the design and concept of the 
ad as well as its production. Once pro- 
duced, the ad has to be run in the appro- 
priate magazines. The more ad space you 
buy, the better the deal you get. Smaller 
firms pay a heavy premium for their small 
ads. And the worst part of this is that the 
larger the ads, the more response you get 
to them. There is just no justice . . . and no 
free lunch. 

In every step a larger firm saves money. 
When you look at the situation closely, 
there isn't any step of the production and 
marketing of software that a larger firm 
can't do more economically than a smal- 
ler firm. If a smaller software house put 
more time into further programming, and 
left, not only distributing, but documenta- 
tion, packaging and marketing to a larger 
firm, the net result should be far more real 
income. Instant Software, for example 
pays a royalty of 20 percent of its whole- 
sale price to a programmer. 

The day is not far off when some major 
firm is going to want several hundred In- 
stant Software programs converted for 
their computer. One such bulk order can 
bring in a $15,000 royalty check just for the 
initial order— even for a simple game pro- 
gram! A more sophisticated business pro- 
gram may bring in an initial royalty of 
$40,000 or more. 

You have me out there pushing hard for 
this type of sale for you. 

Programmers who are already market- 
ing their programs themselves have the 
option of submitting them to Instant Soft- 
ware, while continuing to sell the pro- 
grams themselves. There's never been 
any problem with this. Instant Software 
asks only that there be no arrangements 
with any other third party software mar- 
keting firms. It takes several thousand 
dollars of investment before a new pro- 
gram package is ready to be marketed, so 
Instant Software wants to be sure that 
this is not going to be wasted by having 
the program come out from some third 
firm with a lower price. I hope that makes 
sense. ■ 



INSIDE SO 

by Ed Juge, director of 

computer merchandising, Tandy Radio Shack 



couple of days ago, I received a 
r\ phone call from a Model I owner. He 
was in the process of developing a rather 
unusual application to be used on a large 
number of TRS-80s. The Model I didn't 
have the disk storage he needed, yet he 
couldn't justify the cost of a Model II. 
Model III appeared to be a perfect solu- 
tion. 

Question: Would his already-written 
BASIC software work? Since. . .uh. . . 
mmm. . .his programmer had disassem- 
bled TRSDOS and was using some "un- 
documented" DOS routine 

My answer? Be prepared for a re-write! 
Radio Shack did it to another one. . . 
right? Wrong! The programmer did it to 
himself. Had he used only documented 
addresses, his program would have con- 
verted and run well on Model III. Ad- 
dresses we don't publish, however, will 
change from one release of TRSDOS to 
the next (or in this case between Model I 
and III versions.) This is why we don't pub- 
lish them! 

The point of the story is— the program- 
mer that has the savvy to pull such tricks 
(and there are lots of you), must have the 
foresight to anticipate the results. If the 
program is for your own use, no problem. 

If you intend to sell the program to- 
someoneelse. . .it could be a problem. Be 
sure it's understood what can happen if 
an attempt is made to use the program 
with a different release of either TRSDOS 
or our ROM. 

Model III vs. Model I 

Since I've indicated Model III TRSDOS 
is akin to Model I TRSDOS, let me explain. 
The ability to use Model I software on 
Model III does not mean that Model III is 
just a repackaged Model I! It is a new de- 
sign with some intentional similarities. 
We tried to respond to many of your sug- 
gestions. . .those cards & letters do 
work! 

We kept the 16x64 screen format for 
compatibility, with the same high-resolu- 
tion monitor as built into Model II. We in- 
cluded the Model I cassette format so that 
the large base of Model I software can still 
be used. Yet at the same time we've in- 
cluded a new, faster, more reliable 
1,500-baud analog cassette I/O system. 
We've given you a means of converting 



Model I disk software to Model III format, 
but Model III uses fast 40-track double- 
density drives. 

Our popular 12K Level li has grown into 
a 14K Model III BASIC. Model Ill's BREAK 
key returns control to you from any opera- 
tion, even LPRINT with no printer, or a bad 
CLOAD?, and you won't lose the resident 
program. Every key has auto-repeat, and 
there's a keyboard-controlled screen print 
feature. Model III also has a parallel print- 
er port (so even Level I BASIC now has 
print commands). Model III BASIC in- 
cludes the dual-speed cassette capability. 
a real-time clock, upper and lowercase 
drivers, a special graphics character set, 
and RS-232 I/O routines. You can define 
your own cursor character, blinking or 
non-blinking. 

In your applications programs, you can 
protect up to seven lines at the top of the 
screen from scrolling during input to the 
screen. There's even a ROUTE command 
to direct specified outputs between key- 
board, display, printer, and RS-232 (send 
or receive). 

By the way, there are 24 pages of ROM 
addresses in the manual. 

Model III TRSDOS 

The Model III TRSDOS is more like the 
Model II than Model I. The directory and 
free space map are pure Model II, as are 
many of the features and commands. 
There are ERROR and HELP commands 
for quick reference, a fast string sort, and 
a variable cross reference utility. You can 
even write and protect a diskette via soft- 
ware command. M Ill's DO file capability 
allows a string of automatic keyboard en- 
tries which allows you to powerup in your 
application program after entering the 
date. A CONVERT utility allows Model I 
disk programs to be moved to a Model III 
diskette, without disturbing the Model I 
diskette. 

A variety of commands provides for a 
number of functions. For example, 
CREATE allows pre-allocation of disk file 
space, DUAL duplicates output to video 
and printer, MASTER tells TRSDOS to al- 
ways begin a disk search on a specified 
drive other than Drive 0. 

There are also a series of CMD (x) com- 
mands, with different arguments serving a 
number of purposes. CMD(C), for exam- 
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META TECHNOLOGIES 

FOR YOUR TRS-80" DISK SYSTEM 



PROGRAMMING 
TOOLS 



TDAM $19.95 

For Model II $29.95 

Includes MTC QUE Card! 

Having trouble with RANDOM FILES? With MTCs 
Table-Driven Access Method (TDAM) you'll never 
fret over FIELDing again. No knowledge ol 
random access liles is required. Insert the TDAM 
"interpreter" into any BASIC program and type in 
a few DATA statements describing the information 
in your files. TDAM does the rest! Reads and 
writes fields and records of any type (even com- 
presses a DATE field into 3 bytes!). Features 
automatic file buffer allocation/deallocation, 
memory buffering, sub-record blocking/de- 
blocking, and handles up to 255 fields per record. 
Super fast and super simple! Complete with 
TDAM interpreter, instructions and demo pro- 
gram. Requires programming experience. 



SIFTER $19.95 

For Model II $29.95 

Twelve in-memory high-speed sorts for use in any 
BASIC program: stable, non-stable, with/without 
tags, for numeric or string data. Random File 
Sort included. Some sorts written in machine 
code. Includes sort subroutines, demo programs 
and instructions. Relocate as needed with 
REBUILD. Requires programming experience. 



SHRINK $19.95 

For Model II $29.95 

Makes Every Byte Count! Make programs 
smaller and faster! Combines lines & removes un- 
necessary code including remarks, without alter- 
ing program operation Typically reduces pro- 
gram size 25% to 40%. 



SUPERSEDE $19.95 

For Model II $29.95 

A "must have" for the professional programmer 
or the serious amateur. Probably one of the 
greatest time-savers available. Write programs In 
shorthand - change variable names - generate 
program documentation - use with REBUILD and 
MINGLE to build new programs from old ones. 



MINGLE-II $19.95 

For Model II $29.95 

Merge up to 14 files (Program or Data) into a 
single file. Data files may be merged in ascending 
or descending sequence with the ordering based 
on a user-specified comparison field. A very han- 
dy utility for consolidating data files. 



"OTHER MYSTERIES" 
VOLUME II 

'oreword bv 

H.C. PENNINGTON 

*l»"f I fit".,! 

W( tn»stu I n isti in » tun it 
A-i'iiiiK VIY3TI U'ii - 




Call now and place your order for this new book, 
MICROSOFT™ BASIC DECODED & OTHER 
MYSTERIES for the TRS-80TM ', from IJG. Inc. 
A primer for cassette and disk BASIC on the 
TRS80TM. the information provided applies to 
similar MICROSOFTTM BASIC interpreters 
Features include definition of terms, an over- 
view of BASIC and DOS, explanation of exits, er- 
ror codes, verb actions, "cold" and "warm" 
restart procedures and examination of system 
utilities, arithmetic support and I'O driver 
routines, and the communications region in 
RAM. Individual routines are explained in detail, 
with an index provided for easy access. Appen- 
dixes include tables for BASIC and DOS vectors, 
stacks and interrupt locations. PLUS thousands 
of comment lines for the complete 
MICROSOFTTM BASIC. 

MICROSOFTTM BASIC DECODED . . $29.95 



The perfect supplement for your 
NEWDOS, from IJG, Inc. 

"TRS-80™ DISK AND 
OTHER MYSTERIES" 

by Harvard C. Pennington 

132 pages written in PLAIN ENGLISH packed 
with HOW TO information with details, examples 
and in-depth explanations. Recover lost files and 
directories, remove file protection, make BASIC 
programs unlistable. How to use SUPERZAP, 
recover from DOS errors and MORE! 

TRS-80™ DISK $19.95 



NEWDOS/80 

by Apparat 

Apparat's long-awaited successor to NEWDOS t 
is here! This is not an enhanced version of 
NEWDOS, but a completely new product. 
Simplified DOS commands can be instantly ex- 
ecuted from BASIC, even within a program, 
without disturbing the resident code. System op- 
tions, such as password protection, number and 
type of disk drives, BREAK key enable disable 
and lowercase modification recognition, can be 
quickly and easily changed. Five new random- 
access file types allow record lengths of up to 
4096 bytes, and no FIELDing! A powerful CHAIN 
facility allows keyboard INPUT s to be read from a 
disk file. An improved RENUMBER facility per- 
mits groups of statements to be relocated within 
program code. Diskettes may even be 
designated as RUN-ONLY! Features all 
NEWDOS* utilities (SUPERZAP 3.0, etc.) and 
much more! One MTC technical staff member 
said having NEWDOS/80 is "better than sex" 
(you'll have to judge for yourself!). Includes 
180-page instruction manual and MTC QUE 
card. 
NEWDOS/80 $ 149.95 

MTC QUE Card only $7.50 

CALL REGARDING OUR NEWDOSt UPGRADE 

PRICING. 



Complete for Model I with all utilities 
Plus exclusive MTC QUE card! 

NEWDOS + 



$69 



95 



by Apparat 



j includes REF, RENUM, SUPERZAP, EDITOR/ 1 
ASSEM , DISASSEM.. DIRCHECK. and more! This 

I is the original NEWDOS with all of Apparat's utility 
urograms. Includes exclusive MTC QUE (Quick User 
Education) card. 

I MTC QUE Card only $ 1 .50 1 



MORE 

PRODUCTS 



Products damaged in 

transit will be 

exchanged. 

Prices, Specifications. 

and Offerings subject 

to change without 

notice. 



MOST ORDERS 

SHIPPED 

WITHIN ONE 

BUSINESS DAY 



DEALER 

INQUIRIES 

INVITED 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• COD. 



• Add $2.50 for 
standard UPS 
shipping & handling 

• S2.00 EXTRA 
for COD. 

• Ohio residents 

add 5'/?% sales tax. 




TO PLACE ORDER 
1-800-321-3552 



CALL 

TOLL 

FREE 



FOR PRODUCT INFO 
1-800-321-3640 




IN OHIO call (216)289 7500 (COLLECT) 



METfl TeCHNQLQGJES CLWQRrlT™ 



26111 Brush Avenue Euclid Ohio 44132 



TRS 80 is a TM of Tandy Ceo 
1980 by Metalechnologies Corporation. Inc 



S «•»<?«' Service— «•• page 27* 
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pie, compresses program lines by remov- 
ing remarks, spaces, or both (your option). 
CMD(L) loads a specified machine lan- 
guage routine to be called from BASIC, 
and CMD(0) sorts or alphabetizes the con- 
tents of an array to name just a few. 

Of course, the physical differences re- 
flect many of your suggestions, too. The 
one piece cabinet is capable of housing a 
Level I or II ROM, up to 48K RAM, RS-232, 
two of the four possible disk drives, and 
it's all fed by one power cable. To hold the 
non-disk price down, the add-on drive kit 
for drive includes the controller and pow- 
er supply for both internal drives. Again, 
the parallel printer port is built In, so we've 
eliminated the need for our ever-popular 
expansion interface with Model III. 

You'll be happy to know that every ef- 
fort has been made in Model III to elimi- 
nate Radio Frequency Interference. I hope 
it's obvious that Model III. both in hard- 
ware and software is anything but a 
"warmed-over Model I." 

We've Been Getting Questions 

O: Can my Model I be retrofit to Model III 
specifications? 

A: Unfortunately, no. The hardware Is 
too different 

Q: Does the introduction of Model III 
mean that Model I will no longer be avail- 
able? 

A: As inevitable as death and taxes, the 
day will come when every product we 
make, even Model III and the pocket and 
color computers, will go. As of now, I 
honestly can't tell you when Model I will 
cease. 

The real question behind this question 
is usually "Am I (Model I owner) now going 
to own a useless piece of outdated hard- 
ware? My answer is an emphatic NO\ Dis- 
continuance, when it comes, won't 
change the benefits of your computer or 
its value. 

Q: Is It true that Radio Shack has been 
delivering 77-track double-density drives 
and just not telling anybody? If so, can 
Model I work with them? 

A: All of our drives, from day one, have 
had double-density heads. Earlier this 
year, we began to use drive mechanisms 
which were capable of 40 tracks, not 77. 
Those are the drives we sell today. They 
are faster, band positioner drives, and 
work well with either Model I or III. Our 
engineers tell us that Model I would not 
work reliably in a double-density mode. By 
the way, the earlier 26-1160's and 61 s 
won't work with Model III. 

Q: Is there a modification to eliminate 
RFI for Model I, especially for ham radio 
use? 
A: No. We don't know of a reliable way 



to eliminate RFI in existing Model I's. I've 
heard stories from people who have killed 
90 percent of the interference, but they 
also tell me that others have tried their 
methods (some quite involved), without 
any real improvement. 

Q: If I buy a Model III, can I be assured 
satisfactory operation with my ham equip- 
ment, without Radio Frequency Interfer- 
ence? 

A: All computers generate some level of 
RFI and Model III like all of our computers, 
complies with FCC regulations. But it's 
our belief that the FCC tends to protect 
your neighbors— not you— from the com- 
puter. You may simply have to choose be- 
tween computer operation and TV, ham 
radio, etc. I know RFI isn't a pleasant situ- 
ation. I've spent a few nights on 20-meter 
CW with my unmodified Model I and M-80. 

Visicalc Comes To TRS-80 

We began shipping Model I Visicalc 
software back in late September. Al- 



"Q: Can my Model! 
be retrofit to Model III 
specifications? 
A Unfortunately, no . 



though it was for Model I only, the plan 
was to have a Model III version available in 
November. On the chance that some of 
you are not familiar with Visicalc, it's 
worth explanation. You'll find it one of the 
most versatile programs. 

Picture a large spread sheet with up to 
63 vertical columns labeled A, B, C, etc., 
and up to 256 horizontal rows labeled one, 
two, three . . . and so on. (There are a few 
restrictions depending on memory limits.) 
Visicalc turns your computer's memory in- 
to such a sheet. Now, any location on the 
sheet (Al, AK211, Q7, etc.) can contain a 
label or heading, or a number, or a formula 
telling the computer how to calculate the 
figure there. For example, A32 could be 
Net Profit, and could be A6 (Gross Profit) 
minus A30 (Total Expenses). 

Now, the fun. If you want to do income 
projections for a year, enter your first 
month, then tell Visicalc to assume a 5 
percent monthly increase in sales. You 
can handle fixed expense items by repeat- 
ing those exact numbers for all 12 
months. And when you're finished, when 
you enter or change a figure, Visicalc per- 
forms a bit of magic. The new numbers are 



calculated and put into place immediate- 
ly. Adding other variables is quick and 
easy. For example, what if you add a new 
employee, buy a new delivery truck, move 
into a less expensive office, start an ex- 
pensive ad campaign, increase sales 
faster, have a sales slowdown? 

Your bills can be adjusted for seasonal 
variations by entering a fixed amount or a 
relationship to a base month. 

Your video screen acts as a window on 
your spread sheet, and you can move the 
window anywhere. You can lock headings 
in place while scrolling, or even split the 
screen horizontally or vertically, scrolling 
only a portion of the display. Of course 
Visicalc can print specified portions of 
your spread sheet, or store it all on disk for 
later use. The possible uses are endless. 

Whether you're calculating the family 
budget, or doing corporate financial plan- 
ning—if you own a TRS-80, Visicalc would 
be an excellent addition. (Yes. Tandy's 
financial wizards have been using it for 
some time, too.) And yes again, it will be 
available for the Model II in December if 
Murphy doesn't butt in. 

The Management Computer 

With the introduction of Visicalc, Scrip- 
sit, TRS-80 Videotex, and Profile, and 
especially with one-piece hardware like 
the Models II and III, businesses are find- 
ing that the TRS-80 is a valuable manage- 
ment tool. It saves time and labor, man- 
ages data, does financial planning, and 
even composes memos or letters. It also 
can provide a low-cost electronic mail ser- 
vice by means of Videotex software and 
the CompuServe Information Service. And 
best of all, it's not just another future con- 
cept. It's all happening today. 

If you haven't tried the CompuServe, 
you should. Our TRS-80 software pack- 
ages include a free hour on the system. 
Your unique user number and password 
come right in the software package. There 
is no sign-up fee even if you decide to keep 
going after your free hour. Whether or not 
you find a home with CompuServe, the 
Videotex gives you an excellent general 
purpose communications package. 

Visicalc, Scripsit, Profile and Videotex 
all make outstanding gifts for computer 
owners, and are almost universally usable 
regardless of the first use of the com- 
puter. 

Also remember that cassettes, disk- 
ettes, and dust covers make outstanding 
low-cost gifts. But for you we at Radio 
Shack want to wish you. a happy holiday 
season and an outstanding 1961 . We hope 
your stocking on Christmas morning 
comes stuffed with outstanding and uni- 
que computer gifts. ■ 
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SNAPP II EXTENDED BASIC 
A fomily of enhancements to the 
Model M DASIC interpreter Port of 
the pockoge originated with the best of 
APPARAT INC. s thoughts in implementing 
NEWDOS DASIC The system is written 
entirety in machine language for SUPER 
FAST execution. The extensions are fully 
mtegroted into Model II DASIC and require NO 
user memory and NO user disk space The 
packoge is mode up of the following six 
modules each of which moy be purchased 
separately: 

XDASIC — Six single key stroke commands to list 
the first, last, previous, next, or current program 
line, or to edit the current line. Includes quick 
way to recover DASIC program following o NEW 
ot system or occidental re-boot. Ten single 
character abbreviations for frequently used 
commands: AUTO. CLS. DELETE. EDIT. KILL 
LIST. MERGE. NEW. LUST, ond SYSTEM MO 
XREF — A powerful cross-reference focility with 
output to disploy and/or printer. Trace a vari- 
able through the code Determine easily If a 
variable is in use. $40 

XDUMP — Permits the programmer to display 
ond/or print the volue of any or oil program 
voriobles. Identifies the variable type for all 
variables. Eoch element of any array is listed 
separately. (40 

XRENUM — An enhanced program line renum- 
bering facility which allows specification of on 
upper limit of the block of lines to be renum- 
bered, supports relocation of renumbered 
blocks of code, ond supports duplication of 
blocks of code. 140 

XF1ND — A crass reference focility for key words 
and character strings, also includes global re- 
placement of keywords. 140 
XCOMPRESS — Compress your DASIC programs 
to on absolute minimum. Removes extraneous 
information, merge lines, even deletes state- 
ments which could not be executed. Typicolly 
saves 30-40% spoce even for programs with- 
out REM stotements! Also results in 7-10% im- 
provement in execution speed. $40 
ENTIRE PACKAGE ONLY $200.00 

' DOSFIX 

A collection of patches to TRSDOS 
ond DASIC to enhance their 
usability ond function includes our well-known 
DREAK7E patches to keep the break key from 
being used accidentally. FREE WITH ANY 
MODEL II SOFTWARE PACKAGE. 

CONVERT 

This remorkable utility converts "V 
f ot mot files (the sequential format 
used by the SHACKS COOAL and DASIC 
Compilers) to rhe T format files (the 
sequential file format used by the DASIC 
interpreter ond DASCOM) ond vice versa. 
Without this product, programs written for the 
interpreter will hove to be RE-KEYED to be 
used by the SHACKS Compiler DASIC. $75 

SDA5IC - Model I ond Model II 

Program m a high-level full struc- 
tured DASIC The DEST of the 
DASIC preprocessors PERFORM named 
subroutines. CONDITIONAL cose structures. 
WHILE loops. UNTIL loops And much more. 
Forget about line numbers Model II version is 
compiled, ond SUPER FAST. From Uhimote 
Computet Systems. Model I $50 Model II $75 



XPRINT 

Print neatly fotmoted hard copy list- 
ings of DASIC programs from disk. 
Programs moy be ASCII or compressed Quick 
ond easy group selection allows you to print 
many listings with one command. S35 

HDPRINT 
Allows you to access a serial printet 
simultaneously with the standard 
parallel printer Easy interfoce to DASIC Drive 
two printets at once! $75 

BPPRINT 
Updates to The Electric Pendl to 
support ttue proportionally spoced 
printing with the Shocks new letter quality 
printer, the Daisy Wheel II Produces copy 
which looks as If it hod been typeset $ 1 00 

HITOII 
A helping hand when converting 
DASIC programs from the Model I to 
the Model II Automatically adjusts PRINT @. 
ond PRINT USING to compensate for differences 
in the language Advises you whete adjust- 
ments ate necessary for PEEK, POKE. etc. 

$25 

H EXTENDED DUILT IN 
FUNCTIONS 
Now you con give your TRS-80 oil 
the functions you wished DASIC hod given you 
in the first place These verbs will give you pro- 
gramming abilities thot moke you look good. 
Adds the following function verbs SORT. PEEK. 
PEEKW. POKE. POKEW, ETIM$ ond XTIM$ 

150 

HDIAL 
USR 330D Auto Answer/Auto Dial. 
Direct Connect Modem 300 baud, 
originotes/onswers 103J compatible. When 
used in conjunction with out DIAL, softwore is 
copoble of complete origination of communi- 
cations with remote locotions without operaror 
intervention. Special combination price, 
modem ond software (430 

Softwore only 150 

^•232 
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8160 Corporate Park Dr. 
Cincinnati, Ohio 45242 

Ohio residents coll collect 
(510)891-4496 

Coll Toll Free 
1 - 600 - 543-4626 

All products now ovoiloble to run 
with TRSDOS 2.0. 

Most products will soon be ovoiloble 
for the Model III. CALL FOR DETAILS! 



MASTER / SLAVE 

This software pockoge was de 
__ signed to support the transferring 
of files from one Model II to another via direct 
connection or modem/phone line connection. 
ALL kinds of files, and baud rates up to 9600 
ore fully supported. Transfer files in either 
direction, even with the SLAVE Model II 
UNATTENDED! $150 

SPOOLER— Model I ond 
Model II 

■UH Our workhorse! Unlike the one 
supplied with TRSDOS 2.0, ours requires no 
special knowledge ot training on the port of the 
operator. Additionally ours performs much bet- 
ter On the Tandy SPOOLER everyrime a disk is 
accessed, the printer stops dead! This pockoge 
Is ovoiloble for Model I . in the TRSDOS/NEWDOS 
80 versions, ot for the Model II. Greatly en- 
hances system performance when running typ- j 
icol business applications. Many opplicotions : 
hove been benchmorked to run neorly TWICE \ 
AS FAST with the SPOOLER installed. InstoUs in j 
minutes ond no chonges ore required to your 
programs. Preferred Model II versions require 
NO user memory. Optional features for the 
Model II version only: 

Serial primer support, ond DISK SPOOLING sup- 
port is particularly tecommended for word pro- 
cessing opplicotions $100 
SERIAL PRINTER OPTION 150 
DISK SPOOLING OPTION 150 

HHOSTII/TERMII 
Allows remote control of o Model II 
from another Model II. or ony ASCI I j 
terminal. Our Host system, unlike the one 
supplied with TRSDOS 2.0. supports accurate 
screen positioning on the Term station. Without | 
this feature, formated displays appear on the 
terminal looking like randomly ploced gar- 
bage Requires NO user memory! This system is 
designed to provide softwore support to our 
customer locotions without evet leaving the 
office S50 

TERMS OF SALE: 

Credit cotd customers odd 3% 
^ COD. customers odd S3. Ohio 
residents add A'h% soles tax. Shipments 
normolly mode rhe some doy we receive 
your order 

OUR GUARANTEE: 

If your diskette arrives domoged, 
we will replace it without charge. 
If you ever accidentally damage it we will 
reploce it for o $10 handling charge. For o 
period of one year we will provide you with 
ony enhancements or updates for o $10 
hondling charge. For o period of one yeor. if 
errors ore discovered in the progroms. they will 
be corrected without chorge. In the event we 
connot correct on error you may return the 
program moteriol for o refund. 

Electric Pencil is a trade mork of Michael 
Schroyer Softwore. Inc. 

TRS-6T 1 ■ o rrodemork of the Rodio Shock 

divisioi ■>' Tandy Corporation. 

NEWDOS ond NEWDOS/80 ore trademarks of 
Apporat: Inc. 
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"He was a first-class communicator 

. . . / for one will not forget his 

discussion of the appetite for the 

miraculous in modern man." 



Micro Millenium 



When reviewing The Micro Millenium 
for your August issue, Nancy Robertson 
was clearly unaware that the author died 
suddenly before the book was published. 
This may well explain the deterioration 
she detects in the later chapters. 

In addition to his qualifications as a 
psychologist, Christopher Evans was an 
applied computer scientist in the British 
'boffin' tradition. His pioneering work on 
dialogs between microcomputers and 
naive users led to the development of the 
MICKEY system, in which an unattended 
microcomputer is used to gather medical 
information from patients. (On some sen- 
sitive topics, it seems that patients will 
give more accurate information to a sym- 
pathetic microcomputer than to a human 
doctor, and prefer to do so.) 

He was also a first-class communicator 
of scientific developments to the non- 
scientist, combining a flair for exposition 
with sturdy common sense. I for one will 
not forget his discussion of the appetite 
for the miraculous in modern man, culmi- 
nating in a demonstration of spoon-bend- 
ing as performed by Uri Geller, given in 
swimming trunks during the lunch break 
in a symposium on 'Man-machine Interac- 
tion' In Greece. 

His was a rare combination of talents, 
and his death has left a gap that will not 
easily be filled. 



Dr. Hugh David 

91830 Le Coudray-Montceaux 

France 



A Ham Writes 



I have never written to you before al- 
though as a Ham I have read 73 Magazine 
for a number of years and now subscribe 
to 80 Microcomputing. In passing, I must 
say that I admire your style. You are one of 
my favorite curmudgeons. I use the term 
affectionately since I aspire to the same 
estate. 

The reason for the letter is to tell you 
that the second issue of 80 Microcomput- 



ing I received more than paid for several 
years' subscription. 1 was just about to 
disconnect my interface to drive to Nash- 
ville (35 miles) because of a problem that 
had developed between my TRS-80 and 
my H-14 printer. Both seemed to be oper- 
ating well but the information the comput- 
er was sending was printing out as gar- 
bage on the printer. The October issue 
came just as I was about to start pulling 
things apart, so naturally reading the 
magazine took precedence over fixing the 
computer. The issue fell open to James 
Kunzman's article about the NEC Spin- 
writer and his problems with a warped RS- 
232-C board. To make a long story shorten 
with a screw driver, a pair of tweezers, and 
a pencil eraser, I was able to fix my prob- 
lem without a $24 trip (plus mileage) to the 
Radio Shack repair center. 

I hope you and your magazine live for- 
ever. 

Donald R. Goss, Chairman 

Division of Humanities 

Gallatin, TN 

Bat Guano 

I just received my fourth issue of 80 Mi- 
crocomputing. The house rule here is that 
three back issues of any magazine re- 
main; all others are tossed out. But 80 Mi- 
crocomputing seems to contain so much 
information that I can't use it all at once 
but must keep the magazines on file for a 
time when I can get around to it all. 

After four issues, the quality of the in- 
formation I'm keeping is coming strongly 
into doubt. 

From the June issue, I patiently keyed 
in the "Life" listing. I realized in the pro- 
cess that something was wrong with the 
program, worked around it, and saw the 
corrections in the July issue. 

In the August issue, I patiently keyed in 
the "Swords and Sorcery" program, again 
realizing that that program was screwed 
up, too. You can jimmy a missing symbol 
in an assembly program, but it's hard to 
supply missing data in a BASIC program. 
These missing items apparently had noth- 
ing to do with the programs themselves, 
but were just results of shoddy editing. 

This month— September— I tried "Di- 



vine Proportions," and found that the pro- 
gramming itself was downright shoddy— 
the parallelepiped, for example, was 
drawn wrong, and the option to print out 
the proportions clobbered the screen dis- 
play. Again, if 80 Microcomputing's staff 
had checked out the program, this 
shouldn't have happened. Another case of 
editorial irresponsibility. 

80 Microcomputing also carries hard- 
ware modifications. I haven't tried any yet, 
but I have the fear that if I did, I might wind 
up with a smoking wreck instead of a mi- 
crocomputer if the hardware modifica- 
tions are as shoddily checked as the soft- 
ware that's published. Ol' Madman Wayno 
can rip us off only so far. 

1001001? 101101— bat guano on your 
antenna. 

Richard Amyx 
San Jose, CA 

Richard, see previous letter.— Eds. 

Article Argument 

Your August 1980 issue quoted and 
snidely commented on an article in the 
June 16, 1980 issue of Business Week 
wherein two Tandy VPs stated flatly that 
no new computers were coming out this 
year. 

When I queried Radio Shack about the 
item, they reported an inability to find the 
quoted article in that Business Week. Nor 
could I. When I brought this to your atten- 
tion, I was directed to the June 9, 1980 is- 
sue of Business Week. But I came up dry 
there as well. No interview, no article. 

It looks from here that an apology is due 
the Tandy people. At the least, it is no way 
of healing the breach between your maga- 
zine and their advertising department. 

John R. McGinley, Jr. 
New York, NY 



I suggest you read a little more closely 
before sending off your next letter to an 
editor. The first three paragraphs of the 80 
piece you referred to are reprinted here. 

"An article printed in Business Week, 
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June 16 stated that, "Over the next six 
weeks Tandy plans a barrage of new prod- 
ucts to follow up its initial foray into the 
small business market with its TRS-80 
Modelll." 

"It goes on to say that a desktop com- 
puter for scientists and engineers, a word 
processor based on the Model II and small 
computers that will automate inventory 
controls are to be expected. 

"At Tandy Corp., both H. L Seigel, Na- 
tional Publicity and Promotion Manager, 
and Senior Vice President of Operations, 
Charles Phillips, deny the thrust of the 
Business Week article. They both say no 
new computers that they know of will be 
marketed by the company before the end 
of the year. " 

It is not the Business Week article that 
quotes the two Tandy executives who 
denied knowledge of the new computers, 
it is 80 that quotes them. Business Week 
had the scoop. We tried to follow it up, 
without immediate success. The Septem- 
ber cover story gave the details that would 
have been nice to have had in August. 

The Business Week article is indeed in 
the June 16 issue on page 106J, entitled 
"Tandy's personal-computer salvo. " 

Nancy Robertson 
80 News Editor 

Dislikes Content 

I'm sorry, but the time has come when I 
feel compelled to write regarding your cur- 
rent editorial content regarding "software 
pirates". Believe me, I do not condone this 
practice, but I feel you are using your pub- 
lication, supported by my subscription 
fees, to promote a very self-serving, vest- 
ed interest on your part as head of Instant 
Software. 

I subscribed to 80 Microcomputing be- 
cause it was advertised as being the top 
of the line in publications dealing with the 
TRS-80, not because it was to degenerate 
into a soapbox for the slanted views of its 
publisher or to become saturated with ad- 
vertising material. 

As examples of the current state of your 
publication I cite the following: 

In the last issue of 80 Microcomputing 
there were fourteen pages devoted to the 
software pirating on the copyright situa- 
tion and one hundred twenty-five pages of 
advertising material. 

These examples amount to the follow- 
ing percentages: 

Pirate to TRS^O material 6.2% of total contents 

Advertising to TRS80 material 55.3% of total contents 
Total editorial/advertising 61.5% of total contents 



As a businessman I realize advertising 
revenue and editorial content are impor- 
tant parts of any publication, but after dis- 
counting some questionable material and 
still arriving at a total subscriber oriented 
magazine content of 38.5% of the 226 
pages of your last issue, I honestly think 
you are putting the cart before the horse 
at the expense of your readers. 

I for one would like to see you and your 
publisher friends get off your collective 
soapboxes and get back to the business 
at hand— publishing some top quality 
magazines dedicated to the top selling 
computer in the world— the TRS-80. 

Vern H. Hall 



Though we can't agree with your break- 
down of editorial matter and are confused 
at your reasoning concerning articles cov- 
ering software copyright or piracy — 
Wayne's editorials aside— we would like a 
chance to respond to criticism that our 
magazine is becoming more crowded with 
advertising. 

Nowhere has the pressure to introduce 
more editorial matter in the magazine 
been more sharply felt than in our own of- 
fices. This pressure has not only come 
from upper management, but from our 
own sales department. 

The editors are in complete agreement 
with these sentiments. 

Perhaps, to a reader, our magazine's 
growth rate and the problems encoun- 
tered are not self-evident. A publication 
which appeared in January 1980 at 147 
pages and appears just one year later at 
over 250 has undergone radical changes. 
The editors have been chasing advertising 
space sales since February. 

The more hectically we operate, the 
more difficult it is to guarantee both lucid 
and accurate articles; articles which we 
hope depart from what passes as "techni- 
cal" literature to become both education- 
al and even enjoyable. 

Only now are we properly staffed to do 
the necessary job. In the future we hope to 
offer yet a larger and more carefully edited 
magazine.— Eds. 

Connector Advice 

Radio Shack now sells a 40-pin card 
edge connector (Part 276-1558, on page 
126 of their 1981 catalog) which they de- 
scribe as "compatible with many micro- 
computers." While this connector fits the 
TRS-80 expansion port, from the back, the 
TRS-80 has the low numbers at the left, 
and the odd numbers on top of the printed 
circuit card. With the card edge connector 



held so that the low numbers are at the 
left, the even numbers are at the top. This 
causes no problem if two card edge con- 
nectors are used on a single cable, but 
anyone who uses the connector to attach 
the TRS-80 to a circuit board should be 
aware that the wires will be ordered 2, 1 , 4, 

3 38, 37, 40, 39 and not in the usual 

sequence. 

Sherman Levine 
White Plains, NY 

Scripsit: Round ? 

Further to the letter in your September 
issue from William O'Brien: I have now 
been using Scripsit for about three 
months, and am generally happy with it, 
but I am still bugged by the lack of line 
feed with the Enter key. I've become used 
to it and work around it, but it would be 
nice if it could be made to work. 

I use my TRS-80 with an IBM Selectric 
typewriter and Escon (USA) interface unit. 
With this, the Enter key doesn't give a car- 
riage return unless there are several char- 
acters in the line. This means that such 
things as block formats and paragraph 
formats don't work. 

You could say that I should have used a 
Tandy printer, but I won't buy that! For a 
start, in an office environment you must 
be able to produce typewriter quality print- 
outs, and Tandy had not released their 
daisy-wheel printer here at the time of 
writing. They have no other printer with 
the needed quality. 

Also, for business correspondence you 
must have a number of other features, 
such as half line spacing, both for setting 
out and so you can write things like C0 2 or 
MC 2 . You must be able to underline and 
you should be able to use all of the charac- 
ters on the type ball, including Va and Vi. It 
is also nice to be able to correct small mis- 
takes in the middle of the printed page, 
which you didn't see until you printed it 
out, using the typewriter's corrector rib- 
bon. No printer can give you that with 
Scripsit— except the Selectric. 

To get all of this you need either a dedi- 
cated word processor (at $15,000 + ) or a 
printer which doubles as a typewriter. This 
is what I have, and if I could just get it to 
execute a carriage return with the Enter 
key, I'd be happy. 

Hope someone out there has had the 
same problem and solved it! 

David D. Harris 

470 Manon Rd. 

Plympton Park 

S. A. 5038 

Australia 
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Needs Equipment 

As you probably know, the Coast 
Guard Auxiliary is a nonprofit, volun- 
teer organization whose primary pur- 
pose is to assist the Coast Guard. Here 
in the Caribbean, our group operates 
mainly in the area of Search and Res- 
cue. 

We have a considerable amount of 
information to assist us during SAR 
operations that is presently stored in 
files, books, boxes and on scraps of 
paper. When time is of the essence, we 
must rummage through all of this ma- 
terial to find the needed information. 
The suggestion has been made that all 
of this data could be stored in a small 
computer. 

Our problem, however, Is that we do 
not have any government funding and 
all of our equipment is purchased by 
individual members. The purchase of a 
microcomputer would be out of the 
range of our people since most of us 
are retired and live on fixed income. 

Is there any possibility of one of your 
readers donating a used or out-dated 
computer to our group? As a nonprofit 
organization, we are permitted to ac- 
cept donations of this type and the do- 
nor would receive a favorable tax write- 
off. 

It would be greatly appreciated if 

you could assist us in this matter. 

Milton Greene - Vice Commander 

Coast Guard Auxiliary St. Croix 

Box 2759 - Christiansted 

St. Croix -USVI- 00820 

Bi-Sync v. A-Sync 

I have what appears to be an unsolv- 
able problem which might be of inter- 
est to both you and my fellow readers 
and just possibly of enough potential 
to engender the development of a solu- 
tion! 

On the surface the situation seems 
simple: I operate a 32K TRS-80 with 
disk drives. With the R 232 board and a 
300 baud R/S, modem communications 
with the outside world are a delight. 

My corporate headquarters, on the 



other hand, operates a monster IBM 
System 34, communicating with the 
world in 3741 protocol via 201 C 2400 
baud dial-up equipment. 

Trouble is that the system 34 com- 
municates in Bi-Sync. I need to com- 
municate in A-Sync. 

Short of spending upward of $5,000, 
there appears to be no solution to my 
problem. Software packages are not 
available. Conversations with data 
communications companies who 
might act as an interface have proven 
either fruitless or way too expensive. 
Any ideas?? 

Raymond L Watkins 

ICC Industries, Inc. 

Dover Chemical Corp. 

Davis at 15th St. 

P.O. Box 40 

Dover, OH 44622 

Scripsit Reboot Aid 

Reference 80 Microcomputing for 
the month of July; there was a gentle- 
man concerned with rebooting to DOS 
when using SCRIPSIT. Have no fear, if 
your system does reboot all you have 
to do is go to DEBUG and execute 
G6008. SCRIPSIT will come back with 
no loss of data. Do not try going to BA- 
SIC after reboot and enter by SYSTEM: 
Your data will be lost for sure. 

There is also another answer to 
reading the directory when in SCRIP- 
SIT, and that Is to buy NEWDOS 80 by 
APPARAT Inc. of Denver, Colorado. 
This is an excellent DOS system and 
allows you to read the directory with- 
out losing SCRIPSIT. 

Chuck Gould 
Route 6 Box 6460 
Nampa. ID 83651 

Keyboard Bounce 

I have a problem; but first a word of 
explanation. 

I am a graduate mechanical engi- 
neer. I own a TRS-80, Model II with 16 K. 
This was originally a Model 1, 4K which 
I have had modified (by Radio Shack) 



to Level II, 16K. 

Each morning that I Intend to use 
the computer I first have to CLOAD a 
cassette titled Keyboard Debounce, 
Systems * KBFIX. 

Without first loading this cassette I 
have to go through the throes of key- 
board bounce (multiple printing). 

I can't understand why loading this 
KBFIX cassette will solve the keyboard 
bounce, but the repair shop tells me 
that the affliction (to the computer) 
cannot be repaired on a permanent 
basis internally. 

Granted, loading this cassette con- 
sumes only a few minutes time and the 
computer performs beautifully after 
loading it. But I'm 63 years old and I 
like to put my time in more beneficially. 
John V. Lane 
14400 Astoria Street 
Sylmar, CA 91342 

DATEL Aid 

I recently purchased a DATEL 30 
Selectric based I/O terminal. I have 
been unable to find documentation 
and DATEL is now defunct. The ter- 
minal is EBCDIC encoded and I would 
like to convert it to ASCII. Any help in 
this conversion or documentation on 
the electromagnet driver board, power 
supply board, logic board, or the 50 pin 
connector between the logic and the 
typewriter would be greatly appreci- 
ated. 

Brad M. Dickey 

2806 Treehouse Pkwy 

Norcross, GA 30093 

Needs Interface 

My surplus Datel Selectric came 
with a software driver that works fine 
on programs, but it will not work with a 
word processor. I have tried both Pen- 
cil and Scripsit, and it will not print. 
Can anyone suggest an interface? 

Paul Kalkstein 

Phillips Academy 

Andover, MA 01810 
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Book Review 



TRS-80 Disk & Other Mysteries by H. C. 
Pennington is an exciting title isn't it? 
Here, I thought, is a book that will tell all 
about how the disk knows where to start 
and when to stop, how the system knows 
where all the pieces of a fragmented pro- 
gram are located, how a multiple disk sys- 
tem knows which drive to use. Perhaps it 
will give me hints on changing code on the 
disk so I can change the start-up process. 
This book promises to answer all my 
TRS-80 disk related questions. 

The book starts out nicely enough; 
there is a short paragraph that says the 
TRS-80 is a pretty neat machine and 
Pennington loves It. Then there is a page 
about the crumbs in Fort Worth who are 
responsible for the existence of the 
TRS-80. We learn that the stupes who put 
TRSDOS together obviously didn't know 
what they were doing, but there are a pair 
of heros in Colorado who have saved the 
day for all us TRS-80 disk owners. 

Most of the rest of this book tells us 
about the mistakes in Radio Shack's 
TRSDOS and the inadequacies of some of 
the other disk systems and how great 
NEWDOS is. We learn that NEWDOS 
works and fixes all the mistakes. The book 
then describes how to use NEWDOS com- 
mands and features. The conclusion I 
draw is that the documentation with 
NEWDOS is inadequate and I have spent 
$22.50 for an instruction book that I don't 
need. The title should have been Newdos 
A Other Mysteries. 

John Grass 
Portola Valley, CA 



Sinclair Slips 



After reading Mr. Sinclair's excellent ar- 
ticle, "Into The 80's", I have found the fol- 
lowing bugs: 

1) The power switch does not perform a 
memory clear function during power-up. 
This is performed by the combination of a 
inverted input NOR gate, (Z53 & Z52), & the 
RC network, (R47 & C42). See HIS techni- 
cal reference manual for details. Three 
poles of the four pole switch are used to 
switch the three power supply connec- 
tions, ( + 5 & - 5 vdc & vac). 

2) When a reboot occurs, "Memory 
Size?" appears during program execution 
and you do not always lose the program in 
RAM. When it happens press the reset 
button first, then pull a list to see where 
your program went wrong. (By the way, the 
explanation given by R/S of the function of 
the reset button is incorrect (L II manual 



pg. 1/2). Pressing reset returns the com- 
puter to "READY", not to "Memory Size?". 
Also you do not lose the program In RAM.) 

3) The maximum characters per line al- 
lowed is 255, not 250. 

4) On Print® syntax, the comma should 
be used after the position argument, 
(PRINT@64,". . .). This mistake was in the 
article, example 4 is correct. 

5) This is not a bug but a method I have 
used to rid my keyboard of bbounce. 
Clean the contacts as R/S has recom- 
mended. Then paint the contacts with 
"Blue Stuff" or a similar product. Spray a 
small amount of the chemical into a paper 
cup, then dip a flat toothpick into the foam 
and gently paint the contacts. The chem- 
ical is a mild polishing formula which 
wipes the contacts each time they close. 
This chemical is used on TV tuners to 
keep the gold contacts clean. 

John F. Costello 
Philadelphia, PA 

POKE Convert 

It seems that both Bertram Thiel ("Dou- 
ble Size Graphics", June 80) and Jeff 
Eisen (Input column, September 80) have 
neglected to mention that there are more 
ways to escape the 32 character mode 
than CHR$(28) and CLS. I have found that 
POKEing into memory location 16445 



will effectively convert the video contents 
back to 64 characters per line and will 
leave the cursor where It is while CHR$(28) 
brings it to position (0,0). If for some rea- 
son you don't want to use CHR$(23) to en- 
ter the wide letter mode, POKE 16445,8 
will do the same. 

Benjamin Junge 
Los Angeles, CA 



Dancing Numbers Program 



>UST 

5 CLS 

108 = 1 

20 FOR X = TO 895 STEP B 

30 PRINT«X, B 

40 NEXT X 

SOB = B + 1 

60 FOR L * TO 75 : NEXT L 

70 IF B> 891 STOP 

80 GOTO 20 

READY 

>_ 

Try it just for fun! 

I also would appreciate hearing from 
readers with programs helpful to the 
blind. 

John Rago 

Rt 2 Box 19 

Logan, IA 51546 

Continued to page 28 




Math Flash Bugs 

Corrected Lines for "Math Flash", 
Page 158, Sept 1980, 80 Microcomput- 
ing: 



95 ON Y GOSUB 1000.1 100.1200.1300,1400.1500.1600. 

1700.1800 
100 IFY = 0THEN GOSUB 1900 
105 ON D GOSUB 2000,2100:W = 0:Y = 
220 IF G C THEN PRINT @ 0,G;" IS WRONG, eic (Rest 

of line remains unchanged). 

Jim Barbarello 

R.D.tH, Box241N 

Tennent Rd. 

Englishtown, NJ 

Machine Language Bug 

Got a friendly call from Nashville 



Tenn, this PM from a Ham who was try- 
ing to make sense out of an article of 
mine in the August 80 Microcomput- 
ing, "Towards Machine Language". 
There was a foul-up in the printing on 
page 144. Under the heading Machine 
Code Listing, using T-BUG, punch in 
this series of commands starting at 
memory location 5000: 



CD F6 04 3E 31 32 20 3E 76 

The only nice part about composing 
room errors is that I find great numbers 
of folks out there who appreciate the 
effort that goes with authorship. 

Allan S. Jotte W3KM 
1005 Twining Road 
Dresher, PA 19025 
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EXCITING NEWS FOR INVESTORS WITH TRS-80 32K DISK-BASED SYSTEMS! 



Standard & Poor's proudly announces 

STOCKPAK, 
a unique software and data system 

to help you meet your investment goals 
like a Weill Street professional. 



STOCKPAK not only delivers a "stand-alone" Port- 
folio Management System but also gives you the soft- 
ware for Standard & Poors monthly Common Stock 
Data Service (available to TRS-80 owners on a sub- 
scription basis). With STOCKPAK and the Data Ser- 
vice you command one of the most powerful and 
versatile investment tools available. 

Here's How STOCKPAK Will Help You: 



A 900 COMPANY DATA BASE SERVICE 

Monthly Data Service subscribers receive a diskette 
containing 30 vital financial items on 900 of the most 
widely traded stocks (S&P "500" and 400 NYSE, ASE 
and OTC issues). Accompanying this monthly diskette 
is an Investors Newsletter highlighting important fi- 
nancial news and investment strategies, with sugges- 
tions for maximizing the usefulness of the system. 

STOCKPAK SELECTION SYSTEM 

The heart of STOCKPAK is a powerful, analytical 
stock selection tool which enables investors to choose 
stocks which meet their investment criteria. For exam- 
ple, you may wish to select only those oil and gas stocks 
with price/earnings ratios of less than 7 and yields of 6% 
or more. Once a group of stocks has been selected, you 
can store it as a separate data file for continuing use. 

REPORT WRITER 

You can define the report formats you would like to 
see on those stocks meeting your investment objec- 
tives. Hundreds of calculations and ratios that you 
define can be sorted, averaged or totalled, and dis- 
played on video screen or optional printer. 




PORTFOLIO MANAGEMENT SYSTEM 



Now you can effectively evaluate and manage your 
own stock portfolio of up to 100 securities with as many 
as 30 transactions for each. You can record "buy" and 
"sell" transactions, price and dividend information and 
stock splits for instant retrieval, for record keeping and 
tax purposes. You can measure actual performance or 
create hypothetical situations to help you make "buy" 
or "sell" decisions. 

HOW TO ORDER STOCKPAK 

STOCKPAK is designed exclusively for TRS-80 
users with 32K business systems with two mini-disk 
drives. You can obtain the basic software and sample 
Data Base, plus a comprehensive Users Manual from 
your local Radio Shack Store for only $49.95. The 
STOCKPAK Monthly Data Updating Service can be 
ordered directly from Standard & Poor's for $200 an- 
nually, or from the order form provided in the basic 
package you purchase from Radio Shack. 



sp 



Standard A Poor's Corporation 

25 BROADWAY. NEW YORK. NY 10004 (212) 248-3994 \Yl\ 



►'IM 
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£ft ACCOUNTANT 



by Michael Tannenbaum C.P.A. 



"While this may seem 

to be a lot of Mickey Mouse 

work, it is really sound 

data processing practice." 



Recently I demonstrated the Radio 
Shack Payroll System for a client. Af- 
ter entering the data for several new em- 
ployees, the program halted with a cryptic 
message OV ERROR IN LINE 11 32. Cover- 
ing my confusion with a humorous remark 
about Murphy's Laws, I listed the line. 

The line contained a multipurpose rou- 
tine used for both alphanumeric and nu- 
meric input, that determines the value of 
the input string. Unfortunately the input 
data contained an address 229 E 69th St. 
which the program had interpreted as 229 
raised to the 69th power. 

Of course I was able to make a quick fix 
(E became East) but the experience was 
quite distressing. If an inexperienced 
clerk had been operating the computer, he 
might have quit in disgust. Since the error 
occurred with the payroll master file open, 
the file could have been destroyed. 

This type of bug is quite difficult to fore- 
see. I am sure that future programs will 
correct this oversight and have proce- 
dures to facilitate an abort in case of an 
incorrigible error. However, this experi- 
ence provides an important lesson. 

A New Product 

The Payroll System is a new product. 
New data processing products, both hard- 
ware and software, are prone to strange 
and unanticipated errors. My experience 
has been that most new systems of any 
complexity require at least six months of 
field operation to purge bugs. For this rea- 
son an older software product supported 
by a reliable software house often offers 
the safest path to reliable automation of 
your business recordkeeping system. 

One of the first microcomputer ac- 
counting packages was the Osborne Sys- 
tem. This system was developed by Adam 
Osborne and Associates for the Wang 
2200 in the mid 70s. Originally written in 
Wang extended BASIC, it has been con- 
verted by many vendors for both the 
Model I and Model II. 

The system has been thoroughly field 
tested and documented in a series of 
published manuals. In the latest manuals, 
the Wang BASIC listing has been re- 
placed by CBASIC listings. Many reputa- 
ble software houses offer versions that 



are quite low in cost. 

The version that I tested was obtained 
from the Small Business Systems Group, 
Main St. and Lowell Rd., Dunstable, MA 
01827. They have chosen to offer the sys- 
tem as a series of stand alone modules 
(accounts payable, general ledger, ac- 
counts receivable and payroll) or as an in- 
tegrated Accounting Recordkeeping Sys- 
tem. 

Either method of application offers 
some advantages. In an integrated sys- 
tem each subsidiary recordkeeping mod- 
ule contains a program which prepares 
data for entry into the General Ledger pro- 
gram. At the end of each month, a special 
program generates general ledger infor- 
mation, eliminating hand journal entries. 

Technically, an integrated system can 
eliminate close out journal entries that are 
required each month. This would increase 
accounting accuracy many times. By 
posting the recurring journal entries (for 
example depreciation, cost of sales and 
amortization) and financial reports can be 
prepared automatically. 

Some Sacrifice 

Alas, nothing is obtained without sacri- 
fice. The catch is that an integrated sys- 
tem must sacrifice disk capacity to con- 
tain all the programs and data files on one 
set of disks. The integrated system for the 
Model II only accommodates 400 receiv- 
able customers and 400 payable vendors. 
The General Ledger was limited to 200 ac- 
counts. 

There is also a limit on the number of 
open transactions which can remain in 
the system. All limits can be doubled by 
using an additional disk. Fortunately 
receivable capacity— or the capacity of 
any other module— can be expanded at 
the expense of other modules. The Small 
Business Systems Group (SBSG) thought- 
fully included the variable designations 
for file limits used in each subsystem. 

With 34 programs and 13 files the inte- 
grated accounting system represents an 
outstanding value. All major functions are 
menu driven and it will be easily learned. 
In addition, an invoicing module is in- 
cluded to automate billing operations. 

The package is supplied on two dual 



density eight-inch diskettes with a 
24-page description of the system and di- 
rections. Buyers are clearly directed to 
purchase the Osborne manuals. The 
system description is not intended to pro- 
vide the detailed information that is 
available in the manuals. 

All menus and functions are as speci- 
fied in the Osborne manuals with the ex- 
ception of the invoice module and the sep- 
aration of the accounts payable and re- 
ceivable main menus. All edit checking 
and data limit testing specified in the 
manuals are included. However, the job 
cost provisions of the original system 
have been eliminated. 

The one new feature, invoicing, greatly 
extends the usefulness of the package. 
Designed as are the other modules, in- 
voice data is entered into a transaction 
file, where it can be altered by a file main- 
tenance procedure. When all data is cor- 
rect, an invoice printing routine is se- 
lected. An additional routine prints ship- 
ping labels. 

Limited Capacity 

The capacity of the transactions file is 
limited to 50 items. To purge it, the Ac- 
counts Receivable Update program must 
be run. It transfers the invoice totals to the 
Accounts Receivable transaction file, 
which does not update the receivable rec- 
ords directly. To accomplish this task the 
Accounts Receivable Update program it- 
self must be run. 

While this may seem to be a lot of 
Mickey Mouse work, it is really sound data 
processing practice. No file is updated dir- 
ectly in the Osborne System. All files are 
batch updated with hard copy control to- 
tals generated for each batch. This pro- 
vides an independent audit trail which 
should be used to control the accuracy of 
the data retained in the system. 

Unfortunately the use of a batch update 
procedure creates a potentially danger- 
ous situation. In a batch system entered 
data is usually subject to adjustment. En- 
tries should be pretotaled and totals bal- 
anced to the computer batch proof totals 
after entry. If the totals are out of balance, 
an adjustment can be made. 

All modules in the Osborne system can 
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Give something different this season — the 
pleasing gift of increased memory — to your 
favorite TRS-80* user. The MT-32 from Microtek. 
The new, brilliantly designed Printer/Memory 
expansion module for the TRS-80 Model 1. 

This unit will add 16K or 32K of RAM to the 
basic 16K machine without the expense of a full 
blown expansion interface. The module also 
contains circuitry to drive Microtek's MT-80P dot 
matrix printer or any other Centronics- 
compatible printer. No special software routines. 
No hardware modifications. Attaching or 
detaching takes seconds. One year warranty. 



Three configurations are available: 

• Without RAM assembled and tested 
(MT-32 A @ $119.50) 

• With 16K RAM assembled and tested 
(MT-32B @ $159.50) 

• With 32K RAM assembled and tested 
(MT-32C @ $199.50) 

Available from Microtek or your nearest 
computer dealer. 



9514 Chesapeake Drive 
San Diego, CA 92123 
Tel. (714) 278-0633 
TWX 910-335-1269 
Outside California 
call toll free: 800-854-1081 




MICROTEK- 
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* TRS-80 is the Registered Trademark of Radio Shack, Div. Tandy Corp. 
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adjust unentered transaction batches. It 
is quite possible, therefore, to transfer an 
invoice to the Accounts Receivable 
module and delete it or modify it before 
posting. 

To guard against this situation, the in- 
voicing module provides a series of hard 
copy reports which are generated when 
data is transferred. 

Invoice data entry has six different 
screen formats. The first screen format 
prepares the top portion of an invoice. The 
Accounts Receivable file provides a bill- 
ing address, while shipping data must be 
entered manually. 

A special file pre-defines up to 10 differ- 
ent types of payment terms which are se- 
lected by code when the heading is pre- 
pared. This should be adequate for most 
firms. In addition the same file includes in- 
formation about the contents and size of 
the company's packing labels. This por- 
tion of the file is used to generate carton 
labels. 

There is no provision to record sales by 
salespersons or their commissions. No 
doubt this could be added if required; 
there is no shortage of memory. 

After completing the heading, a trans- 
action entry screen is displayed. This 
screen allows up to 10 line items. However 
since the invoice cannot determine the ac- 
curacy of the item description and price. 
With larger disk space such an extension 
would be possible. 

Separate Screens 

Setting up a separate screen for each 
element of the invoice should facilitate 
the development of custom data entry 
modules for each business environment. 
In the test sample each detail data line 
provided for the following: 

A 10 digit compound SKU/part number 
A 20 character part description 
Unit prices up to 999998.00 
Quantities up to 9999.99 
An automatic price times quantity exten- 
sion 

You can also include comments such as 
Partial Order or any other special notation 
in the body of the invoice. 

After all detail lines are entered, an edit 
screen is presented. The operator may 
edit the details lines and enter sales tax 
codes and shipping charges. If the ship- 
ping charges are not available at this time, 
they can be bypassed and entered later. 
This option permits you to prepare a pre- 
liminary invoice. 

The final invoicing screen allows the 



operator to record or cancel the invoice. 
Options are also available to selectively 
alter the heading, detail line items and to- 
tal—without requiring display of the other 
portions of the invoice. 

The invoicing procedures added by the 
SBSG to the Osborne system are well 
thought out. However, because invoicing 
and merchandise selection are labor in- 
tensive activities for most firms, I recom- 



mend you customize this application. 
While this adds to the cost, the resulting 
labor savings can be significant. 

I would like to thank those readers who 
have been sending "war" stories and let- 
ters of encouragement. It is good to hear 
from you. To those who have been critical 
about my Model II bias, I hope to review 
several Model I packages in the near 
future.! 



EDUCATION 00 

by Earl H. Savaqe %f\f 



A well known quotation states: "There 
is nothing new under the sun." In 
spite of that, there are different ways to 
combine the known in order to accom- 
plish new results. So, let's see what old 
things we can combine to overcome a 
couple of frequent problems in instruc- 
tional programming. 

A very common problem is limited mem- 
ory. My correspondence with instructors 
around the country indicates that the typi- 
cal TRS-80 setup has 16K of memory. 
More limited are the large number of 4K 
machines in schools and homes. Even a 
16K memory can put severe restrictions 
on an instructional program. 

Two Small Programs 

The severity of the memory problem is 
dependent, of course, on the subject mat- 
ter being taught and the level at which it is 
being presented. You might want to break 
up the program into two or more smaller 
ones which will fit the memory. This ap- 
proach leaves something to be desired 
even when automatic CLOADing of the se- 
quential programs is provided. 

The second problem concerns learning 
styles. We all know that some students 
learn better by reading, others by listen- 
ing, others by writing, and so on. It follows 
that a program designed for general use 
will be more effective if it provides for 
more than one learning style. The greater 
the number of learning styles for which a 
program makes provision, the more effec- 
tive it will be. 

One significant input to the student, 
overlooked in computer programming, is 
his auditory sense. Both in school and 
out, people have been learning for years 
by means of audio tape recordings. 
Schools are well stocked with cassette re- 
corders and instructional tapes. Yet when 
they get an 80, it seems not to have oc- 



curred to them to use the included cas- 
sette machine for audio instruction as 
well as computer programming. 

This combination is particularly appli- 
cable to programs containing relatively 
large explanations. If that material re- 
quires no interaction by the student, there 
is no point in using valuable RAM memory 
to contain it. Here's how it all fits together. 

The computer program is written in the 
normal manner, except that long explana- 
tions are omitted. After the program is re- 
corded on cassette, an appropriate series 
of voice recordings is put on the same 
cassette in the proper sequence. To use 
the program, the learner CLOADs the 
computer portion of the type. Then, he re- 
moves the computer plug from the ear- 
phone jack of the cassette machine. The 
student types RUN and the computer pro- 
gram begins as usual. 

When commentary is needed, the com- 
puter turns on the cassette and the audio 
plays out of the speaker. As the program 
continues, the audio is turned on and off. 

Each word of the audio material saves 
several bytes of RAM which can be used 
for a treatment of a longer topic in the nor- 
mal display interaction mode. 

The Mechanics 

The computer program and the audio 
may be put on the same cassette or on 
two different ones. The following instruc- 
tions are presented as though a single 
cassette is used. 

• In the introduction of the program, 
the students should be instructed to re- 
move the computer plug from the ear- 
phone jack and to leave the cassette ma- 
chine in the play position. 

• At each point in the computer pro- 
gram where audio is needed, insert this 
line: 
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Digital IC Probe fr Logic Pulser 

PRB- 1 DIGITAL LOGIC PROBE 
Compatible wltli DTL, TTL CMOS, MOS and Microprocessors using a 4 to 18V power supply. Thresholds automatically 
programmed. Automatic resetting memory. No adjustment required. Visual indication of logic levels, using LED's to 
show high, low, bad level or open circuit logic and pulses Highly sophisticated, shirt pocket portable (protective tip 
cap and removable coil cord). 

Automatic threshold resetting • DE to > 60 MHZ 
Compatible with all logic families 4-18 VDC • lONsec pulse response 
8upply V P to 1 70 VDC • 180 K n Impedance 
No switches/no calibration • Automatic pulse stretching to 80 Msec. 
Open circuit detection • Automatic resetting memory 
Range extended to 18-28 VDC with optional PA- 1 adapter 
PLS 1 LOGIC PULSER 
The PLS- 1 logic pulser will superimpose a dynamic pulse traln( 20 pps) or a single pulse onto the circuit node under 
test. There Is no need to unsolder pins or cut printed-ctrcult traces even when these nodes are being clamped by digital 
outputs. 

PLS-1 is a multl-mode.hlgh current pulse generator packaged in ahand-held shirt pocket portable Instrument. It can 
source or sink sufficient current to force saturated output transistors in digital circuits Into the opposite logic state. 
Signal Injection is by means of a pushbutton switch near the probe tip. When the button is depressed, a single 
high-going or low going pulse of 2m sec wide is delivered to the circuit node under test. Pulse polarity is automatic: 
high nodes are pulsed low and low nodes are pulsedhigh Holding the button down delivers a series of pulses of 20 pps 
to the circuit under test. 

High input impedance( off state) 1 meg ohm • Multl mode-single pulses or pulse trains 
Low output Impedance (active state) 2 ohms • Automatic polarity sensing 

Output pulse width 2 Msec nominal • Automatic current limiting; 7 amps nominal 
Input over voltage protection -60 volts • Automatically programmed output level 
Pinger tip push button actuated • Circuit powered 
Power lead reversal protection • No adjustments required 
Multl-lamilyRTL. DTL, TTL, CMOS. MOS and Microprocessors. 
PRB1 DIGITAL LOGIC PROBE $36.98 PA 1 HIGH VOLTAGE ADAPTER 

PCI POWER CORD. Alligator Clips $4.98 PT2 REPLACEMENT PROBE TIP( 2) 11.60 

PC 2 POWER CORD. Micro Hooks S9.9S PLS 1 LOGIC PULSER 148.99 

OK Machine & Tool Corporation - * 

3455 Conner St., Bronx,N.Y. 10475 U.S.A. 
Tel. (212) 994-6600 Telex 125091 

V 'Minimum billings $28 OO, add shipping charge *2 00 

New York 8tate residents add applicable tax 



^Heeaer Service -see page 274 
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GOSUB6000 

• Put this subroutine in any appropri- 
ate place in the program: 

600 OUT 255,4 

6010 PRINT0965, "AUDIO ON . . . 

6020 IF INKEYS < > "G" THEN 6020 

6030 PRINT0965. STRINGS05.32). 

6040 OUT 255.0 

6050 RETURN 



Each time program execution transfers 
to the subroutine, line 6000 starts the cas- 
sette motor. Line 6010 puts a message at 
the bottom of the screen and line 6020 
stops execution of the program while the 
audio is playing. When the letter G is 
typed, execution falls through to line 6030 
which removes the audio message from 
the screen. Line 6040 stops the cassette 
motor and line 6050 transfers execution 
back to the main program. 

• When you have finished writing and 
debugging your program, CSAVE it. Then, 
with the cassette machine completely dis- 
connected from the 80, record the audio 
segments in the appropriate sequence. 

• The first audio segment should be 
concluded with words similar to these: "It 
is almost time to return to the other part of 
the program. When you hear the beep 
tone, press the letter G on the keyboard. 
When the beep tone sounds, you should 
press the letter G for GO (BEEP)." 

• Each subsequent audio portion 
should be ended similarly. 

• The cassette will continue to run until 
the letter G is pressed. The space between 
your audio segments should be sufficient 
to allow time for the student to find and 
press the G. 



Summary 

This new combination of interactive 
programming and recorded audio seg- 
ments can be advantageous in many dif- 
ferent applications. It works well in almost 
any type of formal or informal instruction- 
al program. The method can be used to list 
rules and conditions in game programs. 
Business programs, too, often contain a 
considerable amount of explanatory ma- 
terial. 

The computer/audio technique is great 
for pointing out the major facts about a 
chart on the screen, adding sound effects, 
putting sound and printed words together 
in the study of phonics, sound and notes 
in music and so on. 

Give the computer/audio program tech- 
nique a try on your next project. You'll 
discover just how easy it is to multiply 
your memory. ■ 



THE ASSEMBLY LINE 



by William Barden, Jr. 



n the early 60s, I attended an assembly 
language class which used a Scientific 
Data Systems computer. One of my fellow 
students was asked to key in his version 
of a homework assignment from the con- 
trol panel of the computer. The instructor 
then asked him if he was confident that 
the program would work. The student re- 
plied that it would work because the ER- 
ROR light on the control panel didn't 
come on as he entered the machine lan- 
guage program. 

These days we are all more sophisticat- 
ed about program debugging than that. 
Debugging however, remains just about 
as tedious and frustrating as it was then. 
In this column we'll take a look at the 
general technique of debugging assembly 
language programs, the debugging tools 
available and final testing of programs. 

Using T BUG 

T-BUG is Radio Shack's cassette-based 
debug package. It provides rudimentary 
debugging functions, but can be used ef- 
fectively to debug programs of any length. 
T-BUG normally occupies RAM from loca- 
tion 4380H to 497FH. Many people have 
relocated T-BUG to different memory 
areas by disassembling T-BUG, observing 
which instructions were non-relocatable 
and changing addresses accordingly. 
This was mostly done early in the TRS-80 
game when there was only T-BUG and 
Small Systems Software RSM-1 available 
for debugging. 

T-BUG can be put onto disk by relocat- 
ing it to upper memory (above 6FFFH) and 
using the DUMP command of TRSDOS to 
write it out as a CIM (core image module). 
You'll probably want to use the disk 
DEBUG package instead, and I'll continue 
to assume so in the following discussion. 

Let's assume that you have T-BUG on 
cassette or disk and want to debug an as- 
sembly language program. First, get the 
object of your program and T-BUG into 
memory at the same time, by using the fol- 
lowing procedure: 

1 ORG your program at an area that 
does not conflict with T-BUG. Assemble it, 
check for errors, edit and reassemble if 
necessary and create an object tape on 
cassette. 

2 Load the object tape you created by 
using the Level II monitor mode. Type 



SYSTEM after the > prompt of Level II and 
then type NAME after the *? prompt of the 
monitor mode to load the object file. 
NAME is the name you used in assem- 
bling your program. If you did not use a 
name, NONAME is used as a dummy 
name. 

3 Load T-BUG by typing TBUG after the 
*? prompt that follows a successful load 
of your object tape. 

4 Type / ENTER after a successful load 
of T-BUG. You should now be in T-BUG as 
evidenced by a clearing of the left section 
of the screen and the # prompt. 

An alternative to this is to load T-BUG 
and use it to key in the machine language 
code for a program to an area of memory. 
This is useful if you find a listing in 80 Mi- 
crocomputing or elsewhere and don't 
want the agony of entering and assem- 
bling the source code. Make certain that 
the location of the program doesn't con- 
flict with the T-BUG area, and, that ail the 
code is there. T-BUG shines at rapid entry 
of machine language bytes; you can enter 
them as fast as you can type! 

First Steps in Debugging 

You've got your program and T-BUG in 
memory and are in T-BUG. Much of your 
debugging should have been done al- 
ready! You should have gone through 
your listing several times in detail and 
"desk-checked". Assembly language pro- 
gramming is not interactive; if you find er- 
rors, you'll have to edit, reassemble, and 
reload, and you'd like to keep that to a 
minimum. 

Table 1 lists the T-BUG commands 
available. Basically, all you can do is ex- 
amine memory locations and register con- 
tents, set breakpoints, and read and write 
cassette tape files. 

Is it possible to debug effectively with 
such a limited number of commands? 
From my experience with T-BUG, DEBUG 
(disk), RSM (Small Systems Software), 
Z-BUG (Microsoft's EDTASM-PLUS De- 
bug), and a number of minicomputer and 
large computer debug packages (half of 
which seem to be named so that their ini- 
tials spell out "DDT"), I would have to say 
yes. 

I would say that the time spent debug- 
ging a 1000-line program with T-BUG vs. 
the time spent with the most powerful de- 
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*B aaaa 


Set breakpoint at nex location aaaa 






»F 


Fi<" previous bruaHpoim Use after breakpoint. 






ra 


Continue from breakpoint 






*.) aaaa 


lump ii hex location aaaa 






*L 


LoarJ a T-BUG or SYSTEM tape 






»M aaaa 


Display -or.atiop aaaa Ef'tt'f rni* v.iluc if conlen 
ENTER i! OK. 


b to bu i_'ia r iget 


or simply 


#P aaaa bbbb cccc name 


Write cassette 'mm aaaa through botit) with st.i 
name NAME. 


twit; aildruss ■.;<.< 


c a'iu file 


#fl 


Display 'ocjislttrs 






X (after M, J, B. Pv 


Exit operation. 

Table 1. T-BUG Commands 







bugger would be no more than twice as 
long. One does not continually enter a 
stream of commands to the debug pack- 
age—there's a lot of head scratching go- 
ing on in between. The exception to this 
might be Microsoft's Z-BUG, where edit- 
ing and reassembling can be done with- 
out reloading on an interactive basis, en- 
abling efficient program development. 

The procedure commonly used with any 
debug package is this: First, every pro- 
grammer tries one run to see if by some 
miracle it works just as expected the first 
time. (It doesn't.) 

Next, a search for gross errors is done. 
This Is not a systematic procedure, since 
there will probably be bugs popping out at 
you on execution. Use the B command to 
set a (B)reakpoint and then execute a 
J(ump) to the start of your program. The 
breakpoint is exactly that— the program 
will be executed until the breakpointed in- 
struction is reached and then T-BUG will 
be re-entered. This gives the user control 
so the program doesn't bomb. If a pro- 
gram hang-up occurs, the program and 
T-BUG will have to be reloaded, or it may 
be possible to RESET the CPU and restart 
T-BUG at location 43A0H (by SYSTEM and 
17312/). 

T-BUG implements the breakpoint by 
putting a CALL 4380H into the breakpoint 
location. This can have disastrous results 
(Fig. 1 ), where the 43H wipes out a variable 
used earlier! 



When the breakpoint is reached, vari- 
ables, buffers, or other memory locations 
can be examined for proper contents by 
using the M(emory) command to display 
memory locations. The R(egister) com- 
mand displays register contents. The M 
command can modify any location by typ- 
ing in a new value in hex. 

One of the failings of T-BUG is that reg- 
isters must be modified by altering memo- 
ry locations associated with them. 

The F(ix) command restores the original 
values to the breakpointed location. After 
the breakpoint is fixed, a G(o) can be used 
to continue from the breakpoint after a 
new breakpoint is established. 

Binary Search for the Next Error 

Debugging using T-BUG proceeds in 
this fashion: establishing one breakpoint 
at a time, reaching it, examining variables 
and buffers for proper results, and estab- 
lishing a new breakpoint. The process 
evolves into a binary search for the next 
error— breakpoint halfway through, see if 
the breakpoint is reached. If not, establish 
one earlier, and so forth. This is not 
sophisticated debugging, but it works. 

The P(unch) and L(oad) commands can 
be used to write and read in T-BUG cas- 
sette files. T-BUG files have a format iden- 
tical to SYSTEM tapes produced by 
EDTASM. If you're working with a large as- 
sembly language program, it's convenient 
to patch and save the program on cas- 





SOURCE CODE 


MACHINE CODE 
BEFORE BREAKPOINT AFTER 


8000 
8003 
8006 
8006 


LD A, (LOCNi 3A0580 
Jfl NEXT 1801 
DEFB 33H 33 
LDB> 47 






3E0580 






CD 80 

43 






"i 












CALL 4380H 
WIPES OUT 33H 
AT LOCN' 




Figure 1. 


T-BUG Breakpom 


t Problem 





sette every so often. This way the patched 
program can be reloaded. Since T-BUG 
can be saved in the same tape file, a 
P(unch) command can produce one enor- 
mous file including the patched program 
and T-BUG; this can then be reloaded with 
a single SYSTEM command. 

Patching 

Patching is the process of deleting, 
modifying, or inserting machine code 
directly to the object or machine code in 
memory without reassembling. Here's an 
example: Suppose we want to add two in- 
structions after PATCH in the program of 
Fig. 2. Obviously there's no room between 
the instructions (or little, anyway). The in- 
structions are added to a patch area 
somewhere in memory and the code is 
modified as shown. 

Here's a philosophical question— when 
should you patch and when should you re- 
assemble? You should certainly patch if 
you are sharing a TRS-80 with 32 other 
programmers and you can't get on the 
machine to reassemble for six days. You 
should certainly not patch if you are using 
EDTASM-PLUS with in-memory assembly 
capability. 

For all other conditions, you should 
patch whenever you find errors that can 
be corrected by modifying one instruction 
(such as changing the register in LD 
R1.R2), by deleting one or more instruc- 
tions, or by inserting instructions. 
Reassemble whenever you have patches 
of more than a dozen or so. 

To patch you must do some hand as- 
sembly of instructions. Another way to 
find the proper instruction configurations 
without manual assembly is to look 
through your listing to find identical or 
similar instructions for the patch. The 
patch area may be adjacent to the pro- 
gram, or it may be anywhere in RAM. If it is 
close to the program area, it is easier to in- 
clude it in a P(unch) command. 

Using DEBUG 

If you have a disk system the debug 
task is more convenient. DEBUG can be 
called off disk. It loads into the system 
utility area. If you are using the Apparat 
EDTASM, MISOSYS EDTASM, or the 
Radio Shack Disk Assembler, source files 
can be saved on disk and object files writ- 
ten to disk. The latter feature makes it 
easy to reload the machine code for 
debugging purposes. The sequence for 
loading the object and transferring con- 
trol to DEBUG goes like this: 

1 After TRSDOS DOS READY, prepare 
DEBUG by typing DEBUG. TRSDOS will 
come back with DOS READY again. 
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THE ASSEMBLY LINE 



LOCATION 


SOURCE CODE 


BEFORE PATCH AFTER PATCH 


8000 


PATCH LD B.A 


47 


47 


1 


CALL SUBR1 -*i 


CD03B0 


| C300CO| 


4 
7 


CALL SUBR2 


CD1FB0 


j CD1FB0 
JP TO PATCH 












AREA AT COOOH 




PUSH AF 








PUSH BC 




ro 






INSTRUCTIONS 




BE INSERTED. 






COOO 

(PATCH 

AREA) 








REPLACES 

DESTROYED 

INSTRUCTION 


F5 
C5 

CD03B0 
C304B0 


/ 


PUSH AF 
PUSH BC 




CALLSUBR1 


:- BOOCJH 


/ 

INSERTED 
INSTRUCTK 


)NS / 






JUMPS BACK 






TO8004H 








Figure 2. Patching Code 





A 


Display in ASCII. 


C 


Single step Instructions, but execute CALLS in full. 


Daaaa (SPACE) 


Display from hex location aaaa. 


Gaaaa i.Dbbtx.ccccil 


Execute at location aaaa with optional breakpoints bbbb. cccc 


H 


Display in hexadecimal 


1 


Single step instructions. 


Maaaa (SPACE) 


Set modification address to aaaa and display data 


Rrp dddd (SPACE) 


Load register pair with dddd. 


S 


Full screen display. 


u 


Set dynamic display update mode. 


X 


Cancel command, set display to register mode 


. 


Increment memory display to next block. 


- 


Decrement memory display to last block. 




Table 2. DEBUG Commands 



2 Load the object module output by Ap- 
parat, MISOSYS, or the RS disk assembler 
by LOAD NAME. 

3 Hit BREAK to enter DEBUG. 

The DEBUG commands are shown in 
Table 2. DEBUG permits the same opera- 
tions as T-BUG, but displays a screen full 
of memory contents or a combination of 
memory and register contents. More than 
one breakpoint may be specified, which is 
a decided advantage as there is invariably 
more than one path through the program 
to be checked. 

After each patch has been made, the 
patched core image can be written out to 
disk by performing a G402D, which re- 
boots TRSDOS, and then doing a DUMP 
NAME (START = X , aaaa\END = Xbbbb\ 
TRA = X'cccc'). Be sure to include the 
patch area in the area to be DUMPed. The 
DUMP will create a new NAME file or re- 
place the old NAME file which can then be 
LOADed as before. 

As with T-BUG, too many patches get 
confusing, and at some point it's best to 
do a new edit and reassembly. 

DEBUG includes a command to single- 
step instructions one at a time. Single- 
step through Level II or TRSDOS routines 
to supplement information gleaned from 
disassemblies. Single-step can be also 
used to trace a path through your program 
to find out where a variable gets clob- 
bered, or when an unexpected path is 
taken. 

Small Systems Software RSM-2 

Small Systems Software was one of the 
first companies to bring out a significant 
piece of software for the TRS-80. Their 
RSM-2 and RSM-2D are upgraded versions 



Features of the FATIGUE FIGHTER':" 

B REOUCES OPERATOR FATIGUE THEREBY ALLOWING MORE EFFI- 
CIENT USE OF THE COMPUTER 

B INSTALLS EASILY WITH PRESSURE SENSITIVE ADHESIVE. NO 
SCREWS, CUPS, OR DRILLING TO DAMAGE MONITOR 

B DESIGNED TO MATCH TRS-80' STYLING FROM THE BLACK AND 
SILVER BORDER TO THE LETTERING TYPE FACE 

■ NTS BOTH THE MODEL I ANO MODEL II 

i DOES NOT VfjBJ THE COMPUTER WARRANTY 
B ENHANCES THE APPEARANCE OF THE MONITOR 

■ PROVIDES A DURABLE, EASY TO CLEAN SURFACE 
TO ORDER SEND' Nam* and Address Typed or Clearly Printed with 

' Check or Money Order lor S9.95* Par Unit COO'a 
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Give Your 



■ 

he Best 



e Microline 80 



You can't find a better small printer. The 
Microline 80 will outperform and outlast every 
competitor. It will run all day at 80 cps with 
no duty cycle limitations, producing letter 
perfect printing on plain paper. And the head 
is warranted for 200,000,000 characters. 



u can't find a better value either. The 
croline 80 includes upper and lower case 
..aracters. double width and condensed 
printing, friction and pin feed, six and eight 
line per inch spacing and block graphics for 
charts, graphs and diagrams. And it operates 
with TRS-80 '", Apple and other popular small 
computers. The only extras are snap-on trac- 
tors and a buffered RS232 interface. Give your 
computer the best, the Microline 80. 



TRS-80 is a registered trademark ol Radio Shack, 
ision ot Tandy Corp. 



OKI DATA 



Okidata Corporation 

111 Gaither Drive 

Mount Laurel, New Jersey 08054 

609-235-2600 



Sft APPLICATIONS 



of the original RSM-1 monitor, and they 
are powerful monitors. Monitor here is 
synonymous with debug package rather 
than the earlier meaning of control pro- 
gram or operating system. 

The RSM-2 and RSM-2D packages con- 
tain commands to display and modify 
memory, to transfer control, and to break- 
point as in T-BUG and DEBUG. The pack- 
ages also contain many other useful com- 
mands, such as FIND (search block for 
one byte), HUNT (search block for address 
value), MOVE (move one block to another), 
TEST MEMORY (random memory test), 
EXCHANGE (exchange two blocks of 
memory), ZERO (fill memory block with 
specified byte) and others. 

The packages allow display of memory 
in ASCII or hex, printing of data to a paral- 
lel line printer (or to a serial printer 
through a serial interface), reading and 
writing SYSTEM tapes, reading and writ- 
ing disk sectors (RSM-2D), and, for a grand 
finale, include a Z-80 disassembler for 
displaying code in mnemonics. When dis- 
assembling, none of the original com- 
ments from any code are printed! 

A Zbignew Z-BUG Package 

I don't want to keep harping about cer- 
tain products— but after all, even I have a 
price (roughly equivalent to a box of disk- 
ettes)... The Microsoft EDTASM-PLUS, 
however, really is a superlative package. 
(Alas, it is cassette and not disk based). It 
includes a beefed-up Editor, Macro As- 
sembler, and most importantly, the ability 
to assemble directly in memory. The last 
feature allows the debug portion of 
EDTASM-PLUS to be used on an interac- 
tive basis with the Editor and Assembler. 
The object code of a program can be de- 
bugged, and an immediate edit and reas- 
sembly can be done without reloading. 

Z-BUG includes most of the features 
mentioned above, including disassembly 
and single stepping. Its single, most pow- 
erful feature operates in conjunction with 
in-memory assembly— symbolic debug- 
ging. 

When an assembly is performed, the 
machine code is automatically assem- 
bled in the next available (or user speci- 
fied) section of memory. At the same time, 
the assembler symbol table is preserved. 
This symbol table can be referenced by 
Z-BUG to examine memory locations sym- 
bolically. For example, you can type 
"TABLE/", and Z-BUG will search the sym- 
bol table for the location of TABLE, and 
then display its contents. Data can also 
be input in symbolic form— a location 
could be modified to the value LOOP + 5, 
for example. 



Program Final Tasting 

The last step of the debugging process 
should be a comprehensive test of the 
final version of the program. A basic pro- 
gramming maxim is that programs never 
work the first time. Here's another: There 
is no final program! 

Programs are released with bugs for 
two reasons. The first is in the nature of 
programs themselves. Programs are de- 
signed to provide generic solutions to 
many permutations of inputs and outputs. 
Not all permutations can be tested— there 
are simply too many possibilities. As a re- 
sult, programmers pick representative in- 
puts and outputs for testing. In the worst 
cases, a few runs are made through the 
program and the program is then pro- 
nounced "tested". In the best cases, a 
test plan is drawn up and the program is 
tested by a test driver. It's entirely possi- 
ble that the final testing phase could take 
25 percent of the total time spent develop- 
ing the program! I'd like to recommend 
the programs of a company that does this 
comprehensive final testing, but they've 
unfortunately gone out of business. . . 

Which leads us to the second reason 
there are bugs in final versions of 
TRSDOS, NEWDOS, VTOS, Level H BASIC, 
and just about every other program. As 
every programmer working in a commer- 
cial environment knows, there is always a 
great deal of pressure to finish a program 
so that it can be sold. This holds true in 
TRS-80 software companies as well. 

We'll just have to live with the bugs, fer- 
ret them out, and hope that the companies 
correct them. Meanwhile, make it a goal to 
do some final testing of your assembly 
language programs. End of sermon. 



Still Another Model I Assembler 

Roy Soltoff of MISOSYS sent me a copy 
of his MISOSYS Disk Mod. (I suspect he 
wanted me to use it, like it, and write about 
it in this column.) 

The Disk Mod is a set of patches for RS 
EDTASM that converts it to a disk as- 
sembler with source and object file 
storage on disk. Other features I found 
handy were the ability to interface a serial 
printer, and page formatting. In short, this 
version of EDTASM contains all of the Ap- 
parat changes to EDTASM plus others. 
I've used this and I like it. (OK, Roy, you 
can send that box of diskettes). 

Next month we'll have the results of the 
Third Assembly Line Programming Con- 
test. (I'm getting the Amana ready for 
shipment to the winner now. . . ■ 



%Q INPUTS 

Continued from page 28 



Printer Pagination 

One of the less than desirable features 
of Radio Shack's Printer I with the roll pa- 
per is that there is no way to get page 
spacing when LLISTing a long program or 
printing a long calculation report. At least, 
there is nothing in the documentation to 
cover this. 

Dr. Lien's "Learning BASIC II" tells us 
that the standard printer page length is 66 
lines and that this quantity is stored at 
memory location 16424. Also, stored at 
location 16425 is the variable that tells the 
computer how many lines the printing 
head has moved away from the last top of 
form positioning. The command "LPRINT 
CHR$(12)" moves the printing head to the 
next top of form and restores memory lo- 
cation 16425 to to start recording the 
new page. 

Try this little routine. Disk save a long 
program (more than 100 lines) in ASCII- 
save "BUDGER/BAS", A. Now it can be 
read and inputted as a sequential file. 
Now run this little program: 

10 CLEAR 500 

20 OPEN-TM. "BUDGER/BAS" 

30 FOR N = 1 TO N:'N = YOUR NUMBER OF LINES 

40 IFPEEK(1642S) = 50THENLPRINTCHR$<12)ELSE50 

50 UNEINPUTH 1, R$ 

60 LPRINT R$ 

70 NEXTN 

80 CLOSE 

90 LPRINT CHR* 12) 

There it is, your long printout is paginat- 
ed and you can fold it or rip it into equal 
pages, side punch, and store in a binder. 
Many other things can be done with PEEK 
(16425)! 

Richard Halloran 
San Francisco, CA 



Qwikdisk 



In your article in the September issue 
called QWIKDISK, the 09H and 19H num- 
bers gives 12ms step times not 10ms. The 
08H and 18H numbers also give only 12ms 
not 5ms step times. 

This information is based on Western 
Digital's data sheets for FD1771-01 Flop- 
py Disk Formatter/Controller and my own 
experiments. 

Eric Espenhahn 
Lake Park, FL 
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OUR CHRISTMAS GIFT 

THE ALPHA GREEN SCREEN AT HALF-PRICE 



.1 CI H llMtll H 



WITH ANY PURCHASE 




TWICE 



TO 
THE FUN TRS-80 



STICK M MAKES KEYMARO OBSOLETE 

Features the famous ATARI Joystick 8 dMeciic 
control Simpl* instructions to mjke roysiick versions Ot 
most action games Plugs into keyboard or expansion ml 
Price includes ATARI joystick with ALPHA interlace and 
instructions FREE MAGIC ARTIST program $29 95 

- 

HACER 

'" "A ' .I"l! Ill ■iil.,'j . /Ill >..' ' . ' • 

■ park ape in' 




MUSIC M MUSIC-BO MUSIC-BO MUSIC-tO MUSIC-W 

ottware 

or write your own *'!'• Ml ow ml 8 Oil 

analog convener you ca" synthesiie up 'o 5 mus>c voices 

Built m volume control handy wner> stereo no' near IRS 80 

Simply plug the MUSiC 80 nto me «eyboarfl c 

screen printer port and connect the output (HCA iaO I to any 

amplitie' The Radio Shack S'2 speake'-ampuiier works 

line 

F ulry assemtxed and tested. 90 day warrant, $"■'. 



w* 




:s xa xs X2 ^ 

YOU ASKED FOR IT FXPANOABUS XI X? X3 ANO X4 
CONNECT All YOUR TRS 80 DEVICES SIMUITANI 
on the 40 pm TRS-80 bus. Any device mat normally plugs 
into tne keyboard edge connector win also piu . 

LXPANDABUS The «4 is shown with protective 
covers (included) me trs-80 keyboard contains tne bus 

41 S367I lor up to ?0 devices mo'e tlu . 
ever need Using the E-'i it plugs either between KB and E' I 
or m the Screen Printer port Professional QuaMy gold 
Dialed contacts Computer grade 40 conductor ribbon caoe 

«3 $44 X4 $59 »i $'4 

Custom configurations are also available call us 




ANALOG BO A WORLD OF NEW APPLICATIONS POSSIBLE 
8 DUCTAL VJl'IMETERS PLUGGED INTO YOUR TRS SO'" 

■'jre Voyage Current L<gnt P'essu'* etc 
Very east lo use lo« example w s read mput channel * 4 to 
OUT 4 Selects input »4 and also starts the conversion ?0 
A iNPiO' Puts MM -esull m variable A 
Specifications Input range IV to 5O0V Each channel 
can be set to a ditlerent scale 

Resolution ?OmVion5V rangei Accuracy 8 bits! 5% I Port 
Address jumper selectable Plugs into keyboard bus or E'l 
i screen printer port i Assembled and tested 90 day warrant, 
C o m pl m with poem supply connector manual $1W 



only 
13" 



LET THE CHAIN BREAKER FREE YOUR MINI-DRIVES 

End if* daisy-cham mess once and tor all. Fit) l 
drives Percom Aerocomp Shugart, Miaoooirs. M 
Pertec Siemens BASF Easy to install |usi remove the 
drive cover plug ■ the CHAIN BREAKER and replace the 
cover Voea'" 

Now you can change and move your drives around without 
disassembly Keep the cover on and keep tne dust out High 
i gold plated contacts, compute' grace M 
conductor cable Tested and guaranteed 
Get one for each dnve only $13 95 



INTERFACER 2 LOW COST INPUT/OUTPUT MODULE 

Stii' me best va'ue in sense/controi devices 

energy control burglar warm, darkroom seiectric drrve 

model trains robots Skinner box 

-8 latched TTl outputs 2 relays SPOT 2A !?5V contacts 

—8 rti/CMOS inputs input and I are optically isolated 

- Neat and compact design very easy to use 

"J A iNPlOlReads the 8 inputs (if A = all inputs are 

■owl 20 OUT . X Controls the outputs and the 'days 

Assembled & tested. 90 day warranty Price memoes power 

supply, cane to KB or t/\ Superb user s nu 

phone dialer program $95 Manual only $5. 



power relays unde. 

your 



• 3 r*?, % I 
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INTERFACER-80 !"!• •..*■'. 

•8 industrial grade reiays single poie oouwe inrow isolated 
contacts 2 Amp e '2'-> • ' outputs are also 

accessible to drive external solid iliM 

• 8 convenient lEDsconstj- v stales 

Simple "OUT commancs 1 1" basic control me 8 relays 

•8 optically isolated npM icing to 

external swrtches photocells keypads sensors etc 
Simple ' INP' commands read the status ot tne 8 inputs 
Selectable port address dean, compact enclosed design 
Assembled, tested. 90 days warranty Price includes power 
supply cable, connector superb user s manual $159 



WARNING 



IBM and a" Ihe biggies are using green screen monitors 

lis advantages are now widely advertised we teei mat every 

TRS 80 user should en|oy the benefits it pm. 

WARNING, ai Green Screens are not created eo,uji Mere is 

what we found 

•Several are MM a rial piece of standard colored 

green tint was not made 'or this purpose and is judged by 

many to be too dark increasing the brightness control MM 

result in a tu/fy display 

•Some are simply a piece of thin plastic Mm taped onto a 

cardboard irame The color is satisfactory but Ihe wobbly film 

gives it a poor appearance 

•One optical filter is n 'act piam acryhc stunting 

•False claim A few pretenc to reduce glare in taci men 

llat and shmy surfaces (both film »pi luote type I ADD Ihe" 

own reflections to the screen 

•A few laughs O reduce screen contrast 

Sorry gentleman but it s |u$l the opposite One of Ihe Green 

(to increase the contrast between 
the text and me background 
•Drawbacks Most are using adhesive stnps to I 
screen to the moniior this method makes ft awkward 10 
remove for necessary periodical cleaning An leicept oursl 
gM pens will not work reliably because o' me b<g 
gap between the screen and the lube 
Many companies i\avt been manufacturing video filters tor 
years We are not ihe first (some think they are) but we nave 
done our homework and we think we manufacture the best 
Green Screer HMn 

• 1 • onto the picture tube like a skm Mca . 

M , CURVED KKMM MOIOED »iactly lo the ptd 

■• , to cover the exposed area of me 
picture tube The tit is sucn that the static electricity is 
sufficient to keep it m place' We aiso include MM 
reusable tape tor a more secure fastening 
•The filter material that we use is |ust right, not too dark nor 
too light The result is a really eye pleasing display 
We are so sure that you wrii never take you' G'een screen off 
that we otter an unconditional money back guaraniy try ou' 
Green Screen tor 14 days it for any reason you are not 
delighted with it return it tor a prompt refund 
A last word We think that companies Rktl ours who are 
selling mainly by man should «"'St their street addresswave a 
phone number (tor questions and orders k-accepl CODs not 
every one likes to send checks to a PO boxwiter me 
convenience ot charging then purchase 10 major credit cards 
How come we are tne only green screen people doing it 1 
Order your ALPHA GREEN SCREEN today $1? 50 
Or enjoy our Christmas gilt and pay only $6 ?5 when you 
order anything else 

^497 



ALPHA Product Co. 



A00 S? 50 PER ORDER FOR SHIPPIN6 AND HANDLING 

All OROERS SHIPPED FIRST CLASS MAIL 

WE ACCEPT VISA MASTER CHARGE CHECKS MO 

COD ADOS? 00 EXTRA 

QUANTITY DISCOUNTS AVAILABLE 

N Y RESIDENTS ADD SALES TAX 



85-71 79 St.WOODHAVEN NY. 11421 S info and order: (212)296-5894 
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Model I & II Software 



Where Your TRS-80 Means Business — 
The Best in Model I or II Programs Available Now! 



?- 



MODEL 1 

Complete Business System 

This integrated system includes 
Invoicing, Inventory Control. Accounts 
Receivable, Accounts Payable, 
Payroll. General Ledger and Word Pro- 
cessing. A complete Business System 
tor your Model 1 

SPECIAL OFFER 




MODEL II 

— Business System — 

Complete with all manuals. This Is one 
of the best and most complete 
Business Systems for your Model II. 
Best of all it is easy to use. Enter the 
world of the Model II with a system 
that works! 



MODEL I 

Medical/Dental System 

Complete System — Easy to use! Now 
you can use your TRS-80 where you in- 
tended to use it - in your office! Give 
us a call for complete details on this 
new Complete Package. 

SPECIAL OFFER 

Special 



• SPECIAL * 
Verbatim 5 1 /*" Mini Disks 

Box (10 Per Box) 



Verbatim 8" Floppy Disks 

Double Density FD34-8000) 

Box (10 Per Box) 
Limit 4 Boxes Per Customer 

•Of FER GOOD WHItE QUANTITIES LAST 




MODEL II 

CP/M Release 2.2 

Including Utilities and full documenta- 
tion. This is the CP/M designed for the 
Model II. 

SPECIAL OFFER *169 oa 



Including CBASIC-2 
CBASIC-2 ONLY 



Before You Buy Any Software 
Call Us First! 

MODEL II 

Medical/Dental System 

Same as above with much more! This 
System also includes our computer- 
Based Patient History System. THE 
BEST! 

Special 



4 



5 Free Data Diskettes with 
each Complete Business System 

All Programs Supplied on Diskette * 
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V 



Hotel/Motel System 



Property Management System 
*549 95 



MODEL II 

MAGIC WAND 
— Word Processing System — 

This System offers the best features of 
any system on the market, including 
the best documentation. 

Special 



STRUCTURED SYSTEMS GROUP 

General Ledger $729 95 

Accounts Receivable $729.95 

Accounts Payable $729.95 

Payroll $729.95 

Inventory Control $429.95 

Analyst $189.95 

Letterright $165 95 

NAD $ 79.95 

QSORT $ 79.95 



MANUALS 

OSBORNE/McGRAW HILL 

Accounts Receivable/ 

Accounts Payable $18 95 

Payroll w/Cost Accounting $18 95 

General Ledger $18 95 

CBASIC 2 Manual $12.95 

Structured Systems Manual $24 95 

Graham Dorian Manual $34 95 

Magic Wand Manual $34.95 

Word Star Manual $34 95 

CP/M Handbook (Sybex) $12.95 



MICROPRO 

Word Star (Ver 2.1) $329.95 

WordStar w /Mail-Merge $479.95 

Data Star $279.95 

Word Master $119.95 

SuperSortl $189.95 

SuperSortll $159.95 

SuperSortlll $119.95 



GRAHAM-DORIAN 

General Ledger $779.95 

Accounts Receivable $779.95 

Accounts Payable $779.95 

Payroll $479.95 

Inventory Control $479.95 

Invoicing/Order Entry $779.95 

Cash Register $479.95 

Apartment Management $479.95 

Job Costing $779.95 



Looking for a Specific Program at the Best Price - Call Us Today! 
Thinking Business - Take Advantage of these Limited Offers. 

We now handle software to support many microcomputers other than the TRS-80* 
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Software-Mart 

24092 PANDORA STREET 
EL TORO, CALIFORNIA 92630 

24 HOUR HOT LINE 

(714) 768-7818 (in California) 
1-800-854-7115 

SOURCE MAILBOX: TCU1S5 
Give us the Opportunity to Beat any Nationally Advertised Price! 

"OUR BEST AD'S ARE NOT WRITTEN - THEY'RE RUNNING ON TRS-80's" 

•Quantities "mited on some .|pms • *HS HO is a tademaik ol Radio Stuck • Mag.c rtar-d is a fademanV o' Small Business At>plic*t'on» • CP/M i* * trademark o' 
Digital Reseaich Inc • AM So'l**** is so»d on an Mil basis »nd without wat-anty • Puces and programs aie subject to Chang* «Hho»j' notice »AdJ $2 IX) 
Shipping A handling or imi .)■ iiije' — 

OFFER EXPIRES 1/31/81 




• Reader Service — see page 274 
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SO REVIEWS 

Edited by Pamela Petrakos 



"A group of composers, with their ears 

tuned to the future, had developed 

musical techniques on early 'monster' 

computers, and an unfamiliar, disquieting 

kind of 'computer music' was born." 



BOOKS 



O O O 



T 



M 



"1001 Things To Do 

With Your Personal Computer" 

Mark Sawusch 

TAB Books, Inc. 

Blue Ridge, PA 

$12.95 Hardcover, 335 pp. 

$7.95 Softcover 

by Fred B lech man 

robably the most annoying question 
aimed at computerists by non-com- 
puterists is, "OK, so what can you do with 
it?" Mark Sawusch addressed this ques- 
tion and came up with over 1000 answers! 

Sawusch's 335 page book is an amaz- 
ing collection of practical ideas and pro- 
grams divided into 12 broad categories, 
and includes a glossary, appendix and in- 
dex. Each category contains at least 
several, and as many as dozens of poten- 
tial applications. A run through the 
chapter titles indicates the enormous 
scope of this book: Applications for Every- 
one, Business and Financial Applica- 
tions, Technical and Scientific Appli- 
cations, Educational Applications, Hobby 
Applications, Games and Recreational 
Applications, Control and Peripheral Ap- 
plications, Artificial Intelligence and The 
Future Personal Computer, Utility Pro- 
grams, Miscellaneous Applications and A 
Compendium of Additional Applications. 

The four page glossary explains the 
meaning of common computer and pro- 
gramming terminology. The appendix 
covers financial formulas, gives ad- 
dresses of 78 microcomputer manufac- 
turers, contains a table of metric conver- 
sions and presents 11 flowcharting sym- 
bols. 

All in all, this book is really overwhelm- 
ing! Although it contains 75 actual pro- 
grams (several running over four pages!), 
this book is not intended as a how-to book 
as much as a what-to-do book. More than 



1000 ideas are offered, and covered in suf- 
ficient detail to provide a basis for a vir- 
tually unlimited number of spin-off ideas. 

I was particularly impressed with the 
supporting information provided in many 
of the chapters. Simple formulas are used 
throughout, so you can easily develop 
your own programs by building on or alter- 
ing the example programs provided. Dia- 
grams, flowcharts and illustrations are 
sprinkled throughout. The type is large 
and easy to read and the program listings 
are in bold typeset— not hard to read re- 
duced photocopies of matrix printing! 

Although I couldn't find mention of the 
programming language anywhere in the 
text, it appears that all programs are 
Radio Shack TRS-80 Level II BASIC, with 
some programs designed for disk use. 
This means they can be adapted to the 
majority of microcomputers that use 
Microsoft BASIC. There are no machine 
language or assembly language programs 
included. 

My criticisms of this book are in the pro- 
grams and listings. Some programs are 
very long, yet no indication of memory re- 



quirements are given. It appears that 
some would exceed 16K, and sometimes a 
program that looks short uses extensive 
string or array space. I would like to see 
each program with a REM line indicating 
memory needed, and whether the pro- 
gram can be used without disk. 

Also, because each of the programs 
has been typeset rather than photocopied 
from an actual listing, there are numerous 
typesetting errors. This, together with the 
fact that the author has made no attempt 
to explain the line by line operation of the 
programs, and has not listed the variables 
and their usage, makes this a book too ad- 
vanced for beginners. While a beginner 
could certainly key in and RUN the pro- 
grams, the main thrust of the book is to 
stimulate ideas for those already familiar 
with BASIC programming. 

My hat is off to Mark Sawusch for the ef- 
fort and imagination he used writing this 
extremely stimulating book. If you are into 
BASIC programming, you'll probably find 
enough ideas and examples here to keep 
you and your computer busy for 01 100100 
binary years! ■ 



An Introduction to Computer Music 

Wayne Bateman 

John Wiley & Sons, Inc. 

New York, NY 

Hardcover, 314 pp. 

$24.95 

by Dennis Bathory Kitsz 

omewhere, a mechanical voice sings 
"Daisy, Daisy, give me your answer 
true." Some time ago, an enthusiastic 
high school science teacher played us an 
experimental recording of that song, and, 
with half chuckle, half sigh, acclaimed it a 
portent of things to come. 

A group of composers, with their ears 
tuned to the future, had developed musi- 
cal techniques on early "monster" com- 
puters, and an unfamiliar, disquieting kind 
of "computer music" was born. 

But those were the days when robots 
were imminent; George Orwell's 1984 was 



hardly a decade old. The experiments in 
computer music conducted by Lejaren 
Hiller and others were viewed with a hos- 
tility interbred with fear. 

Renewed Interest 

The appearance of An Introduction to 
Computer Music by Wayne Bateman her- 
alds a renewed interest in the genre. 

The real 1984 is now in sight. An Orwel- 
lian cataclysm seems nearly as quaint as 
the predictive fictions of Jules Verne and 
H. G. Wells. 

Maxwell House coffee jingles have 
brought this musical electronic sound to 
the public. Robert Moog's "music synthe- 
sizer" has made his name as familiar as 
Kleenex. No amateur band was complete 
without one; computer music composers 
were forced to retreat to the safety of the 
universities. 

The production of music generation pe- 
ripherals for the TRS-80 and other person- 
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al computers demonstrates that many 
composers other than academics are now 
enthused about sound and music created 
with the aid of digital circuits. 

Computer music is not merely electron- 
ic music, though, but rather a very versa- 
tile technique of composing and orches- 
trating sound and structure beyond that 
normally available to humans. 

In general, electronic music is any sort 
of deliberate sound created or mutated by 
electronic means, issuing from a loud- 
speaker. In classical terms, electronic 
music can be divided into three overlap- 
ping areas: 

• Concrete music The original music is 
acoustic, meaning it is produced without 
electronic help. Then, that sound is trans- 
formed by electronic circuitry. 

• Synthesized music: Many musicians 
object to this term, claiming that all music 
is real, not synthetic (in fact, I call my own 
synthesizer an "electronic music devel- 
oper" to get away from that artificial 
music term). But the phrase can be gener- 
ally defined as any music originated by 
electronic means and processed through 
traditional audio circuitry (oscillators, fil- 
ters, reverberators). 

• Computer music: This music is gener- 
ated, manipulated and controlled by a 
computer. Normally, only the final presen- 
tation to the listener involves any analog 
(audio) circuitry. 

Bateman's book deals exclusively with 
computer music. The book is neither aca- 
demically thorough nor popular, occupy- 
ing a dangerous middle ground in which 
Bateman is not entirely comfortable. 
Bateman is a lucid writer, but the topic is 
too big. Introduction leaves us confound- 
ed by detail. 

The question of the computer's validity 
as a musical device is briefly discussed in 
the first chapter. Bateman believes in that 
validity, and presents the physical and 
mathematical fundamentals of its tones 
and their harmonics. Frequency spectra, 
additive and subtractive synthesis of 
complex tones, sampling intervals and 
phase relationships are presented. These 
topics are complex, but vital to computer 
composition, so Bateman includes a for- 
midable but inevitable helping of mathe- 
matics. 

Two unsatisfying chapters on comput- 
er operation and languages follow. (Bate- 
man's machine has the unnerving habit of 
giving its accumulator a compliment, rath- 
er than complementing it.) These chapters 
present flow charts and theoretical pro- 
grams in FORTRAN, Pascal and "En- 
glish." BASIC program samples are in the 
appendix. The author does not tell what 



machinery to use to test his theoretical 
programs, on the assumption that the 
hardware (but not the software!) might be- 
come outmoded. This leaves the reader 
unclear on how to "plug in" to the com- 
puter. 

Waveform Analysis 

Successive topics include modulation 
(not musical, but sonic), dynamics and 
waveform analysis. The chapters contain 
a great number of graphs representing 
sonic events. The waveform analysis 
chapter is Bateman at his best, but even 
the experienced composer/programmer 
winces at the convoluted waveforms of 
oboe and clarinet, for which separate 
charts are presented for each of the first 
twenty-one partials! 

Bateman describes the computer's syn- 
thesis of complex tones— sounds which 
cannot be created by sounding objects, 
but are the results of waveforms, manipu- 
lated and reformed, within the composer's 
mind. 

He asserts that this changes the way a 
composer will create new works of art. 
"Here, the composer is in direct control of 
the timbral quality of all the sounds in the 
composition. Consequently, he or she 
must understand the fundamental consti- 
tution of these sounds and the principles 
governing the methods of their produc- 
tion. This is why extensive study of acous- 
tics and waveform analysis must now 
take a prominent place in music theory as 
the electronic medium is brought into the 
art." 



The text discusses recorded and natu- 
ral sounds, proposing a difference in ap- 
proach between the more common analog 
processing and the difficult but potential- 
ly more accurate and reproducible meth- 
od of sound generation with a computer. 

Finally comes the art: Scales and tonal- 
ity are presented with a lucidity and depth 
of understanding surprising and gratify- 
ing. Obviously, Bateman is at home with 
contemporary Western music and its long 
history, and his tone and selected musical 
examples are both to the point and re- 
freshing. 

Bateman has included a probing dis- 
cussion of the dilemmas of the computer 
in modern society, "Machines and Human 
Creativity." Bateman speaks of the per- 
sonification of machines this way: "Any- 
one who programs a computer quickly be- 
comes accustomed to its cold, mechanis- 
tic responses to every instruction, and to 
its banal incapability of humanistic inter- 
action." Bravo for Bateman. 

Introduction to Computer Music re- 
mains an unsatisfying work. It is because 
personal computer users are given no hint 
on how to begin the task of composition. 
Because it seems mathematically de- 
tailed, the book can be overwhelming. 
Also it assumes some knowledge of mu- 
sic theory, and is not directed to the 
growth of the extemporizing composer/ 
performer. But, the book does present a 
topic returned from public banishment, 
and deserves the attention of composers 
and other musicians, as well as computer 
hobbyists. ■ 



KEEPIT Version 2.0 

Dennis Bathory Kitsz 

The Alternate Source (TAS) 

Lansing, Ml 

$9.95 

by Jack Decker 



■ft ■ any folks have purchased the TRS-80 
Model I in expectation of using it for 
serious applications only to discover the 
limitations of the cassette-based system. 
For those unable to justify the added ex- 
pense of moving up to disk operation, 
there is now available a very underrated 
program that could make serious applica- 
tions on the Model I a whole lot easier. 

Written by Dennis Kitsz (a name that 
should be familiar to 80 Microcomputing 
readers), KEEPIT is a utility program that 
packs a lot of power into less than 1K of 
machine code. 



Several Features 

KEEPIT has several features. First is 
the inclusion of the KBEEPFIX routine 
which initially appeared in 80 Microcom- 
puting (February, 1980, pages 14 and 15, 
also see the update which appeared in the 
column on pages eight and nine in April, 
1980). This routine provides keyboard de- 
bounce, automatic character repeat (after 
a short delay) when a key is held de- 
pressed, and an audible beep at the cas- 
sette output port each time a keystroke is 
entered. 

Useful as that may be, the next feature 
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After you play the 
Temple ofApshai, 
you can play 
Sticks and Stones 
for free. 

Within the 200 rooms and catacombs ot the 
Temple ot Apshai, untold treasures await you — 
the hero. All you have to do is elude, outsmart and 



outwit the beasts, monsters and demons lurking 
in the dark labyrinth. Spend minutes or hours on this 
role-playing tantasy - the boldest computer game 
in our Dunjonquest™ series. 

Now, when you order the 'Temple ot Apshai," you 
get the 'Sticks & Stones" board game for no extra 
charge. In tact, if you're not satisfied with the "Temple 
of Apshai," you can return it within 10 days and still 
keep "Sticks & Stones!" 

But don't wait, this special offer is limited. (We'll 
also send you a catalog outlining 
our other exciting com- 
puter games). 



Automated Simulations. P.O. Box 4247, 1988 Leghorn Street ^* 6 
Mountain View, California 94040 Department 80 

Please send me the "Temple of Apshai" (ot: 





Cowafte ($24 95) 


Dirt ($29 95) 


TRS-80 


D 16K, Level II 


□ 32K TRSDOS 


APPLE 


Not available 


G 48K Applesoft In ROM 


PET 


D32K 


Not available 




City. State. Zip 
L ChecK enclosed 
Amount $ 



Charge to: □ VISA [ | MasterCard 
# Expiration date 



(Add $1 00 shipping ond handling charge, plus 6% or 6' ?% tax tor California 
residents ) 



Or chorfle Dy phone (800) 824 7888 operator 861 In California (800) 852 7777 

operator 861 II you prefer call ihese numbers lor a list ol me computer stores near you 



THIS IS WHAT YOUR MAILBOX WILL 
LOOK LIKE IN JANUARY ... if you don't 



send in your 



SO 



microcomputing 



renewal card. 



80 Microcomputing made its debut in January 1980. If you subscribed with 
the first issue for one year, your subscription will be ending with the 
December 1980 issue. To keep your 80 Microcomputing coming uninter- 
rupted, mail in the card today. . .(or Xerox™ the coupon or use the 
subscription card in the back of the magazine.). 

80 Microcomputing has brought you a whole year of exceptional articles 
and reviews plus hundreds of dollars worth of usable pro 
ing to be bigger and better. How can you afford to have ar 

Keep SO Microcomputing in m\ mailbox . . Bill me for 



Name 



Address 
City 



1 Year ft 18 
U 2 yean/$30 
\ Ycar»y$45 



State 



.ZIP. 



(Attach mailing label if you nave one) 



Canadian $20/1 year only. US funds. Foreign $28/1 year only. US funds 
80 Microcomputing • PO Box 981 • Farmmgdale NY 1 1737 
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is the real workhorse of the program be- 
cause it allows BASIC programs to be 
saved in the middle of a RUN with all its 
variables intact. 

Here's how it works: At whatever point 
you want to save your program, you press 
BREAK. Set up a cassette to record the 
program, then type the command: 

•SAVE/RUN' PROGRM" 

(The asterisk is the cue for the KEEPIT pro- 
gram to take over from BASIC and inter- 
pret the following commands.) "PRO- 
GRM" may be replaced by any file name of 
up to six characters. 

When you want to retrieve your pro- 
gram, hit ENTER for the MEMORY SIZE?, 
and ready the cassette recorder. Enter 
SYSTEM, then enter the file name. The 



tape will load, and the program will reap- 
pear exactly the way you saved it. 

What happens is: The BASIC program is 
re-loaded, along with all variables, sys- 
tems pointers, the KEEPIT program itself; 
even the video display is restored just as it 
was. Only "free space" (memory not used 
during execution of the program) will not 
be affected. You simply CONTinue your 
BASIC program right where you left off! 

Such a feature can be used to debug 
new programs by saving a program at vari- 
ous points throughout a run, thus allow- 
ing you to go back and reconstruct what 
was happening in the logic flow of the pro- 
gram just before the crash. "Epic" game 
players will find it handy to be able to save 
a game in progress and return to it at their 
convenience. (KEEPIT does louse up the 



Disk* Mod 
MISOSYS 
Alexandria, VA 
$20 

by Buzz Gorsky 

\A/ hen I recently acquired my disk 
If system, I began looking for a utility 
that would make my Radio Shack Editor/ 
Assembler more useful. I had lots of 
assembly language programs on tape, 
many of which required editing to make 
the machine code compatible with the 
disk system. The thought of having to 
enter them again into a disk-based system 
such as Radio Shack's $99 disk EDTASM 
package was not appealing. When I saw 
an ad for the MISOSYS Disk* Mod pro- 
gram, I decided to give it a try. 

Easy Data I/O 

The tape came promptly, with readable 
instructions and answers to some ques- 
tions I had submitted with my order. 
These questions would have been an- 
swered in the instructions, but the 
MISOSYS folks wrote out the answers 
anyway. 

I had some trouble loading the tape; I 
tried to load it with SYSTEM in Disk BASIC 
and it wouldn't load. I assumed that 
DISKMOD was the program's identifier, 
but a little reading showed that it loads as 
DSKMOD. Once I got it loaded, it always 
produced disk errors during execution. I 
put the program on disk with TAPEDISK, 
as suggested in the MISOSYS directions. 
When the program ran from disk, it 
worked fine, picking up my copy of the 
EDTASM and putting it on disk. 

Since I've had the program on disk, I've 
enjoyed using it very much. It permits 
easy input and output of data (assembly 
text or object code) to either tape or disk. 



Disk* Mod provides prompts where file- 
specs are required. Anyone familiar with 
EDTASM will find this easy to use. 

There are some nice additions to these 
features. While in the program, you can 
get a disk directory which shows the mem- 
ory usage of each disk file, and you can 
kill files on the disk. You can see how 
much memory the current program is us- 
ing, as well as how much text buffer is left. 
When you exit the program, you can go to 
DOS automatically, or you can specify 
any destination address. 

Debugging 

When reentering the program, you can 
enter a hex address to protect an area in 
high memory where there might be a 
printer driver or other program. 

By entering a you can get back into 
the program, without destroying what was 
in the buffer when the program was ex- 
ited, as long as other operations did not 
overwrite the buffer area while out of the 
program. This feature makes debugging 
nearly painless, since you can save 
source and object codes on disk: Exit, use 
DEBUG and come back. If when working 
with the program DEBUG did not over- 
write the buffer, you're back in business. If 
the buffer was ruined, it can be emptied 
and the saved program entered from disk. 
Tape users will find this quite different 
from the sequence required for debugging 
with a tape-based system. 

I found only one problem with the 
adapted program. It doesn't handle some 
assembly text errors well. When I had a 
statement that wasn't in correct format, 
that line and the next several lines printed 
erratically and illegibly, but the error 
wasn't pointed out. If the print during as- 
sembly starts to look strange, look for er- 
rors and you can fix the program and the 
print at the same time. ■ 



current screen display a bit, however this 
may not be applicable to all games.) 

I think its most practical application 
will be to maintain data in array variables 
within the BASIC program, and output it to 
tape along with the program. 

As an example of the latter, consider a 
short program to save ten names and 
phone numbers to be displayed later on 
the video. A simple save program might 
look like this: 



io forx = 1 to io 

20 INPUT NS.PS 

30 PRINT »- 1. NS.PS 

40 NEXT 

Later on, when you want to read the 
data, you can use this program: 

10 CLS FOR X = 1 TO 10 

20 INPUT #- 1. NS.PS 
30 PRINT NS.PS 
40 NEXT 

Or, using KEEPIT you can do this: 



10 FORX= 1 TO 10 

20 INPUT NS(X).P$(X) 

30 NEXT 

40 CIS STOP 

50 CLS: FOR X =- 1 TO 10 

60 PRINT NS(X).PS(X) 

70 NEXT 



When the program stops at line 40 (after 
all entries have been made), you could 
type: 

■SAVE/RUN PHONE" 

Later you can load "PHONE" as a SYS- 
TEM tape and CONTinue. Notice that this 
saves you the trouble of loading the pro- 
gram and the data in separate segments, 
and it saves you the time required to exe- 
cute several PRINT # - 1 and INPUT # - 1 
statements. When large amounts of data 
are involved, this can be a real time-saver. 
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Execute from Within 

You may be wondering if you can exe- 
cute the 'SAVE/RUN command from with- 
in the program. It is possible, but it will be 
the last statement executed in the pro- 
gram, and you must use caution. If you re- 
place the STOP in line 40 of the above pro- 
gram with *SAVBRUN"PHONE", as long 
as the recorder has been properly preset 
to record, the program will record on tape 
just as if the statement had been typed 
from the keyboard. However, you will be 
unable to CONTinue the program. GOTO 
50 will work OK (don't RUN 50 as that 
would clear the variables!). Another point 
to note is that in certain circumstances a 
colon may be required before the asterisk, 
for example, the statement: 

IF X = 10 THEN -SAVE/RUN'PROGRM 

will generate a syntax error, but: 

IF X = 10 THEN : "SAVE/RUN "PROG RM 

will work just fine. 

Another feature of KEEPIT is the ma- 
chine code monitor. Typing: 

■OPEN'NNNN" 

where NNNN is replaced by an address in 
hexadecimal, displays 16 bytes of mem- 
ory beginning with the specified address. 
The bytes are displayed in hex with their 
associated ASCII characters displayed on 
the next line. 

Typing a two-digit hex code will change 
the leftmost byte of the series; the entire 
series is then incremented by one. The 
series of 16 bytes can be incremented or 
decremented one byte at a time, without 
changing any bytes, by holding down the 
left or right arrow keys. You can move 16 
bytes at a time by using the up or down ar- 
row keys. Lest you get confused, the ad- 
dress of the leftmost byte of the series will 
always be displayed in the upper left-hand 
corner of the video display. 

Once you have typed a machine lan- 
guage program using the monitor, you 
may BREAK and save it to tape by using 
the command: 

•SAVE/OPEN ' PROGRM.NNNN, NNNN, NNNN" 

where PROGRM is replaced by the pro- 
gram file name and the NNNN's are re- 
placed by the start, end and entry points 
of the block of machine code to be saved. 
The resulting tape can be loaded under 
the SYSTEM command. 
The final command, *NEW, restores a 



BASIC program that has been wiped out 
accidentally by typing NEW. 

KEEPIT is supplied on cassette with 
both the SYSTEM (object) program and 
the editor-assembler format source code. 
This is not the usual case with programs 
of this type but should be encouraged, 
since it makes user modification of the 
program much easier, and also makes it 
possible to relocate the program any- 
where in memory. (KEEPIT is normally 
supplied with 4K, 16K, 32K, and 48K ver- 
sions on the tape— these will load at the 
top of available memory.) 

I was unhappy with the delay loop for 



the KBEEPFIX routine auto-repeat fea- 
ture. I tend to leave my fingers resting on 
the keys, which resulted in unwanted re- 
peats of the last key depressed. With the 
source code provided, I was able to 
lengthen the delay to an amount of time 
more to my liking. 

KEEPIT is compatible with other spe- 
cial-command routines (such as the Exa- 
tron Stringy-Floppy routines). If you don't 
have a disk system, KEEPIT may prove to 
be one of the most useful utilities you 
own, especially if you use it to eliminate 
some of those time-consuming PRINT 
# - 1 and INPUT # - 1 statements.B 



ISAR (Information Storage and Retrieval) 
The Alternate Source (TAS) 
Lansing Ml 
$17 on disk 

by R. Louis Zeppa 

or my out-of-print book business I 
needed an inexpensive method that 
would help me create book lists. Compil- 
ing catalogs by hand and typewriter is 
slow and prone to error. By this method 
books are listed on 3x5 cards, sorted, 
and then the list is typed— a minimum of 
three steps for each book. Catalogs of 200 
to 300 books have taken up to a month to 
prepare. 

With ISAR, I completed two separate 
500+ entry catalogs in three days each. 
First I entered the book citations directly 
and then let the computer sort and type 
the catalogs. 

ISAR is made up of modules, of which 
there are ten. Module 1 is the driver or 
menu module. The basic ISAR includes 
six more modules: create a file (2), add rec- 
ords (3), change or delete records (4), sort 
(5), screen scan or search (6), and format 
hardcopy reports (7). All processing fo- 
cuses through module 1, that is, you can- 
not add records and then jump directly to 
change records. The file name must be en- 
tered each time you pass through module 
1 , thus it is possible to enter the file name 
more times than is reasonably necessary. 

ISAR does have some problems. It can- 
not add, delete, or modify entries during 
the same pass through a file. ISAR's sort 
is frustrating because its printout formats 
entries but not pages. 

Taken singly, none of these is a major 
deficiency. However, these little quirks 
can be irritating. For example, you must 
make two passes through a file to delete 
and change records. This is because it is 



the same module and after, for example, 
deleting, instead of bouncing back to ask 
if you want to change some records in the 
same file, ISAR asks if there is another file 
you wish to delete items from. 

Another limitation is that ISAR won't do 
a multiple field sort. Yet with proper cod- 
ing and planning it can be simulated. For 
example, sorting a mail list first by name 
and then by zip code will produce a list 
sorted alphabetically by name within each 
zip code. 

There is yet another shortcoming with 
ISAR— it has an in-memory sort. A file 
with many records will overwhelm mem- 
ory if the field being sorted is longer than 
18 characters. Although the sort is fast, a 
slower disk sort would be more flexible. 

When reports are formatted for hard- 
copy, you must sort out deleted items or 
they show up as skipped lines in the print- 
out. There are more hardcopy problems, 
but space must cut this critical list short. 

You must bend, beat, and squeeze your 
work into ISAR's limitations. If the manual 
was accurate and referred to specific 
lines in the modules, ISAR could be rela- 
tively easily modified to suit your own 
needs. It would still be limited, however. 

TAS is committed to improving ISAR 
with new modules. Extensions to ISAR 
which are set up in the same way as the 
add-change-delete functions will continue 
to hinder its easy usefulness. 

For the occasional user who won't do a 
lot of file manipulation, ISAR will be very 
useful, at a good price and, to be fair, ISAR 
is not advertised as a solution to business 
or bibliographic problems. It was "origin- 
ally designed to provide personal users 
with a low cost data management sys- 
tem.'' As critical as I am, it has proven val- 
uable, but for large and potentially compli- 
cated files, ISAR is too difficult. In this 
case, my advice would be: Spend more 
money for a more flexible program. ■ 
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When DecisionMaster speaks everybody listens. 

Lex's face it. We all have to make decisions. Decisions that can change our lives. Decisions that can 
make us happy or unhappy. Decisions that could win us fame or fortune. Now, DecisionMaster 
can help you make the best decisions of your life. 

Use Baycsian theory to peer into the future . . .even if you've never heard of the Bayes' Rule. 
Do a complete weighted factor analysis. . .without knowing what one is. Use discounted 
cash flow to compare investment alternatives without bothering with present value 
tables. These and other sophisticated theories that were once the exclusive domain of 
professors and top business executives are built into DecisionMaster's algorithms. . . 
so you can use them at the touch of a key! 

DecisionMaster is easy to use. It features: 

• A fully documented manual developed by an authority in the field. 

• A unique program-controlled cross reference system. 

• A powerful formatted-screen data entry system. 

You'll use DecisionMaster in hundreds of routine decisions, 
as well as more important ones such as* Buying a house 

• Changing jobs* Selecting investment* Evaluating insur- 
ance policies* Expanding product lines* Leasing vs. 
purchasing. 

If you buy only one computer program this year, 
make it DecisionMaster. And when it speaks, 
listen. 






These Next 4 Pages 
are for TRS-80* 
Owners ONLY! 



The next 4 pages contain over 100 programs for your TRS-80. Whatever your interests, we have a software 
program for you. We list sections on Home/Personal, Business, Games, the Arts, Home Education, Utilities, 
Special Business, Flight Simulations, Electronics, Comp-U-Novels, and Popular Games. These programs can 
be purchased through your local Instant Software dealer, or you can call us directly using our toll free 
number. We ship our orders the same day we receive them. Browse through these 4 pages, we're sure you'll 
enjoy your selections. Remember: WE GUARANTEE IT! 



UTILITIES 



TRS-80 UTILITY I— Give your program that 
professional look. RENUM: Renumber any 
Level II program to make room for modifica- 
tion or to clean up the listing. DUPLIK: With 
this program you can duplicate any BASIC, 
assembly/machine language program, ver- 
ify the data and record the program to tape. 
You can even record Level I programs on a 
Level II keyboard. (T1) Order No. 0081 R 
$9.95. 

TRS-BO UTILITY II— Change the drudgery of 
editing your programs into a quick, easy 
job. It includes: •CFETCH: You'll be able 
to merge consecutively numbered BASIC 
programs Into one program. It will also 
search through any Level II program tape 
and display the file names for all programs. 
• CWRITE: Combine subroutines that work 
in different memory locations into one pro- 
gram. It works with BASIC and/or machine- 
language programs and will give you a gen- 
eral checksum to verify that your program 
hasn't dropped any bits. (T1) Order No. 
0076R S9.95. 

THE COMMUNICATOR— This package lets 
you transmit data over the telephone lines. 
The full ORIGINATE/ANSWER capability al- 
lows your TRS-80 to be controlled from a 
remote-based terminal, or allows two 
TRS-809 to "talk'' to each other. You can 
transmit data or programs from home base 
to a remote terminal. There will be a 
simultaneous display of information on 
both video monitors. Requires a modem 
and RS-232 interface for each terminal. (T1) 
Order No. 01 26R $9.95. 

TERMINAL-80— Communicate with the 
rest of the world! These programs give you 
control of the RS-232 port of your Expan- 
sion Interface. You can connect one or 



more serial terminals to your TRS-80 and it 
will accept input from the RS-232 interface 
just as If it were entered from the keyboard. 
Your TRS-80 can also be transformed into a 
dumb terminal, for use in a time-sharing 
situation to talk with "big" computers via a 
modem. The LPRINT/LLIST commands will 
transfer a program to a receiving computer. 
Supports upper/lowercase, Level II & III 
control characters, and all functions such 
as CHR$. The baud rate is software con- 
trolled for your convenience. Requires an 
RS-232 interface. (T1) Order No. 0130R 
$24.95. 

DISK SCOPE— Need to check out the con- 
tents of a disk? Then check out these three 
programs. •FILELOC: If you know the 
name of the program or data file, FILELOC 
will show you which tracks and sectors 
contain that file, as well as how much mem- 
ory the file takes when loaded into RAM. 
You can then print the information, search 
for a new file or exit to BASIC. • CDISK: 
This utility and test program allows you to 
view any track and sector on your disks in 
ASCII. Hex and screen POKEs. It disregards 
all protection codes. • PASSWORD: This 
machine-language program not only gives 
you a password for individual files, but for 
whole disks as well. (T2> Order No. 0139R 
$19.95. 

DISK EDITOR— This machine-language 
program give you total access to ANY byte 
of Information In ANY sector In ANY track 
of your disk! You can examine, alter, add 
and delete information with ease. You can 
even search for a specific string (up to 8 
characters long). If you need hardcopy, use 
the LINEPRINT command to send a copy of 
the video display to your printer. It can be 
used with TRSDOS, NEWDOS and Micro- 
DOS. Both the 35 and 40 track versions are 
included. (T2) Order No. 0180RD $39.95. 



BPA (BASIC PROGRAMMING ASSISTANT) 
— BPA does three things for you: (1) It will 
list the variables used in a BASIC program. 
Optionally, it will list the line numbers 
where each variable appears; the variable- 
type symbol (string, integer, single or dou- 
ble precision); whether it is dimensioned 
and where It is changed. (2) It will produce a 
cross-referenced list of line numbers for 
GOTO's, GOSUB's and IF. . THEN state- 
ments. (3) It will list the line numbers where 
a selected BASIC function word (e.g.. IN- 
PUT, PRINT) is used. (T1) Order No. 0203R 
$14.95. 

TLDIS & DLDIS— These two utilities are 
ideal for those who wish to decipher and/or 
modify machine-code programs. TLDIS 
(Tape-based Labeling Disassembler) and 
DLDIS (Disk-based Labeling Disassembler) 
are three-pass, label-assigning disassem- 
blers that assign labels (where appropriate) 
to the routines in a machine-language pro- 
gram. Their output is almost Identical to 
that of a hand-assembled source code. 
TLDIS can send the disassembly to cas- 
sette tape, DLDIS can send it to disk; both 
send it to the video monitor. Each version 
can be reassembled using Tandy's 
EDTASM or Apparat's disk extension of 
EDTASM, respectively. You can also send 
either disassembly to a printer (R/S parallel 
port). Because of the labels, it is a simple 
matter to change any object code program 
by disassembling it and making changes to 
the resulting source code, without losing 
track of the jump/load addresses. Labels 
start at "AAOO" and Increment up, in even 



numbered steps (AA02, AA04, etc.). The odd 
numbers (AA01, AA03, etc.) are left for your 
(optional) use in the reassembly. TLDIS (T1) 
Order No. 0230R $14.95. DLDIS (T2) Order 
No. 0231 RD $19.95. 

THE DISASSEMBLER— This is a single- 
pass, hex-notation that sends its output 
either to tape or to a lineprinter (R/S parallel 
port). The tape output is directly compatible 
with Tandy's EDTASM, so you can disas- 
semble an object code tape and output it to 
tape, then use EDTASM to add, delete. 
change and re-assemble your new version. 
It displays the displacement and absolute 
address of any relative jumps made by the 
disassembled program. It also displays and 
ASCII characters used in an LD or CP op- 
code. It is relocatable and you can |ump to 
memory locations and transfer control be- 
tween Disassembler and other utility pro- 
grams. (T1) Order No. 0239R $9.95. 



There are over 300 Instant 
Software dealers through- 
out the U.S.A. and the world. 



Go see your local Instant 
Software dealer before 
Christmas. He has a wide 
selection of Instant Soft- 
ware. 



CODE— Minimum System Required 

(T1) = TRS-80 Model I Level II, 16K RAM 

(T2) = TRS-80 Model I Level II, 16K RAM with Expansion Interface 

16+ K RAM and one disk drive 
(T3) = TRS-80 Model II, 32K RAM 



SEE YOUR 
LOCAL 
INSTANT 
SOFTWARE 
DEALER OR 



Just Call Toll-Free 
1-800-258-5473 



Instant Software 



PETERBOROUGH, N.H. 03458 



We Guarantee It! 
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THE ARTS 



COMPU-CAROLS— We are proud to pre- 
sent a selection of Christmas carols, 
played by your TRS-80 Just place an AM 
radio next to your keyboard and you'll be 
amazed at the quality of this computer-gen- 
erated music. You'll hear AWAY IN A MAN- 
GER. NOEL. SILENT NIGHT, O LITTLE 
TOWN OF BETHLEHEM and eight more of 
your favorite carols (T1) Order No. 0036R 
$9.95. 

DOODLES AND DISPLAYS II— It includes: 

• DOODLE PAD: Draw pictures and save 
them on cassette tapes. •SYMMETRICS: 
An electronic Kaleidoscope that's con- 
stantly changing. • DRAWING: Like DOO 
DLE PAD, but for the serious artist. Over 40 
user commands. • RANDOM PATTERN 
DISPLAY: The computer does the drawing, 
but those with itchy fingers can make alter 
atlons. • MATHCURVES: Bring those ge- 
ometry lessons to life. Six different geomet 
rical curves on the screen of your TRS-80 

• RUGPATTERNS: Designs rug patterns 
with a choice of user or computer control 
(T1) Order No. 0O42R $7.95. 

MUSIC MASTER— Includes these four 
audio treats: • MICRO-ORGAN: This pro- 
gram changes your computer into a musi- 
cal instrument, with a range of four octaves 
with three voices! You can play sharps and 
flats to imitate the sounds of an organ, 
harpsichord or piano. • KALEIDOPY: Now 
you can have a computerized "player 
piano." Generate a symmetrical graphics 
pattern and then see it transformed into 
music • COMPOSER: Experiment with 
computer-generated music You can select 
the length of the piece, its scale, and its 
tempo. • KEYMANIA: Test your memory 
and your musical ear One to four players 
try to repeat the melody that the computer 
creates. (T1) Order No. 0OS4R $9.95. 

ELECTRONICS 

HAM PACKAGE I— This versatile package 
lets you solve many of the problems com- 
monly encountered in electronics design, 
including: • BASIC ELECTRONICS WITH 
VOLTAGE DIVIDER: Solve problems involv- 
ing Ohm's Law. voltage dividers and RC 
time constants; • DIPOLE AND YAGI AN- 
TENNAS: Design antennas easily, without 
tedious calculations (T1) Order No. 0007 R 
$7.95. 

ELECTRONICS I— This package will not 
only calculate component values for you, it 
will also draw a schematic diagram. Includ- 
ed are: • TUNED CIRCUITS AND COIL 
WINDING: Design tuned circuits without re 
storing to cumbersome tables and calcula- 
tions; »555 TIMER CIRCUITS: Design 
astable or monostable timing circuits using 
this popular IC; • LM-381 PREAMP DE- 
SIGN: Design IC preamps with this low- 
noise IC audio amp. (T1) Order No. 0008R 
$7.95. 

QSL MANAGER— Ever looked at your log 
book and wondered if you sent a QSL card 
to the operator you worked last week? 
Maybe you sent a QSL but can't remem- 
bered getting one in return. The QSL MAN- 
AGER will help you set up a computerized 
log book that gives you instant access to 
your records. Make complete log entries 
which Include: Date, Time, Call sign. Name. 
Band, both the sent and received Signal Re 
ports, the Mode, whether a QSL card was 
sent or received and any remarks you want 
to add. The QSL MANAGER program has 
built-in editing features that let you keep 
your log book up to date. (T2) Order No. 
0151 RD J19.95. 



HOME EDUCATION 

MONEY MADNESS— You can experience 
the Raw Power of High Finance with two 
Big Money empires, e MILLIONAIRES: Can 
you manipulate $1000 into a million dollars 
in fifteen years? It all depends on your 
strategy as you buy and sell properties, 
negotiate bank loans, collect rentals and 
accept sealed bids e TIMBER BARON An 
in-depth experience of the timber business. 
from the time you cut the trees until your 
milled lumber reaches the market These 
transactions are affected by those tough, 
unexpected eventualities that can upset 
the most careful plans. (T1) Order No. 
0156R $9.95. 

TEACHER'S AIDE— Now you can have the 
benefits of Computer Aided Instruction 
(CAI) in your own home Create a question 
and answer lesson (up to 8000 characters), 
save the lesson on disk, then create an en- 
tire sequence of lessons Perfect for 
parents, teachers and students who need 
the unlimited patience and undivided atten- 
tion only a computer can provide (T2) Order 
No. 021 4RD $34.95. 

GRADE BOOK— Teachers, now you can 
use the speed and accuracy of the comput- 
er to help calculate student grades. Just 
type in the grades for tests, quizzes, home 
work, classwork or special projects to cal- 
culate and display individual grade aver- 
ages. You can also obtain a cumulative 
grade for a specific marking period— or a 
whole year! (T1) Order No. 0050R $9.95. 

TEACHER— This program enables you to 
create your own tests, quizzes and exer- 
cises for the education of your children. 
You can even provide "graphic" reward for 
your children and provide hints for problem 
solving. (T1) Order No. 0065R $9.95. 

LIFE— Create "living" organisms in which 
cells are constantly active. They are born, 
they multiply, they die. This computerized 
version of LIFE is based on the well known 
game popularized by Martin Gardner. You 
can create one-cell organisms, then ob- 
serve their growth patterns. The library of 
commands give you unlimited versatility In 
the control of the cell patterns you have ar- 
ranged. (T1) Order No. 0078R $9.95. 

ARCHIMEDES' APPRENTICE-This two- 
part package will teach you the formulas 
used to find the volume of any solid object 
including paralellopipeds (cubes and rec- 
tangular solids), prisms, pyramids, 
cylinders, cones and spheres. It will show 
you on-screen diagrams of these figures, 
and present you with the formulas you'll 
need to compute their volumes. (T1) Order 
No. 0092R $9.95. 

TYPING TEACHER— This complete seven 
part package takes you from Initial familiar- 
ization with the keys, through typing words 
and phrases, to complete mastery of the 
keyboard. Your computer can even become 
a bottomless page for typing practice. (T1) 
Order No. 0O99R $9.95. 

VIDEO SPEED READING TRAINER -Most 

people's reading speed is limited simply 
because they read individual letters or 
words Now you can increase your reading 
speed and comprehension by reading 
whole words and phrases. This package 
will train your mind to quickly recognize 
numbers, words, letters and phrases. Start 
at any speed level at which you are comfor- 
table and the computer will automatically 
advance you as your reading speed and 
comprehension increases. (T1) Order No. 
0100R $9.95. 



WORDWATCH — lour different programs to 
entertain and educate eWORD RACE— 
race to the finish line of defining words cor 
rectly; eHIDE N SPELL- find the mis- 
spelled word, then correct it; • SPELLING 
TUTOR— a spelling lesson, but beware, the 
spelling may become unusual There you 
have it. Wordplay x four = WORDWATCH. 
(T1) Order No. 011 1R $7.95. 

MIND WARP — This game includes 
eMlND TWIST: a Mastermind-type game 
with a twist. Try to guess the computer s 
secret digit sequence e MIND BENDER A 
multilevel game where you must discover 
the computer's secret code It's no mystery, 
the MIND WARP package is for puzzle 
lovers everywhere (Tl) Order No. 0118R 
$9.95. 

INVESTOR'S PARADISE— Here are two 
programs to test your skill in the stock 
market, e STOCK TREK a stock market 
simulation in which you and up to five other 
investors buy and sell stocks e SPECULA 
TION: a step beyond a mere simulation, you 
enter financial data on up to 25 real compa- 
nies and start playing the market. This 
package lets you experience the thrills and 
triumphs of the stock market without risk- 
ing a dime' (Tl) Order No. 0125R $9.95. 



10 TEST— IQ TEST will administer and 
score an intelligence test in just 30 min- 
utes. There are three equivalent tests, each 
consisting of 3 questions that survey your 
general knowledge and problem solving 
abilities (Tl) Order No. 0157R $9.95. 



SPECIAL BUSINESS 

BOWLING LEAGUE SECRETARY-This 

package is simple to operate and provides 
a dynamic reference to all the names of in- 
dividual bowlers, their team numbers, 
scores, team names, league data and all 
necessary statistics. The system is highly 
adaptable, with 1 7 different scoring options 
that allow you to custom tailor the program 
to suit your league's special needs. And, if 
you even have any problems, simply type 
HELP and the program will give you an ex- 
planation of what information is needed — 
complete with a sample entry The system 
puts at your fingertips all individual weekly 
scores, team cumulative scores, bowler 
cumulative scores and individual leaders in 
the following categories: high single, high 
series, high average and high points. (T2) 
Order No. 0095RO $49.95. 



SEE YOUR LOCAL 
INSTANT SOFTWARE DEALER OR 

Just Call Toll-Free 
1-800-258-5473 



BEGINNER'S RUSSIAN— In order to under- 
stand a foreign culture, you must know its 
language. The three programs in this pack- 
age will give you on-screen displays of the 
characters of the Cyrillic alphabet, detailed 
Instructions of their proper pronunciation 
and exercises that will have you recogniz- 
ing and speaking simple Russian words. An 
excellent package for students, business- 
men, scientists or anyone who is interested 
in learning the Russian language (T1) Order 
NO.0136R $9.95. 

EVERYDAY RUSSIAN— will acquaint you 
with the words for various foods, places to 
eat. signs and the names of stores— exact- 
ly what a traveller needs to know Each of 
the three parts of the package not only 
teaches you the words but quizzes you on 
them as well. You can even practice typing 
in Russian. Discover the Russian language 
today! (T1) Order No. 0137R $9.95. 



SEE OUR ADS ON 
PAGES 196 & 197 
FOR ALL NEW 
INSTANT SOFTWARE 
PROGRAMS 



BOWLING LEAGUE STATISTICS SYSTEM 

—Keeps a computerized list of league data, 
team data and data for each bowler Ex- 
tremely flexible, it has a total of 16 different 
options to let you modify the program to 
suit your league's rules. It is easy to use 
and has a built-in "HELP" feature to aid 
you. (T1) Order No. 0058R $24.95. 



HOME/PERSONAL 

HOUSEHOLD ACCOUNTANT -Save with 
these two programs • BUDGET & EX- 
PENSE ANALYSIS It has nine sections for 

income and expenses and an option for 
quarterly/yearly reviews eLIFE INSUR- 
ANCE COST COMPARISON Compare the 
total costs of various insurance policies 
Contrast term with whole life It will store 
and display up to six prospective policies. 
(T1) Order No. 0069 $7.95. 

PERSONAL BILL PAYING— You can keep a 
computerized list of ALL your bills (up to 22 
accounts), each listed with its name, num- 
ber, due date and amount owed. Individual 
accounts can be displayed with a month- 
by-month breakdown of payments (includ- 
ing check numbers) and current accounts 
can be seperated from inactive ones It 
allows you to save the data to tape for 
future use (T1) Order No. 0103R $7.95 



WRITE FOR 
OUR NEW 
INSTANT 
SOFTWARE 
CATALOG 



Instant Software 



.'2 



PETERBOROUGH. N.H. 03458 
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POPULAR GAMES 

BEGINNER'S BACKGAMMON/KENO- 
VVhy sit atone when you can play these 
fascinating games: • BACKGAMMON: 
Play against the computer in a game that's 
sure to sharpen your skills; • KENO: Enjoy 
this popular Las Vegas gambling game- 
guess the right numbers and win big! (T1) 
Order No. 0004 R $7.95. 

CHESSMATE-80— This versatile chess op- 
ponent gives you a choice of ten levels of 
play, from the "blitz" level (the computer 
has 3 seconds to move) to the infinity level 
(where the computer will consider every 
possible move— which could take years). 
This machine-language program is a con- 
servative player and follows all the rules of 
International play. CHESSMATE-80 can 
teach you how to move and allow you to set 
up the board and play end games or special 
problems. CHESSMATE-80 battled Sargon 
II to a draw at two minutes a move and beat 
Mlcrochess 1.5 in six moves. (T1) Order No. 
0O57R $19.95. 

YOUR CRIBBAGE AND CHECKERS PART- 
NER— CRIBBAGE is a two-person game 
that you are sure to enjoy. This is NOT a 
tutorial— it is a game worthy adversary. 
CHECKERS: An old favorite which follows 
international rules, including multiple 
lumps. (T1) Order No. 0068R $9.95. 

CARDS— A one-player package to let you 
play, with your computer, these famous 
games: • DRAW AND STUD POKER. These 
programs will keep your game sharp; • NO- 
TRUMP BRIDGE: Develop your strategy and 
(hopefully) increase your skill. (T1) Order 
No. 0063R $7.95. 

FLIGHT 
SIMULATIONS 

RAMROM PATROL/TIE FrGHTER/KUNGON 
CAPTURE— "RAMROM PATROL: Destroy 
the RamRom ships before they capture 
you. «TIE FIGHTER: Wipe out the enemy 
Tie fighters and become a hero of the Re- 
bellion. "KLINGON CAPTURE: You must 
capture the Klingon ship intact. (T1) Order 
No. 002SR $7.95. 



FLIGHT PATH— This three-part package in- 
cludes: 'MOUNTAIN PILOT Become a dar- 
ing bush pilot and fly supplies to a remote 
mining camp. You must cross mountain 
ranges and struggle with headwinds, tricky 
navigation and rapidly diminishing fuel. 
•O'HARE: A control tower simulation for 
you would-be Air Traffice Controllers. You 
are responsible for the lives of hundreds of 
passengers as you guide aircraft through 
your control sector. •PRECISION AP- 
PROACH RADAR: Combines the skills of 
pilot and Air Traffic Controller, as your com- 
mands guide an aircraft in its approach to 
the field and a safe landing (T1) Order No. 
0171RSMS. 

BALL TURRET GUNNER— Imagine your- 
self at the control console of a strategic 
laser weapon, deep in the space lanes. Your 
hindsight detector informs you of a Gnat 
fighter coming in for an attack so you 
swivel you laser turret until you can see the 
target. Watch the Range Indicator and your 
Targeting Computer's readout closely, be- 
cause you'll only have a fraction of a sec- 
ond to catch him in your sights. Will you 
transform the Gnat into a ball of ionized gas 
or will you see that blinding flash that 
means The Big Demotion? BALL TURRET 
GUNNER, with you choice of multiple lev- 
els of difficulty, optional sound effects and 
excellent graphics, is more than a game. 
It's an event to be savored. (T1) Order No. 
0051 R $9.95. 

JET FIGHTER PILOT— In this brilliantly 
realistic simulation, you become the pilot 
of a twin turbo-jet fighter. Begin your mis- 
sion from either the deck of a carrier or from 
an airfield. During flight, you'll need to con- 
stantly monitor your display and make the 
necessary adjustments to the throttle, 
flaps, and air spoilers; you must decide 
when to retract landing gear and release 
your drop tanks! There is an on-board Navi- 
gational Computer, a Glideslope/Localizer 
and a Weapons Control Computer. Earn 
your wings with JET FIGHTER PILOT. (T1) 
Order No. 0159R $14.95. 

SPACE TREK II— Protect the quadrant from 
the Invading Klingon warships. The Enter- 
prise is equipped with phasers. photon tor- 
pedoes, impulse power and warp drive. (T1) 
Order No. 0002R $7.95. 



SEE YOUR LOCAL 
INSTANT SOFTWARE DEALER OR 

Just Call Toll-Free 
1-800-258-5473 



AIR FLIGHT SIMULATION— Take off and 
land your aircraft without making a crater. 
This "instruments only" simulation starts 
you with a full tank of fuel, which gives you 
a maximum range of about SO miles. You'll 
get constant updates of air speed, com- 
pass heading and altitude. After you've ac- 
quired a few hours of flight time, you can try 
flying a course against a map or doing acro- 
batic maneuvers. T(1) Order No. 001 7R. 
$9.95. 

SPACE TREK IV— -STELLAR WARS: En- 
gage and destroy Tie fighters in your attack 
on the Death Star For one player •POPU- 
LATION SIMULATION: A two-player game 
where you control the economy of two 
neighboring planets You must decide: 
Guns or Butter? (T1) Order No. 0034R $7.05. 

BASIC AND INTERMEDIATE LUNAR LAND- 
ER — Bring your lander in under manual 
control. The basic version Is for beginners, 
the intermediate version Is more difficult. 
with a choice of landing areas and rugged 
terrain. (T1) Order No. 0001R $7.95. 

COSMIC PATROL— We put you in com- 
mand of a small interstellar patrol craft 
You must defend Terran space and prey on 
the Quelon freighters that carry vital war 
supplies— but beware of their l-Fighter es- 
corts. They're well armed, extremely fast 
and they NEVER miss! With its real-time ac- 
tion, impressive sound option and superb 
graphics, this machine-language program 
is the best of the genre. (T1) Order No. 
0223R $14.95. 

Airmail Pilot —Return to the early days 
of aviation You must fly the mail from Col- 
umbus to Chicago. Your Jenny, a cloth- 
covered biplane, must take you through un- 
predictable winds, hail and electrical 
storms Your mission is to get the mail 
through in the shortest possible time There 
is an on-board clock to time you flight, from 
takeoff to touchdown . . . assuming you are 
able to complete it. (T1) Order No. 0106R 
$9.95. 



NIGHT FLIGHT— Your mission is to fly Over 
the North Atlantic and make a nighttime 
photo/recon flight above the enemy fleet. 
NIGHT FLIGHT lets you take-off, fly and 
land a propellar-driven aircraft. You can 
practice approaches and landings with an 
on-screen display of the landing field infor- 
mation—it will practically teach you to fly. 
(T1) Order No. 011 7R $9.95. 



COMP-U-NOVELS 

WHO-DUN-IT? Criminal elements have 
committed five dastardly crimes. As the 
investigating detective, you must solve 
them 

You can compete agamsl either Detec- 
tive Nybbles, a computerized sleuth, or up 
to tour other human detectives. 
•DEDUCTION: Guess the order of tour 
symbols out of six or seven different ones. 
To make things even more complicated, 
you can let the computer repeat symbols 
and have a range of 2401 possibilities. 
(T1) Order No. 0047R $7.95. 

SANTA PARAVIA AND FIUMACCIO 

Become the ruler of a medieval city-state 
as you struggle to create a kingdom Up to 
six players can compete to see who will 
become the King or Queen first. (T1) Order 
No. 0043R $7.95. 



There are over 300 
Instant Software 
dealers throughout 
the U.S. A and the 
world. 



We ship the same day we 
receive your order. 



CODE— Minimum System Required 

(T1) = TRS-80 Model I Level II. 16K RAM 

(T2) = TRS-80 Model I Level II. 16K RAM with Expansion Interface 

16+ K RAM and one disk drive 
(T3) = TRS-80 Model II, 32K RAM 



WRITE FOR 
OUR NEW 
INSTANT 
SOFTWARE 
CATALOG 



Instant Software 



^2 



PETERBOROUGH, N.H. 03458 



* A trademark of Tandy Corporation 

We Guarantee It! 

<J y& Guarantee ^N^ 

OUR PROGRAMS ARE GUARANTEED 
TO BE QUALITY PRODUCTS. IF NOT 
COMPLETELY SATISFIED YOU MAY 
RETURN THE PROGRAM WITHIN 60 
DAYS A CREDIT OR REPLACEMENT 
WILL BE WILLINGLY GIVEN FOR 
ANY REASON. 
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HOME/PERSONAL 

THE WORDSLINGER— An economical 
word processing program that was de- 
signed for the individual user or small 
business featuring: automatic formatting; 
text editing; and tape storage Once you've 
used the WORDSLINGER. you won't want 
to go back to your typewriter. (T1) Order No. 
0129R $29.95. 

MIMIC— Test your memory and reflexes 
with five versions of this popular game You 
must match the sequence and location of 
symbols displayed on your monitor within 
the time limit. Instructions on how to pro- 
duce accompanying sound effects. (T1) Or- 
der No. 0066R $7.95 

CLIMATE COMP— This two-program pack- 
age includes: WEATHER FORECASTER, 
which gives you a short range weather fore- 
cast based on the information that you en- 
ter and WEATHER PLOT, which will display 
climatological data for any major city in the 
United States. (T1) Order No. 
0102R-1 $19.95. 

BODY BUDDY— Includes these three pro- 
grams: • ADULT CALORIC REQUIRE- 
MENTS: Will determine your Basal Meta- 
bolic Rate and suggest strategies to 
achieve your ideal weight! •FLEXIDIET: 
Creates an "infinite" number of diet menus, 
on a day-to-day basis Choose your caloric 
intake, from 600 to 2400 calories per day 
The • ANATOMY QUIZ program teaches a 
mini-lesson on the various organs of the 
human body, giving location, size and func- 
tions). (T1) Order No. 0109R S9.95. 

ENERGY CONSUMPTION— This program 
will record and analyze your utility bills for 
up to five years, when you supply the fol- 
lowing Information. Gas/WateriElectricity 
used and their respective costs. It will cal- 
culate six monthly usage averages and unit 
costs. Data can be compared for any month 
or multi-month periods. (T1) Order No. 
0132R S9.9S. 

BUSINESS 

SALES ANALYSIS— If your business is 
sales, you're faced with some unique prob- 
lems. This package is divided into several 
modules to help solve those problems: The 
SALES ANALYSIS module is designed to 
provide guidelines for determining sales 
performance, to analyze this performance 
and show you where it can be improved. 
The DATA STORAGE module allows you to 
store data in an automated processing led- 
ger. The MANAGEMENT ANALYSIS mod 
ule can take all the sales records for your 
group and show you who your best sales- 
persons are, who needs more training and 
give you a sales forecast. Finally, the MAR- 
KET ANALYSIS module can show you 
where determined sales efforts can pro- 
duce the most success. (T1) Order No. 
0131R S24.95. 

ORACLE-80 — will provide you with busi- 
ness analysis and forecasting capabilities 
previously available only on large computer 
and time-sharing systems. A flexible, pro- 
fessional time series analysis and forecast- 
ing package for use in product planning, 
business planning, sales forecasting and 
more. Financial managers and economists 
can analyze economic climates and in- 
vestigate business cycles. ORACLE-80 is 
designed to be used and understood by the 
typical businessperson. All input and out- 
put is written in plain English and the 
package documentation carefully explains 
all the functions of the program. ORA- 
CLE-80 puts the future in your hands. (T2) 
Order No. 01 40R $75.00. 



BUSINESS PACKAGE IV— This business 
package contains two programs: • BUSI- 
NESS CYCLE ANALYSIS: This program can 
plot the expansion and contraction cycles 
of any aspect of your business. • FINAN- 
CIAL ANALYSIS. Now you can get the fig- 
ures for any type of annuity, sinking fund, or 
mortgage and compute the yield and value 
for bonds. The package includes a blank 
data tape (T1) Order No. 0019R $9.95. 

FINANCIAL ASSISTANT — Compute the 
figures for a wide variety of business needs, 
including: •DEPRECIATION: Figure de- 
preciation on equipment five different 
ways. «LOAN AMORTIZATION: Enter a 
few essential factors and get a complete 
breakdown of all costs and schedules of 
payment for any loan. • FINANCIER: Per- 
forms thirteen common financial calcula- 
tions. • 1 % FORECASTING: Use il to fore- 
cast sales, expenses, or any other histori- 
cal data series. (T2) Order No. 0072R $7.95. 

CHECK MANAGEMENT SYSTEM-Use 

this program for writing checks and main- 
taining records. You can make entries, edit/ 
correct entries and print out the checks. It 
will also search and display records by 
number, code, date, description or amount. 
A Code and Search routine allows you to 
print a report of all checks written for spe- 
cific expenses. You can print your letter- 
head and account number at the top of 
each report. System requirements: (T2) with 
a compatible tractor-feed printer 0147RD 
$39.95. 

ACCOUNTS RECEIVABLE/ACCOUNTS 
PAYABLE— These Model I programs will 
handle the drudgery involved in AR/AP en 
tries. They will also provide invoices, state- 
ments, reports and more. Each program is 
capable of handling up to 1500 entries per 
month, posted to as many as 760 accounts 
The AR/AP package is ideal for any small 
business and can easily be used by anyone 
familiar with AR/AP operations. System re- 
quirements (in addition to T2: Three disk 
drives and a Line Printer (tractor-feed). 
Order No. 0075RD $199.95. 

MAIL/LIST— With a five-inch drive, you can 
store up to 600 names per disk without 
DOS. or 300 names with DOS. The program 
maintains separate alphabetical and ZIP 
code files under constant sort When you 
add a name or ZIP code to your list, it will be 
inserted into its correct position in the file 
The program will record your data in nine 
fields address, city, state. ZIP code, phone 
number, phone extension and name (2) plus 
a five character code field The best feature 
of this program is the sort process that lets 
you determine alphabetical or ZIP code or- 
der for label printing. (T2) Order No. 5000RD 
$99.00 

ONE-D MAILING LIST— A comprehensive 
mailing list program that will run on only 
ONE disk drive! Up to 1 7 fields of selection 
for name/address retrieval. Its features in- 
clude: Auto-sort (alphabetic or ZIP code). 
Easy error correction and recovery. Prints 
selective listings. Supports up to 4 drives. 
Prints mailing labels and listing of all 
names on file. (T2) Order No. 0123RD 
$24.95. 

EXECUTIVE EXPENSE REPORT GENERA- 
TOR— Provides you with emergency relief 
in the form of a clear, plausible expense 
layout Input your grand total and cash ad- 
vance (if any), and you'll receive an itemized 
expense report, from breakfast to snacks 
(T1) Order No 0135R $9.95. 



GAMES 



WINNER'S DELIGHT— Do you enpy a chal- 
lenge? Then try WINNER'S DELIGHT in- 
cluding: • AMAZING: You must escape 
from a maze, one that you view from the in- 
side, working against the clock; • JUNIOR 
CHECKERS: Not your usual game of check- 
ers. . .the challenge is to beat the comput- 
er in the fewest number of moves. • JUM- 
BO JIGSAW: Fit the pieces together in the 
fewest number of tries, • THIRTEEN 
WAYS: Try to fill up your columns with the 
numbers you roll on the dice— the comput- 
er will try to fill its columns first! (T1) Order 
No. 0124R $9.95. 

FUN PACKAGE I -Why call it Fun 
Package"? Judge lor yourself! This enter- 
taining package includes: «ROCKET 
PILOT: Flying it Is easy -it's the landing 
that's tough! «PAPER. ROCK, SCISSORS: 
It's the time-honored game just as you 
remember it, played against yourTRS-80. 
•HEX I: Just when you master this puzzle 
game, the computer will increase the dif- 
ficulty 'MISSILE ATTACK: Use your mis- 
siles to protect your city from jet attack. 
Requires • TRS-80 Level I 16K. Order No. 
0037R $7.95. 

DEMO III— The biggest package ISI has 
ever released, including: • RACE 1: Careen 
around the race course as you try to beat 
the clock; • TARGET UFO: Destroy all the 
invading UFOs; • LIFE: Experiment with 
this simulation of the life cycle of a colony 
of bacteria; »PHONE NUMBER 
CONVERTER: Change those hard to 
remember 7-digit phone numbers into easi- 
ly remembered words; • BIORHYTHM: Plot 
biorhythm curves for anyone, anytime: 

• GRAPHICS PROGRAM: This program 
will show you what your TRS-80' s graphics 
display can do; • RACE 2: Five different 
tracks for the more experienced driver; 

• HORSE RACE: Up to nine players can bet 
on and enjoy our most entertaining horse 
race program; • DRAWING BOARD: Draw 
pictures or messages and store them in 
memory or on cassette tape with this easy- 
to-use program; • 24-HOUR CLOCK Trans- 
form your computer into an accurate digital 
clock (Tl) Order No. 0055R $7.95 

OIL TYCOON— Avoid oil spills, blowouts 
and dry wells as you battle to become the 
world's richest oil tycoon Two players be- 
come the owners of competing oil compa- 
nies as they search for oil and control their 
companies. (T1) Order No. 0023R $7.95. 

BOWLING— Let your TRS-80 set up the 
pins and keep score. One player can pick up 
spares and get strikes (T1) Order No. 0033R 
$7.95. 



DEMO II— contains: »TIC-T AC-TOE: An 
old time favorite with three levels of difficul- 
ty; • TIME TRIALS: Try to beat the clock as 
you race your car through curves, chutes, 
and chicanes; • MAZE: One or two players 
can search through the maze for the secret 
square: • HANGMAN: One or two players 
can try to guess the secret word; • WHEEL 
OF FORTUNE: Choose your number, place 
your bet and see if you can break the bank 
(for one to eight players); • HURRICANE: 
You can track and monitor hurricanes in 
any part of the world; • BUGSY Can you 
build your Z-80 bug before the computer 
does? • HORSE RACE: Pick a sure winner 
and place your bet (for 1 to 100 players) (T1) 
Order No. 0O49R $7.95. 

BATTLEGROUND— It is late 1944 and the 
Allied forces are sweeping toward Berlin. 
As General in command, you study the 
map. At your command are tanks, planes, 
artillery, Infantry, engineers, and vehicles. 
The battle map of your sector will fill with 
markers to show the development of your 
forces. You and your opponent will assume 
the roles of warring Generals, as the battle 
unfolds. The stark reality of World War II 
comes alive in BATTLEGROUND.(T1) Order 
No. 0141 R $9.95. 

SKIRMISH-80— Check out these great 
games: • MISSION IMPOSSIBLE: Your ob- 
jective in this real-time simulation is to 
drive your tank into a prison courtyard, res- 
cue a jailed prisoner and escape, • TRAP: 
A two-player game, in which you must ma- 
neuver your opponent into a position where 
he is hopelessly trapped; »WIPEOUT: A 
two-player game in which your mobile gun 
gets points by destroying as many obsta- 
cles as possible, but be careful— some of 
those obstacles are explosive mines: 
• BLOCK-EM: A two-person competition 
in which your moving "snake" tries to force 
your opponent to hit either (1) your trail, (2) 
his own trail, (3) the boundaries of the field, 
or (4) any randomly place barriers. The strat- 
egy is, of course, to leave you opponent no 
safe move (T1) Order No. 0070R $9.95. 



POPULAR GAMES 

GOLF/CROSS-OUT - Have fun with these 
exciting one-player games Included are 
•GOLF: You won't need a mashie or putter 
— or a caddie, for that matter — to enioy a 
challenging 18 holes 
•CROSS-OUT Remove all but the center 
peg in this puzzle, and your neighbors will 
call you a genius (T1) Order No. 0009R 
$7.95. 

We ship the same day we re- 
ceive your order. 



SEE YOUR LOCAL 
INSTANT SOFTWARE DEALER OR 

Just Call Toil-Free 
1-800-258-5473 



We Guarantee It! 



SEE OUR ADS ON PAGES 196 & 197 FOR ALL 
NEW INSTANT SOFTWARE PROGRAMS 
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^APPLICATIONS 



by Dennis Kitsz 



Now, don't tell me you've never picked 
up a soldering iron before. Maybe so, 
but by the time you get done putting to- 
gether all those easy-to-assemble toys for 
the whippets, this project will seem like a 
piece of cake. 

So get down to your electronics supply 
house and get integrated circuits 74LS30 
(two), 74LS02, 74LS125, and 74LS374; four 
14-pin sockets; one 20-pin socket; five 
1K-ohm resistors; a TRS-80 edge connec- 
tor, some perf-board and a five-volt power 
supply kit. Toss in a pair of audio cables, 
too, and maybe a little box. 

What's Kitsz up to this month? Zounds, 
sound! Not a just a few raspy squawks, 
but lots of them. . .four separate voices, 
created by a mere 160 bytes of a program! 
This circuit the "Earie," is in time for the 
holidays and inexpensive. A bag of parts 
would make the great gift for someone to 
while away a chilly January hour or two. 

The Circuit 

The principle of the hardware is simple: 
it merely provides a kind of "window" to a 
single location in RAM. The location we 
will be spying on is 4FFF hex (20479 deci- 
mal). Z3, Z4, and Z5 create a signal which 
is activated only when we write to location 
4FFF (20479 decimal). See Fig. 1. 

Z3 decodes the FF byte of the address. 




Photo 1. 
board. 



The complete Earie circuit as constructed on a 2 by 2 1/2-inch piece of perf- 



Z5a-c and Z4 decode the 4F byte and com- 
bine it with the computer's "write" signal. 
Z5d NORs the resulting signals together 
to produce a single pulse defining "write 
to 4FFF." (See Table 1.) 

Z1 acts as an electronic dam and reser- 
voir: Datafrom the computer continuously 
wells up against Z1 's input. But the data is 
permitted to flow into the output, where it 
is preserved, only when a pulse opens its 
electronics sluiceway. Unlike circuits 
where the output status is determined by 
the stable level of a trigger signal, the 
74LS374 lets input flow to output only 
when the trigger (CLK) signal is changing 
from zero to one. That is, it is edge trig- 
gered rather than level triggered. 

The CLK signal for Z1 is the output of 



To decode 'write to address 4FFF . convert the address to binary, and identify the address lines associated 
with each bit 

Hex Value: 4 F - F F 

Bit 10 1111 1111 1111 

Address Line: 15 14 13 12 11 10 9 8 7 8 5 4 3 2 10 

Step 1 Feed eight address lines (0 through T) to the inputs of an eight-input NAND gate. When all lines go 
high (1), the output of the NAND gate will be zero 

Step 2 Feed address lines 12 and 13 Into a NOR gate. When these swing low. the NOR gate goes high. 

Step 3 Feed address line 15 into both inputs of a NOR gale When this line goes low, the NOR gate goes 
high. 

Step 4. Feed the WRITE signal, which is active low, to both inputs of a NOR gate When the signal is active, 
the NOR gate goes high. 

Step 5. Feed the outputs of the above three NOR gates, which will be high when they form the values need- 
ed, into three inputs of an eight-input NAND gale 

Step 6. Feed the remaining address lines (8, 9. 10, 11, and 14) to the other five inputs of the eight input 
NAND gate When these lines go high together with the lines from Step 5. the output of the gate will be low 

Step 7. Connect the outputs of both eight-input NAND gates to a NOR gate. When both NAND outputs are 
active (they will be low), the NOR gate goes high Only when the address 4FFF appears simultaneous with a 
WRITE signal will this combined signal go high 

Table 1 



Z5d, "write to 4FFF." So when we write to 
memory location 4FFF, whatever data is 
being placed in that memory address will 
also be brought to the output of Z1. 

Finally, 22 contains four separate three- 
state buffers. A buffer is merely a device 
which allows a signal to pass through it, 
unchanged, in one direction. The three- 
state quality is an important one for com- 
puters, because dozens of separate cir- 
cuit outputs are connected to the same 
set of wires. Confused signals and dam- 
aging short-circuits must be prevented. 
Thus, not only can some devices output a 
high signal (1) or low signal (0), but they 
can also turn invisible when they are not 
needed. This is the important third state. 

This three-state buffer Z2, though, is 
not part of any complicated data or ad- 
dress bus— its outputs only go to some re- 
sistors. Why the third state? It allows us to 
turn the sound off during a rest; the rea- 
sons will become clearer when we take a 
look at the software. 

A few resistors complete the circuit, 
blending the four outputs into two, as well 
as offering the outputs of Z2 a bit of pro- 
tection against casual cable connecting. 
The discrete channels can be used for 
those with quadriphonic systems. 

The Earie is very simple to build, and 
can be completed in an evening. Remem- 
ber to use a regulated five-volt power sup- 
ply. A good experimenter's supply is sold 
by Jameco Electronics (1021 Howard Ave- 
nue, San Carlos, CA 94070, (415) 592-8097) 
for $14.95, although a simpler source, 
such as that shown in Fig. 2, is adequate 
for the sound circuit. 

Any type of wiring can be used, be- 
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Figure 2. Power source for the sound circuit; any regulated five-volt source is adequate. 



cause in this circuit, neatness is a matter 
of aesthetics rather than necessity. For 
those new to digital hardware, I particular- 
ly recommend the wire-wrapping method 
as a contribution to sanity; errors in wiring 
can merely be unwrapped. 

Photo 1 shows the completed circuit, 
which fits on a small 2 by 2 1/2-inch perf- 
board. The "header" connector on the 
card's edge is a useful, money-saving sub- 
stitute for expensive 40-wire cables (which 
are clumsy to strip and solder to circuit 
boards). Instead, this connector mates 
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with a cable whose far end plugs into the 
TRS-80 expansion connector. The cable 
and a pair of headers can be obtained 
from Digi-Key Corp., P.O. Box 677, High- 
way 32 South, Thief River Falls, MN 56701 , 
(800) 346-5144. The cable, which can be 
used for many projects, costs $11.95; a 
pair of headers is $3.49. 

Making Sound with Software 

The production of interesting sound 
and music with microcomputers is a con- 
siderable challenge. December Kilobaud 

♦ 5V 

T20 




Microcomputing features more than a 
half-dozen ways to create music. Some of 
the newer integrated circuits described 
can produce three-voice music, but the 
programming can be complicated. 

The way the Earie creates sound is by 
listening to the activities taking place in 
memory location 4FFF. In fact the sound 
is no more than the pattern of changing 
electrical impulses of various bits being 
stored in that memory address! 

By carefully considering computer tim- 
ing, we can turn individual bits of that 
memory address off and on often enough 
to produce a square wave. There is only 
one serious problem: time. BASIC is much 
too unwieldly to use for producing multi- 
voice sound waves because even its sim- 
plest instructions take a large fraction of a 
second to execute. A simple loop like 

10 FOR X = TO 255 : POKE 20480.X : NEXT 

takes two full seconds to complete. 
There's not much monophonic music in 
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Figure 1. Complete diagram of the simple circuit. The total cost of parts, including cable, is under $20. 
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j&APPUCJinONS 



4F60 

4F60 DD210050 

4F64 01FF4F 



4F67 09 
4F66 DD4600 
4F6B DD4E01 
4F6E D9 
4F6F DD6602 
4F72 DD6L03 
4F75 DD5604 
4F7 8 DD5F.05 



4F7B 
4F7C 
4P7E 
4F7F 
4F80 
4F83 
4F85 
4FB6 
4F87 
4F8A 
4F8C 
4F8D 
4F8E 
4F91 
4F93 
4F94 
4F95 
4F98 
4F9A 



0A 

E60F 

24 

25 

C2854F 

CBE7 

2C 

2U 

C28C4F 

CBEF 

14 

15 

C2934F 

CBF7 

1C 

ID 

C29A4F 

CBFF 

02 



4F9B 0A 
4F9C 25 
4F9D C2A84F 
4FA0 EEB1 
4FA2 DD66B2 
4FA5 C3AE4F 
4FA8 FDE5 
4FAA FDE1 
4FAC E6FF 



4FAE 2D 
4FAF C2BA4F 
4FB2 EE02 
4FB4 DD6EB3 
4FB7 C3CB4F 
4FBA FDE5 
4FBC FDE1 
4FBE E6FF 



4FCB 15 
4FC1 C2CC4F 
4FC4 EEB4 
4FC6 DD5604 
4FC9 C3D24F 
4 FCC PDBS 
4FCE FDE1 
4FD0 E6FF 



.'.'I!!,! 
00110 
BB120 
00130 
0B14B 
00150 
1 1 1 1 | 
0B170 

, : | : m 
■9X99 
M20I 

0B210 
00220 
00230 
00240 
0025B 
B026B 
■9271 
00280 
06290 
•9399 
19311 
19321 
00330 
00340 
00350 
00360 
00370 
00380 
00390 

l; j -• l^ t 
1941 1 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
19491 
■9999 

00510 
00520 
00530 
00540 
00550 

00570 
00580 
00590 

mil 

00610 
00620 
00630 
HI 41 

0B650 
00660 
00670 

006 80 
•It N 
00700 
00710 
00720 

007 30 
007 40 
007 50 
00760 
00770 
007 80 
007 90 
M8II 
00810 
00820 
00830 
00840 
1 .1 - 5 1 
00860 
00870 
00880 
00890 
I ,' 1 I ,' 
00910 
00920 
00930 
•9941 
0B950 
00960 
00970 
0B980 
80990 
01000 
01010 
B102B 
01030 
01040 
01050 



ELEMENTARY (AND SLOW) FOUR-VOICE MUSIC SUBROUTINE 
BY DENNIS BATHORY KITSZ, ROXBURY, VERMONT 05669 



ORG 

LD 

LD 



4F60H 
IX, 50001! 
BC.4FFFH 



:NEAR TOP OF MEMORY 
: START PITCH h RHYTHM 
: MEMORY-MAPPED SOUND 



; OUTER (INTF.R-NOTF.) LOOP BEGINS HERE) T-STATES 212 - 244 



LOOPl 



EXX 




LD 


B, (IX*0) 


LD 


C,(IX.l) 


EXX 




LD 


H, (IX+2) 


LD 


L, (IX+3) 


LD 


D, (IX+4) 


LD 


E, (IX+5) 



; 04: READY DURATION REGS. 
; 19: MSB OF NOTE DURATION 
;19:LSB OF NOTE DURATION 
; 04: STASH REGISTER AWAY 
; 19: FIRST PITCH INTO H 
;19:SBCOND PITCH INTO L 
jl9:THIRD PITCH INTO D 
;I9:FOURTH PITCH INTO E 



EACH VALUE ACQUIRED FROM IX IS TESTED TO SEE IF IT IS 
AMD THE VOICE IS TURNED OFF IF IT IS (DEFINING A REST) . 



REST3 



LD 


A, (BC) 


AND 


0FH 


INC 


H 


DEC 


11 


JP 


NZ.REST1 


SET 


4, A 


INC 


L 


DEC 


L 


JP 


NZ,REST2 


SET 


5, A 


INC 


D 


PFC 


D 


JP 


NZ,REST3 


SET 


6, A 


INC 


E 


DEC 


E 


JP 


NZ.REST4 


SET 


7, A 


LD 


<BC) ,A 



; 07: READY TO TWEAK MEM 
;04iTURN ALL VOICES C*l 
; 04: BUMP VALUE; REST TEST 
; 04: BUMP VALUE; REST TEST 
;10:ONLY 00 DEFINES REST 
;B8: SILENCE VOICE IF REST 
; 04: BUMP VALUE; REST TEST 
; 84: BUMP VALUE; REST TEST 
;10:ONLY 00 DEFINES REST 
; 08 .-SILENCE VOICE IF REST 
; 04: BUMP VALUE; REST TEST 
; 04: BUMP VALUE; P.EST TEST 
;10:ONLY 00 DEFINES REST 
; 08: SILENCE VOICE IF REST 
; 04: BUMP VALUE; REST TEST 
;B4:BUMP VALUE; REST TEST 
;10:ONLY 00 DEFINES REST 
;08:SILENCE VOICE IF REST 
; 07: SET VOICES ON OR OFF 



; DECREMENT H,L,D,E (WAVEFORM DURATION FOR EACH VOICE)... 

; NEEDED EACH TIME THE WAVEFORM IS TOGGLED DURING LOOPS.. 

; ...INNER LOOP BEGINS HERE. T-STATES STRICTLY EQUAL 246 

; MEANING MAXIMUM FREQUENCY IS APPROXIMATELY 177B0BB/246 

; OR 7195.1 HZ. USEFUL FREQUENCIES ARE CONSIDERABLY LESS. 



U> n 



EXIT1 



BEGIN PITCH AND RHYTHM COUNTDOWN LOOPS 
COUNT DOWN THE PITCH LOOP FOR VOICE NUMBER ONE 



; 07: WHAT WAVE IS LURKING 
; 04 COUNTDOWN FREQUENCY 1 
; 10: SAME WAVE IP NOT I 
;07:TOGGLE WAVEFORM BIT 1 
; 19: RESTORE PITCH VALUE 
; 10: JUMP PAST TIMEWASTERS 
;15:WASTE 15 T-STATES 
;14:WASTE 14 T-STATES 
; 07: WASTE 7 MORE T-STATES 



COUNT DOWN THE PITCH LOOP FOR VOICE NUMBER TWO 



LD 


A, (BC) 


DEC 


H 


JP 


NZ.EXIT1 


XOR 


1 


LD 


H, (IX+2) 


JP 


EXIT1A 


PUSH 


IY 


POP 


IY 


AND 


0FFH 



EXIT2 



DEC 

JP 

XOR 

LD 

JP 

PUSH 

POP 

AND 



NZ,EXIT2 

2 

L, (IX+3) 

EXIT2A 

IY 

IY 

0FFII 



; 04 COUNTDOWN FREQUENCY 2 
; 10: SAME WAVE IF NOT 
; 07: TOGGLE WAVEFORM BIT 2 
; 19: RESTORE PITCH VALUE 
; 10: JUMP PAST TIMEWASTERS 
;15:WASTE 15 BANANAS 
;14:DRUM FINGERS ON 14 
; 07: USELESS ARITHMETIC 



COUNT DOWN THE PITCH LOOP FOR VOICE NUMBER THREE 



EXIT2A 



EXIT3 



DEC 


D 


JP 


NZ.EXIT3 


XOR 


4 


LD 


D,(IX*4) 


JP 


EXIT3A 


PUSH 


IY 


POP 


IY 


AND 


0FFH 



; 04 COUNTDOWN FREQUENCY 3 
; 10: SAME WAVE IF NOT 
;07:TOGGLE WAVEFORM BIT 3 
;19:RESTORE PITCH VALUE 
; 10: JUMP PAST TIMEWASTERS 
;15:SCRATCH LEFT HAND 
; 14: SCRATCH RIGHT HAND 
; 07: CHECK KITCHEN CLOCK 



Program continues 



the frequency range under 200 Hz (cycles 
per second); trying to use four voices by 
this method would result in little more 
than head-pounding sonic thuds. 

The answer is, in part, machine lan- 
guage. Look at Program Listing 1; the pro- 
gram begins at 4F60 (decimal 20320). 
Pitches and rhythms will be stored in a 
music array beginning at 5000H (20480), 
so index register IX is set to that value. 
Since the circuit is mapped to location 
4FFF, the BC register is set to that value. 
Microprocessor registers are special- 
ized memory locations inside the chip it- 
self. For reasons of speed this program 
makes use of many of the registers avail- 
able in the Z-80. To understand why, it's 
necessary to know how microprocessors 
work. Certainly they are calculators, but 
by comparison with the arithmetic powers 
of chips inside a hand-held scientific cal- 
culator, microprocessors are pipsqueaks. 
Instead, microprocessors are fast, flexi- 
ble, general-purpose, switching tools. In 
response to a combination of binary dig- 
its, the thousands of internal gates of the 
chip will quickly make one of several hun- 
dred responses. Simple internal actions 
can be done quickly; lengthier ones involv- 
ing reading from, or writing to, memory 
take more time. 

The time it takes a microprocessor to 
perform any function, then, is dependent 
on three things: the nature of the instruc- 
tion, the length of the instruction, and the 
speed of the computer's master clock. 
The faster the clock is, the faster the in- 
struction will be completed— at least up 
to the point at which the circuit compon- 
ents fail to switch on or off fast enough to 
be reliable. 

If we limit the instructions to those that 
operate onboard the microprocessor 
chip, we gain speed. But the Z-80 proces- 
sor is an odd sort of device. It was once 
described as "an 8080 with wings", be- 
cause the 8080 had just a few registers 
and limited vocabulary. If the Z-80 was a 
true upgrade of the 8080, it would be able 
to execute all the instructions the 8080 
could, and more. 

This brings us back to the byte. The 
byte? What? Sure— because the largest 
number represented by a byte is 11111111, 
or decimal 255. That limits the number of 
one-byte processor instructions, obvious- 
ly, to 255. In order to be a really nifty up- 
grade, the Z-80 had to do a lot more than 
the 8080. So its designers took a few un- 
used instruction bytes (called operation 
codes, or "op codes"), and used them as 
pointers to a second instruction byte. 
Specifically, bytes CB, DD, ED, and FEtell 
the processor that another byte follows; 
the combination of the two define a brand 
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S^APPUCMIOIIS 







01060 
01070 
01080 


> COUNT 


DOWN THE PITCH LOOP FOR VOICE NUMBER FOUR 












4PD2 


ID 


01090 


EXIT3A 


DEC 


E ; 04: COUNTDOWN PREQUENCY 4 


4FD3 


C2DE4F 


01100 




JP 


N1.EXIT4 »10:SAME WAVE IF MOT 


4PD6 


EE08 


01110 




XOR 


8 J07:TOGGLE WAVEPORM BIT 4 


4FD8 


DD5E05 


01120 




LD 


E,(IX+5) ;19:RESTORE PITCH VALUE 


4 FOB 


C3E44F 


01130 




JP 


EXIT4A ; 10 « JUMP PAST TIMEWASTERS 


4 PDF 


pnrs 


01140 


EXIT4 


PUSH 


IT i 15 i WATER NASTURTIUMS 


4FE0 


FDE1 


01150 




POP 


IY ! 14: PICK 14 ZUCCHINI 


4FE2 


B6FF 


01160 
01170 




AND 


0FFH J07:MIX APPLES AND ORANGE 






01180 












01190 


; CHECK 


FOR 


END OF NOTE DURATION; GET MORE NOTES IF DONE 






01200 












01210 


J 






4FE4 


12 


01220 


EX1T4A 


LD 


(BO, A ;07:OUTPUT NEW WAVEFORMS 


4FE5 


D9 


01230 




EXX 


; 04: GET STASHED DURATION 


4FE6 


9B 


01240 




DEC 


BC ; 06: COUNT DOWN DURATION 


4FE7 


78 


• 1250 




LD 


A,B ; 04: SET UP B FOR TEST 


4FE8 


Bl 


01260 




OR 


C ;04:CHECK AGAINST C 


4FE9 


D9 


01270 




EXX 


; 04: STASH DURATION AGAIN 


4FEA 


C29B4F 


01280 
01290 
01300 




JP 


NZ,LOOP2 ;10:GO BACK TIL NOTE END 






01310 


j MOVE 


ALL POINTERS PAST CURRENT BATCH OF NOTES/DURATIONS 






01320 


; ...THIS IS 


THE REMAINDER OF OUTER LOOP, T-STATES • 80, 






01330 


; TOTAL 


T-STATES OF OUTER LOOP • 80 ♦ 24 4 • 324, WHICH IS 






01340 


; ABOUT 


2 OP 


THE MAXIMUM CYCLE FREQUENCIES (.0002 USEC) . 






01350 












01360 


; 






4 FED 


110608 


01370 




LD 


DE,6 j 10: MEMORY POS'NS TO MOVE 


4FF0 


DD19 


01388 
013 90 


. 


ADD 


IX, DE ;15:MOVE 6 PLACES FORWARD 






01400 












01410 


; CHECK 


POR 


END OP PROGRAM CODE (00) OR DEPRESSED BREAX 






01420 












01430 








4FP2 


DD7E00 


01440 




LD 


A, (IX*0) | 19: NEXT NOTE DURATION 


4FF5 


B7 


01450 




OR 


A ;04tSET BND-OF-MUSIC FLAG 


4FF6 


C8 


01460 




RET 


Z ;05: BACK TO BASIC IF DONE 


4FF7 


3A4038 


01479 




LD 


A.13840H) ;13:TEST BREAK KYBD ROW 


4FFA 


B7 


01480 




OR 


A J 04: SET FLAG FOR KEY TEST 


4FFB 


CA674F 


01490 




JP 


Z.LOOP1 »10:CONTINUE PIECE IF OK 


4FFE 


C9 


01500 
01510 




RET 


; :TO BASIC IF BREAK 






01520 












01530 


1 






B6CC 




01540 




END 


06CCH ; : READY APTER SLASH 


00860 TOTAL 


ERRORS 








EX1T1 4FA8 


007 50 


00710 






EXIT1A 4FAE 


00830 


007 40 






EXIT2 4FBA 


00880 


00840 






EXIT2A 4FC0 


00960 


00870 






EXIT3 4FCC 


01010 


00970 






EXIT3A 4FD2 


01090 


01000 






EXIT4 4FDE 


01140 


01108 






EXIT4A 4FE4 


01220 


01130 






LOOP1 4F67 


00230 


01490 






LOOP2 4P9B 


006 90 


01200 






REST1 4F85 


00430 


00410 






REST2 4F8C 


00470 


00450 






REST3 4F93 


00510 


004 90 






REST4 4F9A 


00550 


00530 






Program Listing 1. Assembly listing for the music performance program to drive 


the 4FFF sound circuit. 







new instruction. This gives the Z-80 up- 
wards of 500 new commands. 

The sacrifice, of course, is time. In order 
to determine the second byte of the in- 
struction, the processor must dutifully 
"fetch" it from memory. 

Fast, on-board Z-80 instructions use the 
A, B, C, D, E, H and L registers, singly or in 
pairs. The alternate set of registers (A', B', 
C, D\ E\ H', and L') operate at the same 
speed. The longer instructions involve, un- 
fortunately, the very flexible IX and IY reg- 
isters. 

The IX and IY registers are "index regis- 
ters." This means that, when we set IX 
equal to 5000 (as in line 160 of Program 
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Listing 1), we can operate not only at 
memory address 5000, but within a half 
byte's distance in either direction. HL + 1, 
DE + 6, or BC - 28 have no meaning to the 
microprocessor, but IX + 1 does, and as 
such it permits more versatile dealings 
with any block of data. 

Let's go back to the listing, at the begin- 
ning of the "outer loop." Since we always 
want BC to identify the circuit port (4FFF), 
we will exchange registers, saving this in- 
formation and moving to the alternate set 
to define B'C. They take the values stored 
at IX + 1 (5001), which will become the to- 
tal duration of a given note. The registers 
are then swapped back. 



The H registers is the pitch value for 
voice #1, the L register defines voice #2, D 
is voice #3, and E is voice #4. Each register 
obtains its value from an array identified 
by IX + 2 (5002) through IX + 5 (5005). 

When discussing the hardware, the pur- 
pose of Z2 was in question. Lines 370 and 
550 provide the answer. The accumulator 
retrieves whatever value is stored in BC 
(i.e., at location 4FFF). In the circuit (Fig. 
1), four bits are reserved to turn on or off 
each of the buffers in Z2. By "masking" 
the value in A with OF hex (00001111), the 
four bits farthest to the right are forced 
low. and the other pitch bits remain unmo- 
lested. 

Zero is the value used for a rest. Thus, 
the combination INC H and DEC H leaves 
the value in the H register intact, yet set- 
ting the Z 80s zero flag. 

If the value in H (and later in L, D, and E) 
is zero, then the appropriate bit in A is set 
high; if the value in H is not zero, the bit is 
left alone (remember all the Z2 control bits 
were set low in line 380). A low bit turns on 
Z2; a high bit turns it off. 

Once the voices have been marked on 
or off as dictated by the values stored in 
memory, the byte is written to 4FFF in line 
550. Recall that "write to 4FFF" is the 
hardware signal to action, and the circuit 
responds by mirroring the value written to 
memory. The circuit now knows which 
voices to sound and which to silence. The 
assigned voice will not change until the 
next trip through this outer loop. 

Facing the Music 

Finally the real work begins as the pro- 
gram enters the inner loop. The contents 
of the BC register (which still points to 
4FFF) are retrieved. Four identical rou- 
tines follow. 

There are some important numbers in 
the comment column (following the semi- 
colons) on each line. These count the 
number of clock periods (called 
"T-States") required to execute each in- 
struction. An accurate count of these is 
critical in music. 

Each of the pitch registers is decre- 
mented until it reaches zero. In the accum- 
ulator, the bit representing that voice is 
then toggled from its present state to its 
complement (lines 720, 850, 980 and 1 1 10). 
If the bit was a one, it is changed to zero, 
and vice versa. The pitch code is then re- 
stored by rereading the note value pointed 
to by the register IX (lines 730, 860, 990 and 
1120). 

There is some interesting code that is 
required before a pitch value reaches zero. 
Examine lines 750, 760 and 770. These in- 
structions do nothing but waste an 
amount of time equivalent to the time it 
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5& APPLICATIONS 





Figure 3. An excerpt from the score translated into data statements in Listing 2, (a) as 
written in standard music notation, and (b) as transcribed for use with the 4FFF sound 
circuit. 
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would take to toggle a bit in the accumula- 
tor, restore the original pitch value, and 
move on. The reason for this is subtle: If 
we take more time when changing the 
waveform than when leaving it alone, then 
a higher frequency (because it toggles 
more often) will take more aggregate time 
than a lower frequency. Hence, it will 
lengthen the loop as a whole, and lower 
the simultaneous pitches in the chord! 

When all the testing has been complet- 
ed for four voices, the result (in line 1220) 
is written to 4FFF. Thus, whatever wave- 
form differences might have occurred are 
now transferred to both memory location 
4FFF and to the circuit. (See Fig. 5.) 

In lines 1230 to 1280, the note duration 
value is retrieved from the alternate BC 
register pair, and the loop is repeated until 
the note is complete. When the note is fin- 
ished, the index register is moved six 
places forward to the next block of notes 
and durations (lines 1370 and 1380). 

A duration of zero gives the cue to end 
the music (lines 1440-1460); if the BREAK 
key is depressed (lines 1470-1500), the 
piece also concludes. 

The program in Program Listing 2 con- 
verts a familiar tune to values which can 
be read by the assembly language pro- 
gram. Connect the Earie, powerup the 
TRS-80, set MEMORY SIZE to 20320, and 
CLOAD the BASIC program. There is just 
enough room to squeeze it in, but you 
must CLEAR0 before running it. Its only 
job is to read the pitch values for the in- 
dividual voices and durations and POKE 
them in place starting at 20480 (5000 hex). 
The starting address is also put in place. 

Load the SYSTEM music subroutines. 



Figure 4. Useful pitches that can be derived by the program in Listing 1. The pitches 
shown, which are only approximate, are for a TRS-80 with a 50 percent speed up modifi- 
cation installed. Pitches sound a tritone below on an unmodified unit. 
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Figure 5. Idealized waveforms present at the output of the circuit, representing the 
changes to the four high bits in memory location 4FFF. 
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100 0-20460 

110 FOR X » 0+2 TO 22000 STEP6 

120 READ A : IF A-255 THEN 380 

130 POKE X,A : NEXT 

141 DATA 9,0,0 

150 DATA0,0,0,0,0,0,0,0,0 

160 DATA0, 0,0, 0,0, 0,24,0 

170 DATA24, 0,16, 0,16, 0,18,0 

180 DATA20, 0,21, 0,24, 0,27,0 

190 DATA24, 0,21, 0,20, 0,18,0 

200 DATA16,16,16,16,16,24,9 

210 DATA24,24,16,0,16,16,18,0 

220 DATA20,0,21,8,24,0,27 

230 DATA24,24,21,21,20,20,18,18 

240 DATA16,16,16,16,16,16 

250 DATA15,18,16,15 

260 DATA13,12,16,16,18 

270 DATA20,24,21,20 

280 DATAIB.18,20.18 

290 DATA16,16,16,16,15,15,16,16 

300 DATA16,16,18,18,20,20,21,21 

310 DATA24,24,24,24,20,21,24,0 

320 DATA18,18,18,20,18 

330 DATA16,16,15,15,13,13,12,12 

340 DATA16,18,20,21 

350 DATA24,24,24,24,24,24 

360 DATA 24,24,24,24,24 

370 DATA24,24,24,9,255 

380 REM * VOICE B 

390 FOR X • Q+3 TO 22000 STEP6 

400 READ B : IF B=255 THEN 660 

410 POKE X,B : NEXT 

420 DATA 0,0,0 

430 DATA0, 0,0, 0,32, 0,0, 0,0 

449 DATA0,0,0,9,32,0,0,0 

459 DATA32, 0,0, 0,24, 0,0,0 

460 DATA32, 9,0, 0,24, 0,0,0 
470 DATA32, 0,0, 0,24, 0,0,0 
480 DATA20,21,20,24,21,24,0 
490 DATA32,32,0,0,24,24,0,0 
500 DATA32, 0,0, 0,24, 0,0 

510 DATA32,30,27,24,21,24,21,21 

520 DATA20,21,20,24,21,21 

530 DATA24, 0,27,0 

540 DATA32,0,40,20,21 

550 DATA24,30,27,27 

560 DATA2B,28,27,30 

570 DATA32,32,32,32,24,O,24,0 

580 DATA20,20,21,21,24,24,26,26 

590 DATA32,32,32,32,32,0,32,32 

600 DATA24,24,24,0,0 

610 DATA32,32,32,36,27,27,27,28 

620 DATA26,24,28,26 

630 DATA24,27,30,32,30,36 

640 DATA32,32,32,32,32 

650 DATA32,32,32,255 

660 REM • VOICE C 

678 FOR X = 0+4 TO 22000 STEP6 

680 READ C : IF C-255 THEN 940 

6 90 POKE X,C : NEXT 

700 DATA0.9.0 

710 DATA0, 0,9, 0,40, 0,0, 0,9 

720 DATA9,9,0,0,40,0,0,0 

730 DATA40, 36, 32, 0,40, 0,0,0 

740 DATA40,36,32,9,49,0,0,0 

750 DATA40, 36, 32, 0,40, 0,0,0 

760 DATA27,27,27,27,27,0,0 

770 DATA40, 36, 32, 0,40, 0,0,0 

780 DATA40,36,32,0,40,0,0 

790 DATA40,36,32,36,32,36,40,30 



800 DATA27,27,27,27.27,0 

810 DATA36,36,54,54 

820 DATA42,42,64,64,64 

830 DATA48,48,42,38 

840 DATA36,36,32,42 

850 DATA40,49,49,40,40,40,0,0 

860 DATA40, 36, 32, 0,40,0,0,9 

870 DATA40, 36, 32, 0,40, 36,40,42 

880 DATA48,48,48,0,9 

890 DATA40,36,32,0,40,36,48,0 

990 DATA42.42.42.42 

910 DATA40,40,40,4O,40,40 

920 DATA49,49,40,40,40 

930 DATA40,40,40,255 

940 REM * VOICE D 

959 FOR X - Q45 TO 22009 STEP6 

960 READ D : IF D-255 THEN 1220 
970 POKE X,D : NF.XT 

980 DATA64,60,54 
990 DATA48, 0,64, 0,64, 0,64, 60, 54 
1000 DATA48, 0,64, 0,64, 0,64,0 
1010 DATA96, 0,64, 0,64, 0,60,0 
1020 DATA96, 0,64, 9. 64, 0,84,0 
1030 DATA96, 0,64, 0,64, 0,84,0 
1049 DATA64,64,64,64,64,64,0 

1959 DATA96, 0,64, 9,64, 0,60,0 

1960 DATA96, 0,64, 0,64, 0,84 

1979 DATA48,48,54,54,60,60,72,72 
1089 DATA64,64,64,64,64,64 
1999 DATA72,72,80,80 
1100 DATA84,84,96,96,96 
1110 DATA96,96,108,96 
1120 DATA144,72,54,54 

1139 DATA80, 9, 54, 0,54, 0,80,0 

1140 DATA96, 0,60, 0,64, 0,128,0 
1159 DATA96,96,96,9,80,89,89,0 

1169 DATA60,64,72,80,84 

1170 DATA96,96,60,64,60,64,72,72 
1180 DATA64,64,128,128 

1190 DATA96,96,96,96,96,96,96 

1290 DATA0,64,60,54 

1210 DATA48,64,96,255 

1220 REM • RHYTHMS 

1230 FOR X « Q TO 22000 STF.P6 

1240 READ E : IF E=2i5 THEN 1490 

1250 POKE X,E:POKE X+1,100 : NEXT 

1260 DATA3,3,3 

1270 DATA4,4,4,4,4,4,3, 1,3 

1280 DATA4,4,4,4,4,4,4,4 

1290 DATA4,4,4,4,4,4,4,4 

1390 DATA4,4,4,4,4,4,4,4 

1310 DATA4,4,4,4,4,4,4,4 

1320 DATA4,4,4,4,8,4,4 

1330 DATA4,4,4,4,4,4,4,4 

1340 DATA4,4,4,4,4,4,8 

1350 DATA4,4,4,4,4,4,4,4 

1369 DATA4,4,4,4,8,8 

1379 DATA8,8,8,8 

1380 DATA8,8,4,4,8 
1390 DATA8,8,8,8 
1400 DATA8,8,8,8 

1410 DATA4,4,4,4,4,4,4,4 

1429 DATA4,4,4,4,4,4,4,4 

1430 DATA4,4,4,4,4,4,4,4 
1440 DATA4,4,8,8,8 

1450 DATA4,4,4,4,4,4,4,4 

1460 DATA8,8,8,8 

1470 DATA3,3,3,3,5,5,5,6,7,7,7 

1480 DATA11,14,42,0,0,255 

1499 POKE16526,96:POKE16S27,79 



Program Listing 2. BASIC listing of a familiar holiday tune to be used in conjunc- 
tion with the machine-language driver in Listing 1. 



and either BREAK or enter a slash ("/"). 
The piece is ready to play. Connect the cir- 
cuit's cables to a high-fidelity audio ampli- 
fier, and type: 

PRINT USR(O) 

Well, it seems lively enough, but why 
are the pitches so low? Look at Table 2. 
The maximum frequency that an unmodi- 
fied TRS-80 can produce using this pro- 
gram is 719 5.12 Hz, which means the pro- 
gram loops through its actions more than 



7000 times per second. By itself, this is a 
very high frequency, nearly double the 
highest playable note on an acoustic in- 
strument. 

The difficulty arises when we are forced 
to use one of 255 possible values through 
which to send our pitch loop. This means 
that the only possible pitch values are 
7195.12 divided by one through 7195.12 
divided by 255. The smaller number of divi- 
sions aren't close to a traditional scale, al- 
though the notes are high. The larger num- 
bers yield pitches that are fairly in-tune, 



but also quite low. 

You might be forced to think of the mel- 
ody as being sung by a group of very raspy 
baritones. Another option is a hardware 
speed-up to the TRS-80 (see 80 Microcom- 
puting, Feb., 1980). This will raise the pitch 
a half octave. Another option is to use a re- 
triggerable flip-flop at the far end of Z2. 
This requires one more integrated circuit 
to reshape the waveforms and make them 
audible. 

There are also a few software methods, 
but they reduce the attractiveness of the 
program. The extraction of a voice will 
raise the pitch; the extraction of two 
voices will raise it further. At last, a single 
voice can be produced which will open up 
a great portion of the traditional scale. 
Just think— if another three TRS-80's turn 
up for the holidays. . . 

It is possible to create a look-up table 
by compiling the score as it is input, be- 
fore it is performed. In that way, a com- 
posite monaural sound can be produced 
that is relatively in tune and higher in 
pitch. However, this method is sophisti- 
cated and certainly outside the scope of 
"Applications." 

Of course, the realm of quadriphonic, 
three-dimensional audio sound effects is 
still available, and perhaps this is the best 
use of the Earie. 

If you plan to use the circuit with an au- 
dio mixer, POKE 20479 (4FFF) with zero 
before starting; this will get all the voices 
in phase (i.e., starting at the same time). 
Likewise, you can experiment with phas- 
ing by altering the value in 4FFF before be- 
ginning a piece, of at the start of each 
note. 

Those with an expansion interface can 
save the trouble of building the hardware 
at the cost of lowering the pitches still fur- 
ther. The pitch value can be stored at 
4FFF, but also loaded into 37E8, which is 
already mapped to the printer port ad- 
dress. Just hook up some resistors to the 
edge card, and it's ready to go. Of course, 
you can't use rests in this configuration. 

Creating Your Own Tunes 

Putting together your own music is 
time-consuming but straightforward. Fig. 
3 is an excerpt from my arrangement of 
the tune in Program Listing 2. These mea- 
sures are written two ways; One is stan- 
dard musical notation, and the other is 
notated to use with the hardware. 

Since the machine language program 
uses a single loop to produce all four 
voices, it follows that the loop is conclud- 
ed at the termination of the shortest note 
in a harmonic group. That's why a note 
must be redrawn on the score— as a re- 
minder to include in in the next loop. Also, 
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each rest is counted as a separate "note 
of silence," requiring that each rest be no 
longer than the shortest note played si- 
multaneously with it. 

Once you are certain that you've got the 
score broken into four lines of equal parts, 
you can create the BASIC POKE program. 
The pattern is six bytes long, two for dura- 
tion, and four voices. The note's duration 
takes two bytes. The first byte must be at 
least 1 , and the second can be any value. I 
maintain the second byte at 100 (64 hex) in 
this example, but it can be used to shade 
the rhythm with rubato. 

Finally, the voices follow in order, one 
byte for each pitch or rest in the harmonic 
structure. A zero in any voice position de- 
fines a rest, and a zero in the first duration 
position defines the double bar. 

Good luck, and here's hoping you like 
those raspy baritones! 

Personal Thoughts 

This month's Applications completes 
my first year with 80 Microcomputing. Dur- 
ing that time I have been rewarded with 



hundreds of letters and telephone calls 
from readers with suggestions and ques- 
tions. Since early spring, every column 
has been based on suggestions from 
readers, and there are many more yet to 
address. So during 1981, expect to discov 
er how to add ROM and RAM to your 
TRS-80; a step-by-step on converting a 
machine language program to BASIC 



POKEs and strings; what to do when your 
system stops working; high-resolution 
graphics (What did he say????); single- 
keystroke subroutines; and replacing your 
BASIC ROM with a monitor of your own 
making. I look forward to hearing from 
you, and wish all you remarkable, diverse 
TRS-80 users the very best during this sea- 
son and the coming year! 



10 FOR X - 20320 TO 20478 : READ A : POKE X,A t NEXT 
20 DATA 221,33,0,88,1.255,79,217,221,70,0,221 
30 DATA 78,1,217,221,102,2,221,110,3,221,86,4 
50 DATA 221.94,5,18,230,15.36,17,194,133,79,203 
60 DATA 231,44,45,194,140,79,203,239,20,21,194.147 
70 DATA 79,203,247,28,29,194,154,79,203.255,2,10 
80 DATA 37,194,168,79,238,1,221,102,2,195,174,79 
90 DATA 253,229,253,225,230,255,45,194,186,79,238,2 
100 DATA 221,110,3,195,192,79,253,229,253,225,230,255 
110 DATA 21,194,204,79,236,4,221,86,4,195,210,79 
120 DATA 253,229,253,225,230,255,29,194,222,79,238,8 
130 DATA 221,94,5,195,228,79,253,229,253,225,230,255 
140 DATA 2. 217. 11, 120, 177, 217, 194, 1S5, 79, 17, 6,0 
150 DATA 221,25,221,126,0,183.200,58.64,56.183.202 
160 DATA 103.79,201 



Program Listing 3. BASIC listing that will POKE in place the assembly language 
driver for the 4FFF sound circuit. Once this program has been run, U may be delet- 
ed to make room for Listing 2. 
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I . I 



Model I 
Caught By 
FCC Fallout 



Have you heard that the Model I is 
being discontinued? That's the 
latest piece of gossip traveling the indus- 
try grapevines. 

There is reason to speculate on an early 
death tor the first born of Tandy's compu- 
ter line: Model I micros are in short supply, 
and the Model I must be remodeled to 
meet Federal Communication Commis- 
sion (FCC) regulations that will go into ef- 
fect Jan. 1, 1981. 

Will the Model I be discontinued? Ac- 
cording to Tandy/Radio Shack's John 
Shirley, who heads the computer division, 
"That's not the sort of thing we'd like to 
comment on one way or the other." Ed 
Juge, another Tandy exec, did mention 
"the difficulty of guaranteeing shipment 
after the first of the year." 

Shirley claims that Model I computers 
are presently "in short supply because we 
are later than we anticipated with the 
Model III, and it has put a strain on produc- 
tion." But FCC compliance is still up In the 
air. 

The FCC first considered regulating low 
power communicating devices for radio 
frequency Interference (RFI) in 1976. After 
three years of study, rules limiting radio 
frequency (RF) emissions were adopted 
as amendments to Part 15 of the Chapter 
47 laws (laws under the jurisdiction of the 
FCC). The amendments, rather than cover- 
ing the broad range of electronic com- 
municating devices, regulate computer 
RF emissions only. They are particularly 
strict for personal computers. 

The problem originates with conflicting 
uses of the electromagnetic spectrum, 
which carries television and radio signals. 
The extremely quick electronic signals 
and pulses that are the basis of computer 
operations create high frequency radio 
waves. Circuits and traces sometimes act 
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as antennae for these waves. Unless fil- 
tered, computer generated RF interferes 
with radio and TV transmission. 

In delineating the need for regulation, 
the FCC has divided computers into two 
broad categories: Class A and Class B. A 
Class A "computing device is marketed 
for use in commercial, industrial or busi- 
ness environment(s)"; and a Class B 
"computer device is marketed for use in a 
residential environment notwithstanding 
use in commercial, business and indus- 
trial environment(s)." 

The term "computer device" is meant to 
stretch to the realm of peripherals, which 
are also required to comply by Jan. 1 if 
they are marketed for consumers. 

A study of the Part 15 amendments, 
conducted by Wewer & Mahn for the 
Micro Industry Trade Assoc., points out 
that the "dual classification scheme is 
rooted in the theory that Class B (con- 
sumer) devices are in closer proximity to 
radio, TV, and in many cases, land mobile 
services than Class A (commercial) de- 
vices and thus have a higher potential for 
causing interference." 

Restrictions on Personal Computers 

For this reason and others, the FCC is 
imposing heavier restrictions on home 
computers. Gene Smarte, the technical 
editor of 73, a magazine for ham radio en- 
thusiasts, estimates that Class B radia- 
tion limits are over 3 times more de- 
manding than Class A limits. His calcula- 
tions are based on the figures given in 
Table 1, which are taken from sections 
.810 and .830 of Part 15. Wewer & Mahn 



have interpreted Class B limitations to 
rule out RFI from 450Kh to 1000Mh— prac- 
tically the whole broadcasting range. 

Actual compliance to the new rules is 
also less stringent for Class A products in 
the view of the Wewer & Mahn law firm. 
Manufacturers are required to "verify" 
Class A compliance— a lax measure in 
comparison to "certification" which is re- 
quired for class B devices. Certification is 
granted on the basis of testing, applica- 
tion forms and fees. Verification is grant- 
ed on the basis of the manufacturer's 
word about test results. 

The Effect on Prices 

Depending on the amount of research 
and development required to meet the 
regulations, it is likely that FCC com- 
pliance will result in price hikes for several 
products. 

John Shirley, the corporate head of the 
computer division of Radio Shack, says 
that, "There's no question a substantial 
amount of money has been spent on R 
and D because of this." Shirley believes 
the price of some products will remain un- 
changed, but that other prices are bound 
to reflect the added work. 

Price increases will not affect the new 
color computer, which has been regis- 
tered with the FCC as a TV interface de- 
vice under separate FCC guidelines. Al- 
though cost has been added to the manu- 
facture of the Model III, Shirley does not 
believe it will warrant a price hike for cus- 
tomers. "The Model II is a Class A device 
in our opinion," Shirley says, and should 

Contmutt to pagw 56 
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Micros Spotted in Crime Lineup 



That crime has kept pace with technol- 
ogy is an inescapable fact of life, but 
the problem has assumed a whole new 
dimension with the advent of computer 
science. The nub of the problem is that 
business and government have all too fre- 
quently plunged into the computerization 
of their operations with little or no regard 
for security. 

It is not a small problem nor is it a sim- 
ple one. Estimates of losses due to com- 
puter crime run anywhere from $100 
million to $40 billion annually, but the 
rather disturbing truth of the matter is that 
no one really knows how much is being 
siphoned off. 

Microcomputer Crime 

Heretofore, computer crime has been 
primarily limited to the realm of main- 
frames and minicomputers, but micro- 
computers are fast becoming a favored 
tool in the compucrook's burglar bag. For 




example, a micro might be programmed to 
mimic a terminal and thereby secure ac- 
cess to a sensitve data bank. It may also 
be used to clandestinely duplicate a sign- 
on routine just long enough to obtain the 
large computer's password. The thief may 
then interrogate perhaps thousands of 
systems at his convenience. 

Microcomputer-related crime may also 
take the form of an automated "cottage 
industry." Such was the case recently in 
Pennsylvania where John "Cap'n Crunch" 
Draper was arrested for "phone freaking," 
spoofing Ma Bell's dial codes to make free 
use of the phone lines. 

Although the offense is not new, 
Draper's updated version of it was more 
sophisticated than previous methods in 
that he used a microcomputer. Utilizing a 
highly involved program, Draper inter- 
faced his Apple II with his home phone via 
a modem. He was then able to scan the 
phone system for operating WATS lines. 
Eventually he was detected by the phone 
company's monitoring equipment. 

A simpler form of micro crime was un- 
covered earlier this year in Tulsa, OK 
where a bookie had neatly and efficiently 
encoded all of his illicit transactions on 
his desk-top computer. His operation was 
raided, but, much to the consternation of 
the vice squad, none of the usual trap- 
pings of a bookie joint were apparent. All 
the records were maintained on a few 
diskettes. 

The police lugged the equipment back 
to the station house where they tried, un- 
successfully, to crack the computer's pro- 
tocol code. Failing in this they summoned 
a manufacturer's rep. In a 1980 version of 
an old "bright lights and rubber hoses" 
session the rep successfully interrogated 
the "accomplice," paving the way to con- 
viction of the bookie. 

All of this is Greek to the public at 
large and, predictably, the person 
on the street tends to be skepti- 
cal of that which he does not 
understand. Recently, a survey 
entitled "Dimensions of 
Privacy" was performed by 
Weston Assoc, for Century In- 
surance, Inc. Among the re- 
sults are these three items 
which serve to illustrate the 
somewhat uncomfortable 
feelings many people have 
about computers in general. 

54 percent of the respon- 
dents now believe that com- 
puters are a threat to privacy; 



63 percent feel that the use of computers 
should be sharply curtailed to preserve 
privacy; and 51 percent state that in 10 
years people will have lost much of their 
ability to keep their lives private. 

Laws on Computer Abuse 

State and federal lawmakers have intro- 
duced several proposals designed to curb 
computer abuse. Sen. Abraham Ribicoff 
(D-Conn) has sponsored S-240, The Feder- 
al Computer Systems Protection Act, now 
being studied by the Senate Judiciary 
Committee. Originally introduced in 1976, 
the bill has since undergone substantial 
rewording to more precisely deal with the 
technicalities of the areas it covers. 

The bill in its present form was drafted 
by Philip R. Manuel, an investigative con- 
sultant in the field of white collar crime 
and for 11 years chief investigator for the 
U.S. Senate's Permanent Subcommittee 
on Investigation. 

"Computer crimes (controls) have to 
date been shoehorned into existing by in- 
adequate laws dealing with crimes rang- 
ing from mail fraud to obscene phone 
calls," said Manuel. "But this bill clearly 
defines computer crime as computer 
crime and affords a large measure of pro- 
tection to the computer systems of the 
federal government, financial institutions, 
and all businesses which conduct inter- 
state commerce. It further envisions pro- 
tection for sophisticated electronic funds 
transfer systems whose vulnerability to 
computer fraud is enormous." 

Several laws have been enacted on the 
state level to define and control computer 
crime. California's legislation in this area 
is generally acknowledged to be among 
the best to date, although it is not above 
criticism. 

Don Parker, a computer crime expert 
with SRI International in Menlo Park, CA 
finds himself in agreement with most of 
the California's computer crime statute 
but, takes exception to the law's defini- 
tion of computers. He says it excludes 
"programmable pocket calculators with 
attached external memory devices." In 
Parker's opinion, the clause is vague and 
it constitutes a weak spot in an otherwise 
good piece of legislation. 

Combatting Compucrime 

Effective methods of combatting com- 
pucrime are, of course, available. Main- 
taining the physical security of the com- 
puter can be divided into four broad clas- 
sifications: 1) controlling the entrance to 

Continues to page 6fi 
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Competency Tests 
Processed by TRS-80s 



At Conant High School, Jaffrey, NH, a 
TRS-80 is being used to process and 
record state mandated tests. Administra- 
tors at Conant believe it is the first 80 ap- 
plied to Competency Testing. The tests 
are required in New Hampshire, as they 
are in 38 other states. 

The tests are mandated under NH State 
Statute 186.5, Section Six, which delin- 
eates the powers and duties of school 
boards. The law has been on the books 
since 1973, however, it was only in 1977 
that the state implemented a set of guide- 
lines called the Accountability Plan under 
which competency testing falls. 

The Accountability Plan has six steps 
with which each school district in the 
state must comply. They include perfor- 
mance indicators, assessment, analysis 
of data (Specifically, the state wants to 
know what the proficiency level is for a 
whole school in math, language arts, his- 
tory and science.), and a management 
plan which outlines district plans for im- 
provements in levels of proficiency 
throughout the year. 

Do these tests contribute to the level of 
proficiency? Since Competency Testing 
was first implemented about four years 
ago, the middle-school students in the 
Jaffrey-Rindge district have steadily in- 
creased their performance level on the 
Stanford Achievement Test, a standard- 
ized norm test given nation-wide. The 
overall average fell into the ninth stanine 
in 1979, which is in the highest percentile 
of achievement, Larry Bramblett, director 
of instruction for the district, said that 
when competency testing first started 
students placed in about the fifth stanine. 
which is in the average range. 

Putting 80s to Work 

This particular school district is ahead 
of its time— not only in instituting the test 
but also in their method of compiling re- 
sults and making them as timely as possi- 
ble. 

John Davys, senior consultant to the 
NH State Office of Education, and the ad- 
ministrators of this school district feel 
that the micro is vital to how successful 
these specialized tests can be. 

Davys feels that the Conant project is 
significant on a statewide level because, 
"It is unique in the sense that they have 
maximized the use of technology. Schools 
have one of the largest stores of human 
resource and this resource bank shouldn't 
be tied up with mundane tasks. Technolo- 



gy does those tasks more accurately and 
quickly and allows the staff to work with 
the students— which is the way it should 
be." 

At a meeting of the Joint Management 
Council of educators from all over the 
state, Keith Burke, chairman of the coun- 
cil and principal of Conant H.S., gave a 
demonstration of how their TRS-80 has 
helped the district manage Competency 
Test results. 

"The council is there," said Burke, "to 
help other districts implement Competen- 
cy Tests. They (the council) are always 
looking for a better way to do it and one 
way is through managing and keeping 
track of the data." That's where the 80 
comes in. 

"The most important thing is keeping 
accurate records of the testing results or 
else the whole system goes out the win- 
dow. The computer handles this very 
well." said Burke. "Also, it's within 98 per- 
cent of the school districts' budgets." 

Bramblett said that compiling the re- 
sults without the computer took too much 
time and it was also costing the district 
about $7,000 annually to have someone 
work on them full time. The whole sys- 
tem—Radio Shack Line Printer III, TRS-80 
48K Level II— including the program, cost 
the Jaffrey-Rindge district roughly $5000. 

In New Hampshire, Competencies are 
taken in grades three, seven and 10 and 
are given at least three times a year. The 
way the system works, if a student passes 
all four areas of testing, for example, in 
the seventh grade, that student will not 
have to take the exams again until the 
10th grade. If a student doesn't pass the 
Competency in a particular area, science 
for example, but passes in the other three 
areas, that student will only retake the 
failed test until it's passed. 

How Conant Discovered the 80 

Conant H.S. has owned a 8K PET, for 
the past few years. Both Burke and 
Bramblett saw what the most basic of mi- 
cros could do and decided that a comput- 
er was what they needed in order to com- 
pile and turn around test results quickly. 

After checking out both APPLE and PET 
systems, they were told by both dealers 
that it would be difficult converting the 
program. Because the program was origi- 
nally written on a TRS-80 by programmer 
Peter Wells, and because he highly recom- 
mended the TRS-80, it became the logical 
choice. 




Dave Bramblett Praising Micros to Educa- 
tors 

Some of the specifics of the program 
are updating, displaying and adding to 
student records of the Competency Test 
results. A summary record for the whole 
school, a class or an individual can be dis- 
played and printed. All of these categories 
are represented by percentage rates. The 
program also generates a mailing list to 
parents. 

One disk contains the test results of all 
the students in a particular school. The in- 
formation on the data disks are safe- 
guarded by program disks which are pro- 
tected by code words. The disks are dupli- 
cated and put into a safe. 

Robert L Brunelle, commissioner for 
the New Hampshire State Department of 
Education, feels that the use of micro- 
computers to process testing results can 
be a valuable tool. 

"The system is all interconnected," 
says Brunelle. "Each district must report 
to the commission. From this data, the 
commission does a statewide sampling 
and from the sampling reports to the Leg- 
islature, and in turn the Legislature acts 
accordingly with the overall findings." 

The use of micros in the school districts 
to compile test results could expedite 
what can normally be a long and tedious 
bureaucratic process. 

Besides taking care of the paperwork of 
Competency Tests, Burke is working on 
programs that will do scheduling and 
report cards. 

Some of the students at Conant H.S. 
have also become fascinated with the 
many uses of the TRS-80. "For example," 
said Burke, "the student council president 
was having trouble keeping track of the in- 
ventory in the school store, so he wrote a 
program to take care of the problem. It 
(the TRS-80) is a fantastic teaching 
tool "■ 

By Pamela Petrakos 
80 Staff 
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SINEWS 




n a jointly issued press release spokes- 
men for the Reader's Digest Assoc, 
Pleasantville, NY and the Source Telecom- 
puting Corp., McLean, VA, announced 
the Source's acquisition by the Digest for 
an undisclosed amount. Terms of the ac- 
quisition were not made public and 
spokesmen for both organizations are ex- 
tremely reticent when queried about the 
deal. 

Rumors of the Source's financial woes 
have been rife for several months, and if 
the microcomputing grapevine is to be be- 
lieved, the reasons for the Source's take 
over are likely to lie in its own financial 
problems. 

The event is newsworthy in light of 
parties involved: The Digest is a multi- 
million dollar publishing conglomerate, 
and the Source is a pioneer in microcom- 
puter network technology. 

In a carefully worded press release an 
unidentified spokesman for the Digest is 
quoted as follows: "The service which can 



be rendered in helping to expand the de- 
livery of education, health care services, 
information and knowledge via cable 
systems, telephones, satellites, etc., is 
thoroughly consistant with our publishing 
philosophy." 

Several words stand out: Education, 
health care services, cable systems, satel- 
lites. It appears that someone within the 
Digest organization has big plans for the 
Source. What these plans are will remain 
conjecture until both organizations de- 
cide to lift the veil of silence they have 
painstakingly maintained. Everyone who 
is anyone within the Digest organization 
prefers not to comment. Spokesmen for 
the Source have proved equally taciturn, 
and one can only wonder why. 

Logical Merger 

The merger of a publishing conglomer- 
ate and a computer network is quite logi- 
cal. This type of arrangement reflects cur- 
rent trends within the publishing industry 
regarding small company acquisition by 



larger organizations and efforts by large 
corporations to diversify their operations 
as a hedge against the declining economy. 

Jack Taub, chairman of Source Tele- 
computing Corp., says in the joint press 
release, "We could not have found a bet- 
ter partner than the Reader's Digest." He 
is probably correct. The vast financial re- 
sources the Digest has at its disposal and 
the business acumen it brings to the com- 
puter network industry are formidable. 
The impact this merger will have on the 
Source's 7000 present customers is un- 
clear, however. 

One thing is obvious. Changes are tak- 
ing place within the computer network in- 
dustry. 

Though a clear picture of what can be 
expected as a result of the Source's take- 
over has yet to develop, the doings in 
Pleasantville and McLean indicate one 
thing— this might be a good year to ask 
for a modem for Christmas. ■ 

by Chris Brown 
80 Staff 



Campaign Applications: Did Computers Influence Voters? 



hat really went into the Presidential 
campaign? Did we choose a winner 
for the intelligence, integrity and capabili- 
ty of the candidate, or did we judge the 
product of a computer inspired version of 
the perfect politician? 

John Cragan and Donald Shields, pro- 
fessors of communications at Illinois 
State University and the University of 
Missouri, developed a computer program 
that analyzes demographic statistics and 
opinions polled from a given geographical 
area. The program then chooses among 
several versions of statements address- 
ing current political situations and ar- 
ranges a campaign speech that should 
appeal strongly to the average voter in the 
polled area. 

In the September 22 issUe of Computer- 
world, Cragan is quoted as saying, "I'm 
sure that almost every [candidate] out 
there today is using a variation of this. I 
don't think it's as sophisticated or as cyn- 
ical, but it's something that is used to pre- 
test [statements and ideas] before you 
have a candidate saying them." 

Before the nation made its choice at the 
polls, I spoke to campaign workers at the 
national headquarters of the three major 
presidential candidates. Each campaign 
made use of computers in several applica- 
tions; none admitted to using them to the 
extent suggested by Cragan, however. 



Carter's Camp 

The Carter campaign probably had the 
most organized and effective applica- 
tions. Bill Krause was the Director of Infor- 
mation Services at the national headquar- 
ters. He had a staff of three, himself, one 
of Carter's sons, and a 19-year-old who 
came on the staff and was trained in BA- 
SIC. 

In-house, the campaign used Tektronix 
microcomputers for standard data pro- 
cessing. With these, they kept files on all 
personnel and volunteers: skills, when 
they were available for work, etc. 

The largest day to day job tackled with 
the computers was scheduling. The 
schedule of who should be where doing 
what changed often— particularly in the 
last few weeks of the campaign. Members 
of the Carter family on the campaign trail 
traveled with a terminal, and checked 
scheduling changes daily through the 
campaign's mailbox at The Source. 

The Carter campaign also used the New 
York Times Info Bank, with which they've 
had a contract since 1969. The Info Bank 
was used to do research on the other can- 
didates, and to scan news stories for key- 
words concerning Reagan, military force, 
etc. The campaign people received ab- 
stracts of articles containing pertinent 
keywords, and these facts were used in 



turn for campaign speech writing. This 
method of research and fact gathering 
greatly reduced the work involved in track- 
ing Carter's opponents, and dropped the 
necessary information into the laps of 
Carter's speech writers. 

Krause said the general election budget 
was done on the G. E. time sharing sys- 
tem. IBM System Six word processors 
were used for personalized letters and 
other mail. 

The Anderson Campaign 

John Boswell, EDP Coordinator (among 
other things) for the Anderson campaign, 
described three computer applications 
used in that office. Ninety-five percent of 
the budget was used to keep computer 
files on contributers and supporters of the 
Anderson campaign: contribution history, 
general personal characteristics, income, 
and other statistics which could be used 
by state campaign offices looking for 
local volunteers and canvassers. 

Other applications mentioned by Bos- 
well were payroll and disbursement rec- 
ords. All of these applications were in turn 
used again to prepare internal manage- 
ment reports and the required income re- 
ports to the FCC. 

The Anderson campaign was under 

Continues to page 56 
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Put an IMAGE on your TRS-80 




These cassette programs will introduce you 
to a new generation of quality software 
for your 16K Level II TRS-80. 



^158 



j MAKE YOUR CHECK OR MONEY ORDER PAYABLE TO: 
I Image Computer Products, Inc. 

I 615 Academy Drive 'NOC.O.D.'S 

j Northbrook. IL 60062 

I PLEASE PRINT 

NAME . 



I ADDRESS 

I 

j CITY 

I 

| PLEASE SEND 

I 8001 



STATE 



ZIP 



SIGNATURE 



PACKAGES INDICATED 
qty: PRICE 



8002 
8003 
8004 



STRATEGY PACK I 

STRATEGY PACK II 

STRATEGY PACK III 

ACTION PACK I 

ANY COMBINATION 
OF TWO 

ALL FOUR 

| VISA MASTERCARD 

| MONEY ORDER CHECK 

I CARD# 

I EXPIRATION DATE 



$19.95 ea. 
$19.95 ea. 
$19.95 ea. 
$19.95 ea. 



$36.95 
$69.95 



IL RES AO 
6°'o TAX 
SHIPPING * 
HANDLING 

TOTAL 



$1.00 



Everything from Fast-action 

animated skill games 

through mind boggling 

Strategy and Simulation 

programs is included in this 

software collector's series. 

Each package contains a 

quality program cassette in 

a protective storage box, 

and complete operating 

instructions. 

These programs run on a 16K 
Level II TRS-80 Model I. 



Strategy Pack I #8001 
Wall Street Challenge. This computer simulation of the stock exchange 
is easy to play and always challenging. Invest in several corporations 
ranging from Municipal Power and Light, a blue chip stock that usually 
provides steady growth, to Offshore Industries Limited, a high-flying 
speculative stock that is certain to change often. 

Roman Checkers. Challenge a friend or test your logic and skill in a 
match against the computer with this ancient game of strategy. 

Strategy Pack II #8002 
Metropolis. This computer simulation of a small city lets you wheel and 
deal in the fast-paced world of real estate. Up to eight players can buy 
businesses with an eye on building a fortune. 

Mindmaster. This classic strategy game takes on a new dimension as 
the computer designs the hidden problems and reports the results of 
each guess. 

Wordmaster. Multiple players may compete against the computer to find 
the hidden word. Each player can select the level of difficulty that matches 
his individual skill. 

Strategy Pack III #8003 

Wildcatting. This computer simulation of an oil field combines chance, 
adventure, and discovery. The object of the game is to purchase property, 
drill oil wells, and strike it rich. 

Frame Up. The object of this strategy game is to "frame-up" your opponent 
by selecting your plays so that all possible moves are blocked. Think 
several moves ahead to increase your chances of winning. 

Recall. Up to four players can play this classic game of matching pairs of 
numbers hidden behind a grid. The computer will select the numbers at 
random and score the results of each guess. 

Action Pack I #8004 

Space Ace. You are in command of a Galactic Federation Starfighter. 
Search out and destroy enemy ships with your lasers. 

Shooting Gallery. A good ol" county fair shooting gallery right on your 
own computer. Loads of fun for up to four players. 

Bomber Run. Pilot a bomber behind enemy lines searching out targets on 
the ground. Or. defend the ground and shoot down the bomber. 

Air-Sea Battle. Pilot your plane over an enemy ship and try to sink it. Or, 
captain the ship and shoot down the bomber. 



so 



FCC-Model I Dance 



Continued from page 51 

not be affected by the Class B deadline. 
Table 2 charts the current Part 1 5 status of 
Radio Shack computers. 

Shirley made no mention of the Model I 
in reference to expected price changes. It 
is questionable whether or not the time 
and money required to modify the Model I 
warrant compliance. How much is a hob- 
byist willing to pay? And what about the 
Model III option? These are bound to be 
the thoughts of Tandy's top brass. 

Interim Labels 

Dave Garner, Tandy's liason with the 
FCC, says, "We will not make a computer 
that does not meet compliance after 
January first." In his opinion the company 
has three options :1) interim labels; 2) re- 
developing products; and 3) dropping pro- 
ducts. Products that are marketed after 
Jan. 1, 1981 that do not meet Class B 
specifications must carry the following 
label permanently attached: 

This equipment has not been tested to 
show compliance with new FCC Rules (47 
CFR Part 15) designed to limit in- 
terference to radio and TV reception. 
Operation of this equipment in a residen- 
tial area is likely to cause unacceptable in- 
terference to radio communication requir- 
ing the operator to take whatever steps 
are necessary to correct the interference. 

Garner explains that there is currently 
no time limit on the use of those interim 
labels. They are being used broadly for pe- 
ripheral devices, since few companies 
have reached that stage in the certifica- 



tion process. But deadlines for the interim 
stage are expected soon. 

Garner summed up Tandy's position as 
he understands it by saying that "All of 
our product line will eventually meet com- 
pliance." The statement sounds positive 
and reassuring to consumers worried 
about the obsolescence of their micros. 
But what has he said? Will the Model I be 
dropped from the product line? Or will the 
Model I be remodeled? ■ 

by Nancy Robertson 
80 Staff 



Class A Radiation Limits 
Frequency (F) Distance Field Strength 



(MHz) 

30-88 

88-216 

216-1000 



(meters) 
30 
30 
30 



(uV/-) 
30 
50 
70 



Class B Radiation Limits 



Frequency (F) 

(MHz) 

30-88 

88-216 

216-1000 



Distance 
(meters) 

3 

3 

3 

Table 1 



Field Strengths 

(UV/-) 

100 

150 

200 



Model 1— not certified 

Model II— verified Class A 

Model III— not certified, although the application 

has been filed. 

Color Computer — certified as a television Interlace 

under separate FCC regulations. 



Table 2 



Compucrime 



Continued from page 52 

the room where the computer is housed; 2) 
protecting the medium upon which the 
program is stored; 3) protecting the medi- 
um upon which the data is stored; and 4) 
controlling the forms on which the output 
is printed. 

A more effective type of security mea- 
sure involves the software itself —such as 
the use of passwords which cause the 
program to abort unless specific, prear- 
ranged information is input upon request. 

Another common method of protection 
is encryption. There is now a data encryp- 
tion standard (DES), a chip for implement- 



ing this standard, and lots of proposals 
for alternative systems, including some 
very attractive "public key" systems. 

Aside from the technological aspects 
of controlling computer crime, the need to 
develop more effective psychologi- 
cal/motivational techniques is also being 
popularized. 

Deterrents and controls notwithstand- 
ing, the fact remains that the vast new 
frontiers now opening up through the ap- 
plied genius of microprocessors continue 
to attract the outlaw element who, like 
crooks of every era, thrive in an environ- 
ment where controls have not yet caught 
up with the expansion. ■ 

by Paul Quinn 
80 Staff 



Micros in 
the Campaign 



Continued from page 54 

contract with a service bureau in Illinois, 
which did their data processing on an IBM 
360. Because of their tight budget, all in- 
formation traveled to this service bureau 
in hard copy form by mail, or by telephone. 
Boswell agreed that the Anderson cam- 
paign was at a disadvantage by lacking 
the funds to gather demographic charac- 
teristics by computer. Any statistics 
gathering of this sort had to be done man- 
ually, through Information Service sub- 
scriptions or by contracting with a poll- 
ster. The same was true for researching 
other candidates or local issues in areas 
in which Anderson was campaigning. 

Reagan's Retinue 

Several calls to Reagan's headquarters, 
and conversations with several different 
people there, produced the information 
that computers were being used in the 
campaign, but no one was sure what kind 
of computers, or what applications, or 
who was in charge. 

So there you have it computer fans. 
Computers were involved in nearly every 
aspect of presidential campaign planning 
this year. Yet, unanswered questions re- 
main: Does the handicap of not being able 
to afford all the time-saving and speech- 
directing applications seriously affect 
chances of winning an election? If you 
don't know how your computers are used, 
or where they're kept, can you really use 
them effectively? How much of what we 
saw in 1980 was acutally a data bank's vi- 
sion of how to deal with the opponent's 
latest political speech? Computers may 
not have written the speeches in this elec- 
tion, but what about next time?B 

by Debbie Marshall 
80 Staff 



Educational 
Software Symposium 

An Educational Software Symposium 
will be held Jan. 17-18, 1981 at the Holiday 
Inn, Bridgeport, CT. Topics will include 
"Educational Software for Elementary 
Schools" and software for particular cur- 
riculums, as well as how to write educa- 
tional software. Registration is $85. Con- 
tact Queue, 5 Chapel Hill Dr., Fairfield, CT 
06432 for reservations or further informa- 
tion. ■ 
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The finest music 

synthesizer for the TRS-80 

is now only $149. 

By focusing on direct sales to the 
consumer, and eliminating the dealer mark- 
up, we can now offer the MUSIC BOX 
at this new low price! 

LOOK AT THESE IMPORTANT EXTRAS: 

< FOUR VOICES, WITH SEVEN-OCTAVE RANGE 
AND WAVEFORM CONTROL Hardware features 
built-in amplifier with volume control. In fact, 
THE ONLY THING YOU HAVE TO SUPPLY 
IS A SPEAKER (and, of course, a Level II 
16K TRS-801). We supply the rest, even the 
speaker cable. The Music Box plugs into the 
keyboard expansion-port or El bus extension 
connectors. 

• BETTER SOUND Latching 8-bit DAC, plus 
precision filter to eliminate unwanted high- 
frequency noise. 

-SAFER FOR YOU AND YOUR COMPUTER The 
electronics are attractively packaged in a 
rugged enclosure with separate UL approved 
power supply. This is not an exposed board! 

■ COMPLETE ADDRESS DECODING Essential for 
compatability with current and future music 
and voice peripherals. 

• 60-DAY LIMITED WARRANTY 

> PLUS! Purchasers of the MUSIC BOX will 
receive "Newtechniques"„the micro com- 
puter music newsletter featuring music 
education, sound effects software and ideas 
for interfacing the MUSIC BOX to your 
BASIC programs. 




And you get the best in microcomputer music 
software... MUSICRA FT 1.2, which consists of 
five machine language programs: 

1. IntellifMit Music Editor (not merely a text editor) 

■ Catches notation errors immediately upon entry ■ 
Ha* full complement of cursor controls ■ Uses notation 
similar to standard music notation ■ Supports unlimited 
tempo, key signature, automatic transposition, and 
"instrument" changes throughout a piece ■ A special 
miorotone option divides the octave into up to 99 
increments, for producing glissandos and modern 
electronic music 

2. Fast multi-pass compiler supports powerful chorus 
and repeat features. 

3. Play program with four modes Standard mode for 
individual songs Juke box mode for creating your own 
song menus Live keyboard mode for turning your 
computer into a real-lime instrument R e h earsa l mode 
for playing along with your computer. 

4. Waveform program lets you create instrument 
sounds in addition to the 14 supplied. 

5. Utility program gives hard copy print out 

■ Transmits music files via modem. 



Including power supply, speaker cable, 

100-plus page manual in 

custom binder, and 

Musicraft tape and disk 

versions on cassette, plus 

demo music 



'149. 



AOO S3 SHIPPING PLUS SI IF COO 
N V STATE RES. AOO SALES TAX. 



• 243 



NEWTECH 

COMPUTER SYSTEMS. INC. 



r* Remdtr Strvic* — sew paga 274 
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SCReen INPUT replaces INPUT and is 
easily adapted to YOCJR application. 

• "ARROW" keys ( \ \~^- ) provide full 
cursor control. Makes editing easy. 

r^\ Can't be out-run by even the fastest typist 

lA Up to 80 data fields on a screen 

• Flashing cursor - won't hide data beneath 
it. 

O Fully relocatable - work in any TRS-80* 
Model I Level II machine, without modification. 

( *TRS -80 is a Radio Shack Trademark) 



SCRINPUT in finance Developed lor a 
banker: loan amounts. Interest rales and 
number ol payments are typed directly 
Into the video worksheet. Computer 
calculates and displays results. Neu 1 
values can be typed directly over old 
Much easier and faster than INPUT. 




Imagine. Data entry by filling in a video form. Easy error correction 
- just type over mistakes. No cumbersome INPCIT statements, no 
valuable data scrolling off the screen. 




SCRI NPUT MAKES IT POSSIBLE IN JGST 1 HREE STEPS: 
w your input form on the video screen using PRINT s 



Define data entry fields in the SCRINPUT data table. 



2 



Activate SCRINPUT through a USR cal 



Now fill in the blanks. SCR1NPCJT assigns all data to BASIC variables 
which are processed normally by your program. It's that easy! 

SCRINPUT comes with user manual of instructions, examples and demo programs, 
tven the loan worksheet program and a source of listing of the machine language 
code are given. Try SCRINPUT. If you are dissatisfied for ANY reason, return it 
within 10 days for a full refund. 



ACR Consultants 

1 000 North Bittner Road 

New Palestine. IN 46 1 63 



^282 



Please Send Me: 

SCRINPUT on diskette $27.00 

. SCRINPUT on cassette $29.00 



Phone Orders Welcome 
(317)861-6319 

* All Olden shipped within 24 hours 

* 10-diiu mi "ifii back guarantee 
' VISA or Mastercharge accepted 



Indiana Residents please add 4 % sales tax. Personal Checks take two weeks to clear. 



Name 



Address. 



City 



State. 



Zip. 



Credit Card Number. 



Expiration Date_ 



Signature 
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NEW PRODUCTS 



Edited by Chris Crocker 



S-100 Processor 

Board Eliminates Polling 

The Model CPD-280 is a Z-80A based, 
second-generation processor board de- 
signed for the S-100 computer bus. It oper- 
ates at four megahertz and is geared to- 
ward multi-user systems. Eight vectored 
priority interrupts maximize the central 
processor's executable time by eliminat- 
ing the need for polling. A real-time clock 
generates the interrupts required by the 
multi-user operating system. 

Two serial and two parallel ports utilize 
direct memory access for high speed data 
transfer. All functions are performed by 
LSI chips. 

The second generation processor board 
costs $750. Volume discounts are avail- 
able from Measurement Systems and 
Controls, 867 N. Main St., Orange, CA 
92668. 

Reader Service • 164 



Double Density Software 

Disk Zap 2.3, a disk editor from Micro 
Systems Software will work either single 
or double density disks. It is track and sec- 
tor oriented, and offers access to all parts 
of the disk. It formats and backs up disks, 
as well as edits them. 

DOSPLUS 3.1 D, also from Micro Sys- 
tems, is similar to most single density op- 
erating systems, but offers the increased 
storage of double density. 

Disk Zap 2.3 costs $19.95, and DOS- 
PLUS 3.1 D is $99.95 from Micro Systems 
Software, Inc., 5846 Funston St., Holly- 
wood, FL 33023. 

Reader Service * 172 



Utility Cleans Disks 

Nupurge is a utility program that cleans 
disks of unwanted clutter after a program 
is killed. It loads the disk directory into 
memory, and lets the operator choose 
which programs to keep and which to kill. 




MSC Processor Board 



The unused sectors are zeroed. 

In addition, according to Soft Sector, 
Nupurge will figure out the password of 
any program. The program costs $24.95 
on disk from Soft Sector Marketing Inc., 
P.O. Box 2471, Livonia, Ml 48150. 

Reader Service * 173 



Education Sampler 

Education Sampler is a program for 
high school math/science courses. It will 
test, self-drill, or provide answers in three 
subject areas: algebra, geometry, and 
chemistry. 

The user may select an answer accura- 
cy level for testing purposes between .01 
and 5% error. The cassette version costs 
$15 from Harry H. Briley, P.O. Box 2913, 
Livermore, CA 94550. 
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Radio Shack 

1981 Computer Catalog 

Radio Shack's 1981 TRS-80 Computer 
Catalog No. RSC-4 lists Model I and II 
equipment, as well as the new Model III, 
Color Computer and Pocket Computer. 

Also notable are the Daisy Wheel II 
Printer which produces typewriter quality 
hard copy for $1,960; a Plotter/Printer that 



produces hard graphics for $1,460; and 
Videotex, a two-way information retrieval 
system terminal for $399. New education- 
al hardware for the TRS-80 includes the 
Network I Controller, which allows 
teachers to upload and download pro- 
grams for up to 16 student stations for 
$499. 

The catalog also lists books and soft- 
ware and is available free from Tandy/ 
Radio Shack, 1300 One Tandy Ctr., Fort 
Worth, TX 76102. 
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Business Analysis 

And Forecasting Package 

Oracle-80 is a business analysis and 
forecasting package from Instant Soft- 
ware. The package can be used in sales 
analysis and forecasting, product plan- 
ning and business planning. Investors can 
analyze stocks, company trends and 
growth rates. The package can be used in 
analysis of general economic climates, 
business cycles and energy consumption 
trends. 

Oracle-80 requires a TRS-80 Level II with 
16K and a disk drive, and costs $99.95 for 
disk or $75 for the cassette version. 

Oracle-80 was released in Instant Soft- 
ware's fall-winter catalog. The catalog in- 
cludes 55 new programs for the TRS-80 
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Software for any season 




At The Bottom Shelf, we're continuing to produce some of the best 
TRS-80™ software available anywhere. In the two years since we released 
the Library 100, we've developed sophisticated data managing, general 
accounting, and system utility packages. We also developed the first disk 
drive head cleaners for both Model's I and II. The result has been 
resounding acclaim from users, dealers, and computer magazines. 

But this is just the beginning. In 1981, TBS will introduce for the 
Model II the most dazzling and intricate applications software it has yet 
produced. The culmination of ten months of work. In early 1981, you 
will witness MEGAMAIL, the most thorough and professional mailing 
system ever written for the Model II. 

We've come along way in two years. We are now on the threshold 
of a new era in computer programming. The Bottom Shelf is leading the 
way. With software for all seasons. 

TRS-HO™ is a registered trademark of the Tandy Girporation. 
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— ^— <J (404) 296-2003 • P.O. Box 49104 • Atlanta GA 30359 
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NEW PRODUCTS 



Models I and II, Apple II and PET. 

Catalogs are available free from Instant 
Software, Peterborough, NH 03458. 
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Pharmacists' Aid 

Pharmacy Associates' catalog lists pro- 
grams for medical and pharmaceutical 
use. Programs included are: Antibiotic 
Dosing, Aminoglycoside Dosing, and To- 
tal Parenteral Nutrition. 

The programs require TRS-80 Level II or 
Disk BASIC with 16K. The catalog also 
lists a TRS-80 Pocket Computer version of 
Aminoglycoside Dosing. All programs are 
available from Pharmacy Associates, 
1202 Fox St., Bossier City, LA 71112. 
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Catalog Lists New Books 

A 16-page catalog from Creative Com- 
puting Press features three new books. 
Computers in Mathematics: A Source- 
book of Ideas offers 224 pages of class- 
room activities. The Impact of Computers 
on Society and Ethics: a Bibliography, 
compiled by Gary M. Abshire, lists over 
1900 entries, including books, magazine 
articles, news items, and scholarly pa- 
pers. Katie and the Computer by Fred 
D'lganzio and Stan Gilliam is an illus- 
trated adventure story that explains the 
workings of computers to children. 

The catalog also describes a record al- 
bum of computer music, a board game, 
T-shirts, reprints, back issues of Creative 
Computing and ROM and ten additional 
books. The catalog is free on request from 
Creative Computing Press, P.O. Box 
789-M, Morristown, NJ 07960. 
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Shrink Data Files 

Reduce is a program designed to re- 
duce the size of a data file made with Ra- 
dio Shack's Profile data file system. It al- 
lows a number of data files to be used on 
the same disk with a BASIC program. 

The program also will reduce the file 
size on the Profile disk to use only one file 
in a BASIC program, and use the BASIC 
program on the Profile disk. Reduce costs 
$19.95 and is available from Micro Devel- 
opment Systems, 720 Dartmouth Lane, 
Schaumburg, IL 60193. 
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Circuit Design Software 

The Circuit Design Software programs 
are 37 engineering and statistical pro- 
grams on seven cassettes from Howard 
W. Sams and Co. 

The new series of programs are for use 
in the design of active filters, matching 
pads, attenuators, heat sinks, integrated 
circuit timers, Zener diode regulators and 
bipolar transistor circuits. The programs 
allow the operator to solve simultaneous 
equations with real and complex coeffi- 
cients and polynomial roots. The operator 
also can determine the effects of design 
parameters. 

The packages require Level II BASIC 
and at least 16K RAM. Prices range from 
$16.95 to $21.95 and are available from 
Howard W. Sams and Co., Inc., 4300 W. 
62nd St., Indianapolis, IN 46268. 
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Program 

Calculates Intoxication 

Intoxltron, a program from The Lawtech 
Co. estimates a subject's blood alcohol 
content and degree of intoxication, based 
on sex, weight, number and strength of 
drinks, and time since the first drink. A 
single occasion can be analyzed, or a 
general chart may be produced. 

INC., another program from Lawtech, 
explains cumulative voting, performs cal- 
culations necessary to understand and al- 
locate shareholder voting power, and con- 
tains a checklist of pitfalls, as well as a 
bibliography. Each program requires a 
16K TRS-80 with Level II BASIC and costs 
$16. They are sold by The Lawtech Com- 
pany, P.O. Box 1523, La Grande, OR 97850. 
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Hard Disk System 
Works with TRSDOS 

HDOS-2 is a hard disk operating system 
designed specifically for use with TRS- 
DOS 1.2 on the TRS-80 Model II. The pro- 
gram allows a standard Corvus hard disk 
drive to be interfaced to existing soft- 
ware with minor changes to the software, 
according to Computer Program Associ- 
ates. 

The system occupies 1K at the top of 
memory, and allows multiple drives to be 
used. It restores PEEK and POKE com- 
mands, and adds three new BASIC com- 
mands. HDOS-2 supports only random ac- 
cess files; and programs or sequential 



files may not be stored on disk. 

Prices were not released. HDOS-2 is 
available from Computer Program Asso- 
ciates, 150/6 Beltway Dr., Dallas. TX 
75234. 
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Parallel I/O 

Board Has 5-V Supply 

The Parallel Input/Output Board is a 
new peripheral board from Persteve Elec- 
tronics, Ltd. for the TRS-80. It connects di- 
rectly to the edge connector at the back of 
the computer. The board contains nine 
eight-bit I/O ports and is controlled via the 
Level II BASIC instructions INPUT and 
OUTPUT. It is powered by a single 5-volt 
power supply. 

The assembled version costs $65; an 
unassembled bare board is also available 
from Persteve Electronics, Ltd., P.O. Box 
3623, Stn. D, Ottawa, Canada K1P 6H8. 
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General Accounting 
Package and CP/M System 

A General Accounting Package con- 
sisting of a general ledger, accounts re- 
ceivable, accounts payable and a com- 
plete CP/M operating system for the TRS- 
80 Model II are available from Microed. 

The package uses double entry with 
user-definable accounts. Seven levels of 
account classification are possible with 
up to four digit fields at each level. 

The CP/M operating system included 
has all of the standard CP/M programs 
plus Microed-written utility programs. 
These utility programs can format disks, 
copy disks, and operate on a single drive. 
Microed CP/M for the Model II is capable 
of single or double density operation and 
automatically senses the density of the 
disk. The complete package costs $415 
from Microed, 3910 Bandini St., San 
Diego, CA 92103. 

Reader Service s 161 



Corrections 



Regrettably, two photos were interchanged in the 
November New Products section The Micromatic 
80 belongs on page 58 and the Mediamix 50/80 Inter- 
face on page 56. Our apologies tor the confusion 

Also, we reported the address Incorrectly for Multl 
Media Systems in our September issue. The correct 
address Is Box 41084, Indianapolis, in 46241. 
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Enjoying 80 MICRO? 



then read on 



80 MICROCOMPUTING has proven, in 
its first several issues, that it can give you 
more information on theTRS-80* than any 
other single source. The magazine has 
grown more informative with each month 
and we still have lots more interesting 
ideas in the works for you. 

With the TRS-80* (or 90. . .etc.) being 
the most popular microcomputer in the en- 
tire world, you are going to benefit from 
this in many ways. The more computers 
there are out there of one kind . . . the more 
good programs you are going to have for 
this system. I hope that is obvious. You 
may be sure that 80 MICROCOMPUTING 
will be packed with the shorter programs 
and reviews of the larger ones. You can 
waste an awful lot of money on stuff that 
looks great in the ads, but fizzles out when 
you try to use it. You need our reviews. 

The wealth of programs will also mean 
that there will be much better programs for 
the TRS-80* than any other system. Put 
yourself in the seat of a computer pro- 
grammer and you'll understand this. If you 
are going to spend several months de- 
veloping a comprehensive program, and it 
takes all of that to write and debug a big 
program, would you write it for a system 
which has sold one hundred units or one 
which has sold over 300,000 systems? The 
answer is obvious. . .and this is why we 
are already seeing programs coming out 
for the TRS-80* which are far better than 
anything for any other system on the 
market. This is tough for other systems 
. . .the law of the computer jungle. 

Between our connections with Instant 
Software, the largest publisher of micro- 
computer programs in the world, and 
Kilobaud MICROCOMPUTING, you know 
that 80 MICROCOMPUTING is going to be 
your most important link with software for 
theTRS-80*. 

With Instant Software being sold and 
promoted in every country in the world 
where the TRS-80* is being sold, our input 
of programs is also the best in the world. 
We get programs submitted from every- 
where. . .often from 50 to 100 a week! 
You'll get the cream of the crop either pub- 
lished or reviewed in 80. 

HARDWARE TOO 

The same law of the computer jungle 
holds for hardware. Would you, as a manu- 
facturer, market an accessory for a system 
which has sold 100 units or would you go 

"TRS-80 is d tratlemarK of Tandy Cotp 



first for the one which has sold hundreds 
of thousands. It is, as with software, self- 
evident why the great bulk of the hardware 
accessories for computers are for the 
TRS-80* these days. 

80 MICROCOMPUTING has the advan- 
tage of the use of the largest and most 
complete microcomputer lab in the 
world... the one developed for Instant 
Software and Kilobaud MICROCOMPUT- 
ING. This means that most new pieces of 
equipment are tested and in use by our 
staff. . .and this means that we can tell 
you what we think is outstanding. . .and 
where we find ripof fs. This lab is important 
to you. 

SUBSCRIBE 

If you are not already a subscriber to 80 
MICROCOMPUTING, please get signed up 
right now. The yearly rates are $18, and 
that is a bargain. Just one single program 
of use to you can be worth much more than 
that. One review of an accessory could 
save you many times that much invest- 
ment. I would appreciate it if you would ap- 
point yourself a committee of one to get 
more subscribers for the magazine. You 
will benefit even more than we do here at 
the magazine. . .because the more read- 
ers we have, the more ads we will be able 
to attract. . .and the more ads, the more 
pages of articles you will get every month. 

The 80 market can, I think, support a 
couple of hundred pages of ads... and 
that would mean a magazine of nearly 500 
pages a month. That should hold you. You 
may not have time left to use your comput- 
er. 

ENCYCLOPEDIA 

If you've read Kilobaud MICROCOM- 
PUTING, you know that I try hard not to 
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duplicate published material. My concept 
is that every reader should save every 
issue (we sell inexpensive boxes for this so 
they can sit on your library shelf) and treat 
the magazine as a continuing encyclo- 
pedia of computing. I make sure that much 
of the material in each issue is written in 
simple language so it will be understand- 
able by even the rawest newcomer to com- 
puters. Oh, I have articles for the more ad- 
vanced users too, so you'll have some- 
thing to look back over later and use as 
your understanding of your system grows. 

Try to think of 80 MICROCOMPUTING as 
more of a large club newsletter than an 
ivory tower high-level publication. I'll leave 
the pomp to other publishers. . .the ones 
with the well-deserved inferiority com- 
plexes who cater to their inadequacies by 
publishing esoteric baloney. This 
magazine is written by the readers and 
edited by people whose aim is to help you 
enjoy your TRS-80*. 

SAVE 

With each issue costing $2.50 at your 
computer store, that's $30 a year. For $18 a 
year you can subscribe ... at least for now. 
As the magazine expands, please do not 
be surprised if the cover price increases, 
along with the subscription price. I started 
73 Magazine for radio amateurs twenty 
years ago with a cover price of 37c (two for 
73c) and it is up to $2.95 a copy now (and it 
is the largest of the ham magazines). 

For you bargain hunters. . .and those 
who find that one year goes by all too rap- 
idly, the three year rate for 80 is $45. This, 
too, will be going up. . .reflecting the infla- 
tion, paper increases, postage increases, 
and a short vacation for me in Hong Kong 
next year. Someone has to pay for that. 
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PMC-80 

Level II 16K at $645 




SOFTWARE COMPATIBLE 



Reads all Level II BASIC tapes 
Reads all SYSTEM tapes 
Full range of peripherals 



The PMC-80 is a "work-alike" computer 
to the popular TRS-80* Model I, Level II 
by Tandy, Radio Shack. The PMC-80 has 
16K bytes of RAM and the complete 
Level II 12K BASIC ROM by Microsoft 
that makes it 100% software compatible 
with programs from Radio Shack and 
from the hundreds of other independent 
suppliers. The built-in cassette player 
reads standard Radio Shack programs 
for the TRS-80.* 

Sold through computer stores. 



Video output for monitor and TV 
Optional FASTLOAD at 8000 baud 
Optional Upper/Lower case 



The PMC-80 will operate with any of the 
many peripherals Radio Shack and 
other independent vendors have in- 
vented to plug into the TRS-80.* Most 
importantly, the Interface Adapter per- 
mits Expansion Interfaces with memory 
expansion to 48K to be added. An 
Expansion Interface will also permit the 
addition of Radio Shack compatible 
5 V'4 " disks and disk operating systems, 
RS 232, printers, etc. 

"TRS-80 is a registered trademark of Tandy Radio Shack. 
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Personal Micro Computers, Inc. 

475 Ellis Street, Mountain View, CA 94043 (415) 962-0220 
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NEW PRODUCTS 



Payroll System 
Maintains Tax Files 

PR is a payroll system for the TRS-80 
Model II that calculates payroll for em- 
ployees while maintaining monthly, quar- 
terly and yearly totals for reporting pur- 
poses to multiple states. Tax tables are 
maintained via on-line commands with no 
programming required, according to 
Micro Architect, Inc. 

PR requires TRSDOS 1.2, a 132-column 
printer, a dual disk system and 64K mem- 
ory. The program costs $129 from Micro 
Architect, Inc., 96 Dothan St., Arlington, 
MA 02174. 
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Index on One Disk or Two 

Two new versions of the Keyword In- 
dexing System are available from North- 
east Microware. The Keyword Indexing 
package is a series of programs enabling 
the user to create a disk file, build an index 
of all key words, and search for them us- 
ing combinations of key words. 

The new systems include an enhanced 
version for two disk systems and a com- 
pressed version for one disk systems. 
Both require 32K of memory and run under 
TRSDOS. They are available from North- 
east Microware, P.O. Box 2133, Boston, 
MA 02106. 
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Lighting and 

Fault Current Programs 

Two electrical engineering programs 
from MC.2 have on-board files of equip- 
ment and fixture characteristics. 

The E3M Fault Current Program uses a 
per-unit calculation procedure and per- 
mits an unlimited number of bus voltage 
levels, panels and branches. Three-phase 
symmetrical voltage and fault currents 
are calculated at any point in the system, 
with or without line voltage drop. 

The E5M Lighting Program automati- 
cally calculates the number, spacing and 
location of luminaires required to give a 
desired level of illumination in a project of 
up to 100 rooms. The program also will de- 
termine the lighting level supplied by a 
given number and type of fixture. 

Prices were not released. The programs 
are written for the TRS-80 Models I and II 
from McClintock Corp., P.O. Box 430980, 
Miami, FL 33143. 
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Belden Bit Driver 



Short-haul Modem 

The Belden Model 9338 metallic con- 
ductor Bit Driver short-haul modem is part 
of an RS-232C compatible data transmis- 
sion system. 

The Model 9338 metallic Bit-Driver 
modem provides asynchronous simplex 
and duplex data transmission. The metal- 
lic conductor unit is recommended for use 
in clean electrical environments. De- 
pending on the type of cable selected, 
operation range extends from 1500 to 
4500 meters. The price of Model 9338 is 
$195 from Belden Corp., 200 S. Batavia 
Ave., Geneva, I L 60134. 
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Program Tests, Drills 

T.E.S.T. is a classroom aid from T.Y.C. 
Software. The package contains two pro- 
grams: a Maintenance Program and a 
Test and Drill program. The Maintenance 
Program creates a test of up to 35 ques- 
tions and saves it on cassette. In order to 
produce a test, a question is typed on any 
topic (up to 240 characters), the type of 
question— true or false, multiple choice, 
or completion— and the correct answer 



entered. When finished, the test is saved 
on cassette. 

Test and Drill is a utility program de- 
signed to accept the test prepared by the 
maintenance program. With the Test and 
Drill program, students can either use the 
questions as a review, take a scored test, 
or the teacher can have the computer pre- 
pare a printed test or worksheet with an- 
swer key. 

The package contains two programs 
and a manual for TRS-80 Level II, 16K for 
$11.95. For more information, contact 
T.Y.C. Software, 40 Stuyvesant Manor, 
Geneseo, NY 14454. 
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Terminal 

Programs Transfer Files 

SMART80E and SMART80C are termi- 
nal programs for use with the Exatron 
Stringy Floppy and cassette-based sys- 
tems, respectively. The programs are used 
in conjunction with a direct-connect tele- 
phone interface called The Microconnec- 
tion. 

The terminal programs allow the trans- 
fer of BASIC programs and source code 
files. The programs also feature software 
selection of half and full duplex plus the 
ability to transfer text created by either 
Electric Pencil or Scripsit in upper/lower- 
case. For additional information on 
SMART80E, SMART80C or The Microcon- 
nection, contact The Microperipheral 
Corp., Box 529, Mercer, Is., WA 98040. 
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COBOL Compiler 
On Release 2 CP/M 

RM/COBOL, a high-intermediate level 
ANSI-74 COBOL compiler, is available on 
Release 2 CP/M systems for $495. 

This compiler, compatible with several 
minicomputer COBOL compilers, has al- 
ternate keys (multi-key ISAM), CRT screen 
handling, program segmentation, interac- 
tive debug, and other Level II features. Im- 
plemented under the Cybernetics, Inc. ver- 
sion of Release 2 CP/M on the TRS-80 
Model II, RM/COBOL is source-program 
compatible with Tandy's COBOL 

The RM/COBOL User's Guide and the 
RM/COBOL Language Manual may both 
be obtained for $40 (refundable upon pur- 
chase of RM/COBOL), from Cybernetics, 
Inc., 8041 Newman Ave., Suite 208, Hunt- 
ington Beach, CA 92647. 
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NEW PRODUCTS 



Five DOS Utilities 
And Teachers' Package 

The Alternate Source has a five- 
program utility package for the TRS-80. 
Three of the programs are written in Z-80 
machine language and can be used with 
either Level II cassette systems or with 
DOS systems. Two are written in BASIC, 
for use with DOS systems only. 

The three Z-80 utilities are distributed 
with a relocatable module which allows 
them to be dumped at the user's specified 
starting address. They are BTrace, Com- 
press Program Utility and Search. 

When TRON is activated. BTrace leaves 
the screen display intact and places any 
lines being executed in the upper right- 
hand corner of the screen. Compress Pro- 
gram Utility allows BASIC programs to be 
compressed in a variety of ways. Search 
will locate any BASIC line containing 
whatever argument the user wishes to 
find. 

The two BASIC DOS programs are 
Changes and Replace. Changes provides 
a screen or printed listing of the differ- 
ences between two programs. Replace 
will locate all occurrences of an argument 
and replace it with a string. 

The package is available on a single 
disk for $29.95. 

Schoolmaster, a separate package, is a 
record keeping system for teachers. It 
generates cumulative reports for each 
student, and flags students whose as- 
signments are missing. Teachers can ex- 
amine a variety of grading methods before 
recording grades, according to the Alter- 
nate Source. Schoolmaster will present 
both individual and class statistical data. 

Schoolmaster requires a 32K TRS-80 
with one drive. The program comes on 
diskette for $24.95. Programs are avail- 
able from The Alternate Source, 1806 Ada 
Street, Lansing, Ml 48910. 
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Disk File Directory 

Master Diskette Directory version 1.1 
reads, stores and categorizes the direc- 
tories of up to 320 disks. The program will 
list all files on disk, by file extension, disk 
number or program category. 

Master Directory will also search for a 
file name and list every number of that file, 
its size, and the number of the disk con- 
taining the file. 

The program is available for $29.95 from 
Micro Systems Software, Inc., 5846 
Funston St., Hollywood, FL 33023. 
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Information 
Retrieval for TRS-80 

SE (Search Entry) is a general purpose 
information retrieval program. It is a ma- 
chine language program for the TRS-80 
Model I, Level II. 

SE's command structure facilitates 
data entry, data searches, and quick data 
storage and retrieval on tape or disk, ac- 
cording to the manufacturer, Information 
Technology Systems. Some commands 
are available from the ENTER Option re- 
sponse with a single keystroke. 

Targets can be any combination of 64 
characters, employing unlimited ANDs 
and ORs, according to ITS. The program 
includes error messages and error check- 
ing procedures. 

Data entries are identified by a three- 
character code assigned by the user. All 
of memory, less 4K for the program, is 
available for storage. 

SE is sold in two versions: SE2.0 for 16K 
Level II (cassette) costs $24.95, and SE3.0 
for DOS up to 48K costs $49.95. SE is avail- 
able from Information Technology Sys- 
tems, Post Office Box 2667, Sarasota, FL 
33578. 
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Series of Educational 
Instruction and Utilities 

Rite 80 Software is selling several 
series of field tested programs for use in 
schools. Written for Level II machines, the 
series are Math, Spelling, Topics, Earth 
and Rollbook. 

The Math Series consists of three pro- 
grams for individual or group work, de- 
signed to help students increase their 
speed and accuracy in basic arithmetic. 
The three programs in the Spelling Series 
drill students on rote memorization of 
spelling words. 

The Topics Series, four programs, 
allows teachers to test students on any 
subject, using short phrases or single 
words as answers. The program will ac- 
cept different words with the same mean- 
ing for correct answers. 

Earth is a video animation of the earth 
rotating on its axis. Rollbook is a disk utili- 
ty for teachers. It will record up to 100 
grades for 40 students. 

Rollbook is priced at $49.95 from Rite 80 
Software, 4660 Willens Ave., Woodland 
Hills, CA 91264. The other series are 
priced by program. Programs cost $19.95 
each, with discounts given for the pur- 
chase of an entire series. 
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Elcompco 

Disk Drive System 

The Elcompco disk drive is a case and 
power supply with either MPI-B51 or Shu- 
gart SA-400 drives. A large 18,000 uF ca- 
pacitor and fixed voltage regulators are in- 
cluded to reduce ripple and noise from the 
power supply. The heat sink is mounted 
externally, and allows the drive system to 
run cool while powering drives, according 
to Elcompco. 

The system is available with one drive 
or two. Kits are available for the case and 
power supply only, or including drives. The 
drive will power mini-floppy drives com- 
patible with Shugart or MPI power require- 
ments. 

Dual drives with case and power supply 
cost $800. Single drive in double case is 
$475, and a single drive in single case 
costs $400. The kit without drives costs 
$135. 

The drive systems were released in 
Elcompco's winter catalog of hardware 
and software. 

Catalog and disk drives are available 
from Elcompco Microcomputer Periph- 
erals, P.O. Box 6133, Albany, CA 94706. 
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TRS-80 Data 
Management System 

Data Access Corp. has DataBank soft- 
ware for TRS-80 Model II microcomputers. 
Databank is a system of pre-programmed, 
data independent modules that are adapt- 
able to each user's requirements. 

File maintenance, data management 
and report generation functions are op- 
erable as soon as the user indicates file 
specifications. Typical applications in- 
clude mailing list maintenance, inventory 
and accounting records, student or per- 
sonnel files, and patient/client data sys- 
tems. 

DataBank uses hashing, assembler 
subroutines and other techniques. Files 
can span up to four disk drives with as 
many as 32,767 records. Key access time 
to a given record is a second or less. 

Modules are divided into four main 
groups: configuration utilities, file 
maintenance, report generator, and a sub- 
routine library. A multi-purpose editor pro- 
gram is also included. 

DataBank runs under TRSDOS and 
BASIC. It is priced at $249 per installation 
from Data Access Corp., 4221 Ponce De 
Leon Blvd., Coral Cables, FL 33146. 

Reader Service ^175 



64 • 80 Microcomputing, December 1980 




From Rudyard Kipling's KIM, 
General Computer brings you an 
adaptation of the exciting, mind 
expanding game of memory and 
recall. KIM uses dynamic handi- 
capping to compensate for skill 
differences while urging each 
player into greater challenges. 
Everything adjusts -display times, 
number of objects displayed, 
identification difficulty, and even 
scoring as you play your way 
through a data-base of thousands 
of items. Quicken your perception, 
sharpen your awareness, and 



develop an elephant-like memory 
... while enjoying the competitive 
excitement of playing KIM. 

• An exciting two player game 
with competitive skill- 
difference handicap scoring 
(Junior could beat daddy 
every time!) 

• Or, A challenging single- 
player contest 

• Includes a BASIC source list- 
ing as part of a trend-setting 
manual 



• 16K, Level II version $19.95 
(cassette) 

• 32K, TRS-DOS two drive version 
$24.95 (diskette) 

• For Visa and Mastercharge 
orders, call toll free anytime 

1 -800-824-7888. In California. 
1-800-852-7777. ask for 
Operator 115 

• Dealer Inauiries invited 
General Computer Co. 
4873 Longer Lane 
Woodbridge, VA 22193 

^ 251 
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Season's Greetings from all of us 
at Software Mart. Best wishes for 
the coming year. 



•-286 
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Software-Mart 



24092 Pandora St., El Toro, CA 92630 
24 Hour Service 
In California Call (714) 768-7818 
Call Toll Free 



SOURCE MAILBOX I TCU155 




all (714) 768-7818 (j 

1(800)854-7115 * 
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The Dvorak 



Keyboard 



Waldo T. Boyd 
Jon Etherton 
POBox86 

Geyserville, CA 95441 



ou have just taken possession of a 
dream— a new TRS-80. Set it up, 
switch it on, and reach for the home row 
on the Keyboard. Your fingers flick from 
key to key, and, slowly but surely, into the 
memory goes your first program. Wunder- 
bar! 

The chips work perfectly; the terminal 
screen glows brightly with your first effort. 
Everything seems to be in order. Could 
anything be wrong? 

Nothing, you say. It's perfect! 

Let's look more closely. What about the 
arrangement of the alphabet on the key- 
pads: QWERTYUIOP. Just like the mil- 
lions of typewriters in homes and offices 
everywhere in the English-speaking world, 
right? 

Yes, it is. And that is precisely what is 
wrong with hundreds of thousands of 
computers. The computer itself is light- 
ning-fast and potentially, error-free, ex- 
cept for the most vital consideration of all 
—the man to machine interface. 
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The letters on the keyboard are placed 
in positions that will cause you to make er- 
rors in your input, that will tire you, that 
will keep your entry speed far below your 
true operating potential. 



A Little History 

Your computer inherited a keyboard 
that was originally designed for the type- 
writer by an inventor named Christopher 
L Sholes in 1873. His first production ma- 
chine looked very much like a sewing ma- 
chine. Its typebars were hidden from the 
operator's view, striking upward from be- 
neath the platen (paper roller), so the oper- 
ator couldn't see what had been typed un- 
til three or four lines later. 

Worse than that, typebars, which lay 
next to one another, had so much mutual 
friction that if the operator struck an adja- 
cent key too soon, the first key struck 
would fail to fall back into its rest position 
in time to miss the upcoming key. The re- 
sult was a key jam, not easily remedied in 
those early hand-built machines. 

Sholes was no less than ingenious in 
his approach to fixing these jams. By 
studying the frequency of occurrence of 
the letters in the majority of common 
words in the English language, Sholes re- 
duced the number of jams per sitting. 

He found that by placing the operating 
keypads in a certain sequence, he could 
slow down the faster operators, and the 
typist could hunt-and-peck through doz- 
ens of letters with no more than one or two 
serious jams. This sequence ensured that 



the operator stayed below ten words per 
minute, the critical speed of his machine. 
This, we can say with 20-20 hindsight, was 
human engineering — in reverse. 

Look once more at the keyboard on 
your TRS-80: You are viewing the key- 
board Mr. Sholes produced for the specif- 
ic purpose of slowing down the 1870's op- 
erator, so his machine would operate 
without jamming! 

It wasn't long before far better ma- 
chines than Sholes' cumbersome "sewing 
machine" were developed and marketed, 
but for some inexplicable reason every 
manufacturer who jumped Into the bur- 
geoning typewriter market copied the key- 
board laid out by Sholes. Everyone took 
for granted that QWERTY was as good as 
any other arrangement. 

Bruce Bliven, Jr., author of The Wonder- 
ful Writing Machine, has this to say about 
QWERTY: "Judged scientifically. . .from 
the standpoint of the touch typist, this ar- 
rangement of the alphabet is madly incon- 
venient. According to one of the many per- 
sons, including psychologists, engineers 
and student Ph.Ds who have studied it, 
the standard keyboard is considerably 
less efficient than if the arrangement had 
been left to simple chance." 

A Breakthrough 

But for the perseverance and insight of 
Dr. August Dvorak, late professor of En- 
glish at Washington State University, we 
would be stuck with QWERTY for all time. 
Dvorak heard the anguished cries of a few 
far-sighted touch-typists and arranged a 



''When he had completed his work and 

tested it in the early 1940s, his keyboard 

was found to be twenty times easier to use. . . " 



U.S. Navy contract to humanly -engineer 
the typewriter keyboard. 

When he had completed his work and 
tested It In the early 1940s, his keyboard 
was found to be twenty times easier to 
use than QWERTY. 

His brain-child, the Dvorak Simplified 
Keyboard (DSK), can be learned in one- 
quarter to one-half the time required to 
learn Sholes' old system, and DSK touch 
typists become so proficient that they 
leave the QWERTY typist far behind in 
speed and accuracy. 

DSK users commonly type 100 wpm, 
while the average QWERTY typist is hard- 
put to better half that speed. The world 
typewriter speed record holder is a DSK 
typist. 

Why, if the DSK is so efficient, doesn't 
industry adopt it and build typewriters and 
computers with the new keyboard? The 
answer lies in two realms that affect man- 
kind universally: tradition and economics. 
Typists train on QWERTY in high school. 
They enter the job market, able to type 
about 45 wpm on the average. Their pros- 
pective employers have QWERTY key- 
board typewriters waiting for them. The 
schools provide typists to fit the business 
office; typewriter manufacturers pro- 
vide machines to fit the operators who are 
trained by the schools. Catch 22! 

Dr. Dvorak's keyboard was ready for 
market in 1944, more than a decade ahead 
of EN I AC, the first major computer. Yet, 
the first computer operators were typists 
who had mastered the QWERTY key- 
board. Not surprisingly, these highly ac- 
curate, lightning-fast machines are today 
provided with— nay, saddled with— a 
QWERTY keyboard! 

The DSK however, is finally catching 
on, in spite of tradition in the marketplace. 

A few pioneering court reporters and free- 
lance writers have used the DSK over the 
years. In the past twenty years the number 
of users has increased to the extent that 
two typewriter manufacturers now offer 
the DSK on new machines at no extra 
cost: IBM and Smith-Corona (SCM). 

So far, no manufacturer has offered the 
DSK as an option on new computers, but 
the computer itself provides a simple way 



to use either keyboard at will. Software for 
this purpose has been developed and will 
soon be available on tape. 

The Software Route 

The software program (Program Listing 
1) presents a reasonably simple way to 
convert the TRS-80 keyboard from 
QWERTY to DSK. This program permits in- 



"Why, if the DSK is so 

efficient, doesn't the 

industry adopt it and build 

typewriters and computers 

with the new keyboard?" 



stant changeover from QWERTY to DSK 
and back to QWERTY by pressing two 
keys simultaneously, the shift key and the 
zero key. Thus, instant comparison of one 
keyboard with another is possible. 

The 183-byte program is loaded into the 
desired memory location by means of a 
BASIC relocating program, which also 
gives some operating instructions and 
does decimal to hexadecimal conversions 
of the starting and ending addresses. The 
machine language code is contained al- 
most entirely in the data statements on 
lines 170-184. (If you want to save some 
effort you can leave out all but Lines 6, 
100-2330 and 10000-10040.) 

The program is compatible with other 
machine language utilities, such as Radio 
Shack's KBFIX, but KBFIX must be loaded 
first. 

To load the program below another ma- 
chine language program (such as a printer 
driver) subtract 183 from the current 
memory size. This gives you the new mem- 
ory size to be used when powering up the 
computer. 

Be sure to tape at least one copy of the 



BASIC program before running it. If any of 
the data statements contain an error the 
Z-80 may jump back to memory location 
zero, thus wiping out your program. 

After loading the BASIC program, type 
RUN. The program asks you if you remem- 
bered to set memory size and then prints 
some explanatory information before ask- 
ing for the starting address. This is usual- 
ly, but not necessarily, the same as the 
memory size. 

After you enter the starting address, the 
program proceeds to POKE in the memory 
locations selected. These locations and 
data are displayed on the screen. 

The program then prints more informa- 
tion, including the starting and ending ad- 
dresses in hexadecimal. You may want to 
make note of the address for the start of 
the lookup table, for future reference. 

To execute the program, type SYSTEM 
(enter). When you get the *? prompt, type/ 
and the starting address (in decimal). The 
keyboard should now be in DSK mode. If 
an unexpected response appears, such as 
the memory size question after executing 
the program, reload your tape (or the pro- 
gram), check the BASIC program (espe- 
cially the data statements), and try again. 

Check to see that the keyboard is in- 
deed in DSK mode by typing asdfg. The 
letters aoeiu should appear on the screen. 
If they don't, press the shift and zero keys 
(QWERTY position) down simultaneously. 

The BASIC program, now having done 
its job, can be cleared from memory by 
typing NEW. The machine language ob- 
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Apparat introduces 



^^^^^^^^mi^i^^^^^^^m 






More bytes per buck 



405 K/bytes of storage. Apparat has c 
bined its Newdos/80 operating system 
and a dual-sided 80 track mini-floppy 
drive to give you 405.000 bytes of stor- 
age in a single volume. Modification 
patches to Newdos'80 expands the 
capability of single density drives, so 
you'll have greater applications for 
your TRS-80 model 1." 
Drives plug directly into an expan- 
sion interface with no modification 
required so you can now have over 
1 megabyte of storage on-line with 
standard mini-floppy diskettes. 
Each drive has 316 free grans, for a 
total of 948. on a maximum of three 
80 track drives, which can be added 
to a TRS-80. 

Upgrading to double density is 
possible by running under most 
double density controllers. 

And, you can choose either an 
MPI or Tandon Drive Mechanism. 
Drives come complete with case, 
power supply, 
interface cable 
and documen- 
tation including 
patches to 
f Newdos/80. Either 

drive mechanism is priced at only S839 with 
additional drives available at $789. At 482 
bytes per buck, it just might be the answer to 
your storage problems. 
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Apparat Inc. fiTfl 
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(303) 741-1778 



/MlCROCaVIPUrER 

TECHNOLOGY 
INCORPORATED 



4401 S Tamatac Pkwy • Denver CO 80237 • (303) 758-7275 3304W MacArthur • SontaAna CA 92704 • (714)9799923 

All prices cash discounted/ Freight: FOB factory. Ask for our free catalog. 



MICRO CLUB 
CHARTER MEMBERSHIPS 

How would you like to be the first to obtain new 
applications for your TRS-80® and save money? 

Then the Micro Club is for you! 



A vast array of software, especially games, exists for your microcomputer. But software 
alone can only partially fulfill the power and usefulness of your computer. 

You probably own a disk and a printer— hardware which also enhances the usefulness of 
your computer. Other than these common peripherals, relatively little hardware exists in 
comparison to software, and most of the hardware available is prohibitively expensive. 

The MICRO CLUB has been established to meet this need for a variety of inexpensive 
hardware devices— tools which will help you get more satisfaction from your computer. 

Each month the MICRO CLUB will announce one or more new hardware products com- 
plete with complementary software and comprehensive documentation. Some products to 
be offered in the coming months include a date/clock event timer, a PROM Burner and an 
energy efficiency measuring instrument. Best of all, MICRO CLUB members will usually 
pay less than $100 for products which eventually will retail for $150 or more. 

Membership in the MICRO CLUB costs only $10 for 12 issues of our new products 
newsletter describing our product of the month as well as other hardware and software 
specials available exclusively to MICRO CLUB members. Even the membership fee is fully 
refundable, i.e., you will receive a $10 discount on your first selection. Although there's no 
obligation to purchase any product, you need make only two selections during the 12 
month period to have your membership automatically extended for another year. 

The MICRO CLUB will make an excellent present. Simply fill in the coupon and mail to 
MICRO CLUB. 



Please register me as a Charter Member of the Micro Club and send me newsletters describing your next 
12 monthly selections. I understand that my membership fee of $10 will be refunded against my first 
selection and that I need only make two selections a year to remain a member. 

NAME Mail to: '*** 

STREET MICRO CLUB 

4401 S. Tamarac Parkway 
CITY STATE ZIP Denver, CO 80237 

PROCESSOR: TRS-80® APPLE® ,, r . .. ... , 

Micro Club is an affiliate 
Check Enclosed ($10.00) of Apparat. Inc. specializing 

in hardware and software 
VISA Mastercharge 



Card# Exp Date. 



■ For additional memberships, send along the above information on a separate sheet. For further details call 303-741-1778. , 
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WE MEAN BUSINESS! 

BUSINESS SOFTWARE. THAT IS 



USE YOUR 
FOR MORE 



TRS-MT 

THAN FUN AND GAMES 



7W DATA DOBBER $49.95 

Duplicates any program tape to TRS80 quabty Recon 
structs date pulses to ensure accurate CLOADs Permrts 
easy loading or even poor gualffy commercial tapes with 
out ronstant volume adjusting Money-back guarantee if 
not satisfied 



THE ELECTRIC SECRETARY $75.00 

A powerful word processor lo turn your TRS-80 into an 
automatic typewriter Features page numbering, movable 
margins, headers, variable page length, and title centering 
E ntcr text revise correct, and output to pnnter page for 
matted, justified, even hyphenated as required Cross 
i oupling files permits individually addressed form letters 
Complete with upper lower > ase < onversjon information 
or diskette Specify if RS I M adapter is ,ns»aHe<! in 
irterlar e 

MAJLROOM PLUS $75.00 

A ^rsauk- and powerful -nailing program to pnnt labels 
by sequential codirxj zip • ity state rustomei ID < ode 
even last name Sorts by any t ^xlr in minutes and sti>res 
sequentially '" a single strng 'appro*. I 500 re* ords per 
diskette. In. lodes AUTOWirfT Suppled on diskette 

MINIMAIL $50.00 

A lompact version of s\AII WX.W PLUS but without 
( ustomer coding Features alpha lookahead loc dupli 
i ales Supplied on diskette 

FORMLET $35.00 

Cierierales form letters from, MIMIMAIl records Prepare 
v'Hir letter bulletin notH v advertisement, etc then load 
the MIMMAIL tiles >our printer wiH pnnt (he inside 
ad-Jrfss letter and repeal 'or ear h name in thr lik-- all 
[»ro[x*rlv b{.>a< ed ar*l iustiti«*d Su["p ,i ed '>n cassette 

AUTOBOOT $ 1 5.00 

Simplifies dutomat)< fViSK pnjyrani loading from vou* 
[*)S Pemub srqurrx .rv; tbrouqri u-ur chcm e o* [X)S 
< omm<wxJs selects files antl meiTHjr\ size you spe< it> and 
k>Ai*,\ ot runs selected program Mk**s user to see dir»-< 
•or\ .1'iJ tree space before program r^S automata aJN 
Supplied of ' assetle 

SIR ECHO $10.00 

A handy program to maHe your printer work like an 
elec Un typewriter Use alone or merge with your programs 
to make what appears on the m reen echo to the pnnter 
Supplied on ( assette 

TELEFON $20.00 

"Aake your TKS-80 a smart terminal Communx ate with 
time share and other f omputers bulletin boards, ett 
Transfer programs over the phone r-or disx systems with 
nxxJen 

OPPER'LOWER CASE CONVERSION $20.00 

Report of KILOBAUD art)' te exjilaining how to mod*, the 
TKSoti to display both upper acxl lower case characters Kit 
contains step-by-step mstnxflons parts and necessary soft 
ware on cassette for case r^ersal who and automatK tane 
teed routines 



User group discounts available 
Dealer inquiries invited 



•TRS-80 is a trademark ol Ihe Tandy Corp 




TEHMS Check money or- 
der Visa Mastercharge 
Wasnington residents add 
5 3S lor tax 



THE PERIPHERAL PEOPLE 

A,. 

RO. Box 524, Dep't.M 

Mercer Island, WA 98040 
? ^.3 (206)232-4 505 



5 CLS 

6 CLEAR 30 

10 INPUT "DID YOU SET MEMORY SIZE";A$:IF LEFT$ ( A$ , 1 ) = "Y 

" GOTO 20 
15 PRINT "MEMORY SIZE SHOULD BE AT LEAST 183 BYTES BEL0 

W TOP OF MEMORY." 
18 PRINT "SET MEM SIZE AND RELOAD PROGRAM. ": END 
20 CLS 

22 PRINT"D V0RAK SIMPLIFIED KEYB0 

A R D" 

23 PRINT" JON ETHERTON S. 222 ELM #2 SPOKANE, WA 992 

4" 
25 PRINT: PRINT "THIS BASIC PROGRAM LOADS A MACHINE LANGU 

AGE 
30 PRINT" KEYBOARD CONVERSION PROGRAM INTO MEMORY LOCATI 

0NS SPECIFIED 
40 PRINT"BY THE USER. 
50 PRINT"0NCE THE PROGRAM IS ACTIVATED, THE KEYBOARD OF 

YOUR TRS-80 
60 PRINT"CAN BE CHANGED FROM ' QUERTY ' TO DSK WITH A SIN 

GLE KEYSTROKE" 
70 PRINT "PROGRAM SIZE IS 183 BYTES" 
90 PRINT "STARTING ADDRESS IS USUALLY THE SAME AS MEMORY 

SIZE." 
95 PRINT"IF OVER 32767, THE ADDRESS WILL BE CONVERTED T 

A NEGATIVE NO. 
100 INPUT"WHAT IS STARTING ADDRESS {IN DECIMAL)"; ST 

105 'IF ST<19896 THEN PRINT"MUST BE OVER 19896" :G0T0 10 



106 IF ST>65312 PRINT"MUST BE LESS THAN 65312" :G0T0 100 
109 IF ST>32767 THEN S= -1* (65536-ST) : ELSE S=ST 

120 FOR A=S TO S+183 

130 READ D 

140 PRINT A,D 

145 POKE A,D 

160 NEXT A 

170 DATA 42,22,64,34,0,0,33,0,0,34,22,64,195,25,26,205, 

0,0,245,58,16 
172 DATA 56,254,1,32,15,58,128,56,254,1,32,8,58,0,0,198 

,128,50,0,0 

174 DATA 58,0,0,254,0,40,2,241,201,241,79,6,0,33,0,0,9, 

126,201,0 

175 DATA 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18 

,19,20 

176 DATA 21,22,23,24,25,26,27,28,29,30,31 

177 DATA 32,42,34,35,36,37,38,39,40,41,33,115,87,45,86, 

90 

178 DATA 54,58,55,53,51,49,57,48,50,52,56 

179 DATA 83,119,61,118,122,64,65,88,74,69,46,85,73 

180 DATA 68,67,72,84,78,77,66,82,76,63,80,79,89,71,75,4 

4,81,70,59,91 
182 DATA 92,93,94,95,96,97,120,106,101,62,117,105,100,9 

9,104,116,110,109 
184 DATA 98,114,108,47,112,111,121,103,107,60,113,102,4 

3 

2000 REM ADDRESSES AND DATA TO BE CHANGED ON RELOCATION 

2020 N=ST+16 

2040 G0SUB 10000 

2060 POKE S+4,LSB:P0KE S+5,MSB 

2080 N=ST+15 

2100 G0SUB 10000 

2120 POKE S+7,LSB:P0KE S+8,MSB 

Program continues 
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2140 N=ST+60 

2160 GOSUB 10000 

2180 POKE S+34,LSB:POKE S+35,MSB 

2200 POKE S+39,LSB:POKE S+40,MSB 

2220 POKE S+42,LSB:POKE S+43,MSB 

2240 N=ST+61 

2260 GOSUB 10000 

2280 POKE S+55,LSB:POKE S+56,MSB 

2320 PRINT "PROGRAM RELOCATED" 

2330 E=A-1 

2350 PRINT"ENDING ADDRESS IS ";E 

2360 PRINT"TO EXECUTE, TYPE 'SYSTEM', PRESS ENTER, AND 

TYPE " 
2370 PRINT" '/";ST; "' . PRESSING THE SHIFT KEY AND ' 0' W 

ILL CHANGE 
2380 PRINT "THE KEYBOARD FUNCTION." 
2390 PRINT"THE LOOKUP TABLE BEGINS AT ";S+61;". ANY KE 

Y FUNCTION MAY 
2400 PRINT"BE CHANGED BY POKING IN A DIFFERENT ASCII VA 

LUE." 
2420 PRINT"TO MAKE A SYSTEM TAPE WITH T-BUG, TYPE: 
2430 N=ST:GOSUB 20000 
2440 S?=H? 

2450 N=ST+153:GOSUB 20000 
2460 ES=H$ 
2470 PRINT" P ";S$;" ";E$;" ";S$;" FILE NAME" 

9999 END 

10000 REM SPLIT POSITIVE-SIGNED ADDRESS INTO MOST AND L 
EAST SIGNIFICANT BYTES 

10010 MSB=INT(N/256) 

10020 LSB=( (N/256) -MSB) *256 

10040 RETURN 

20000 'DECIMAL TO HEX CONVERSION 

20010 A=N/4096 

20020 D(1)-INT(A) 

20030 B=(A-D(1))*16 

20040 D(2)=INT(B) 

20050 C=(B-D(2))*16 

20060 D(3)=INT(C) 

20070 D=(C-D(3))*16 

20080 D(4)=INT(D) 

20095 H$="" 

20100 FOR 1=1 TO 4 

20115 IF D(I)<10 THEN H$=H$+ (CHR$ (D( I) +48) ) ELSE H$=H$+ 

(CHR$(D(I)+55)) 
20140 NEXT I 
20150 RETURN 

Program Listing 1. 





DUALCASE* 

UPPER/lowercase, full time from power- 
up; NO software; Standard typewriter 
keyboard operation (shift to UPPERCASE); 
Control characters can be displayed; 128 
Total character set plus full graphics. 

KEYBOARD DEBOUNCE* 

Extra keyboard debounce, full time from 

power-up; NO software. If dirty keys 

are a problem, this is for you. No 
charge. 

BLOCK CURSOR* 

Replaces the underline style cursor di- 
rectly. Easier to locate on a full screen. 
NO distracting blinking. No charge. 

SHORT CASSETTE LEADER* 

For tape based systems. Does NOT 
change baud rate. Only shortens recorded 
leader. Saves four seconds of waiting 
time. Great for data filesl No conflict 
with high baud rate tape systems. 
$10.00 extra. 

ELECTRONIC SHIFT-LOCK* 

No extra keys or switches. Simply tap 
either shift key, UPPERCASE lock, normal 
shift unlocks. $30.00 extra. 

SWITCHABLE* 

Offers peace of mind. Toggles between 
original factory operation and "PATCH" 
enhanced. $25.00 extra. 

Call Now (208) 883-061 1 

CECDAT, INC. *"* 

P. O. Box 8963 
Moscow, ID 83843 



Name 

Street.._ 

City - 

State ZIP 

□ Check, Money Order, Bank Draft 

□ VISA, MASTERCHARGE, Purchase 
Orders (add 3%) 

Card/PO No — 

Expiration Date _ - — 

Today's Date - 

You must check one: 

□ "MEM SIZE" □ "MEMORY SIZE" 
THE PATCH $69.97 

TOTAL OPTIONS 

ID Sales Tax 3% (Id Res) _ 

Ship. & Hand. @ 2.50 ea — 

COD ADD $2.00 ea _ 

TOTAL ORDER 

Price valid through January 31, 1981 
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STUDENTS - TEACHERS 

WGiNEERS - STATISTICIANS 

USE YOUR TRS-80 TO 
LEARN OR TEACH CALCULUS, 

ANALYTIC GEOM. & 
STATISTICS 

WITH TWO VERSATILE PROGRAMS 
DEVELOPED BY DR. S.W TURNER 

LtUHVrLU I Rapidly ptoa neari, any user 
at Ui>*a function m an, or m uoedrena Srr.pl, type in dwM 
function using standard algebraic format Umr contrail rang* of 
x and y independently and program labels both axes. Program 
optionally diiplayi values of x A y. Designed to graphically 
examine lima, mtercepu. discontinuities, and tnflaction points. 
Excellent for instruction $16 95 

CUnVrIT Demrmmas coathcxanu of all poly 

normals up to 14th degree through a large no. of data points 
I ISO pa. for 16* mach.l using mathod of laast squares Data 
potntt may be input in any ordar. Program compusas corra 
lation coatfKiana tor each dagraa of tit and tabulatas all 
correlation corlhcxtna for masy selection ol Oast fit Also mtae 
polatas to prwdKt any values ol A & Y baaed on amiable Oata 
porno. Easy correction ol entry errors. $16 35 

Both Programs for Only S29 95 



Programs Shipped On Cassette 
System Reouiremena 16K. L VII. MOD • 



Mail Order Or Phone 19041 89/ 374 1 
PL resiorntt add 4% sales tan 



LW 



free Shaman! 
^451 



ENTERPRISES 



PO Bom 596 Niceville. PL 32578 



MICROCOMPUTER TECHNOLOGY AND SOFTWARE 



m 

•v. 

PROGRAMS 



Micro- 
computer 
Educational 
Programs 



Interpretive Education, providing leader- 
ship n educational programs for basic 
living skills, introduces tne new micro- 
computer educational (MCE) programs 
The MCE programs are being thoroughly 
developed and tested with the co- 
operation ol educators and computer 
programming experts The new high 
technology product line is being generated 
to otter basic living skills on floppy disc 
and tape They are designed tor application 
on Apple II * . TRS-80* * and other micro- 
computers 

Please call collect today for more informa- 
tion on how MCE programs can aid your 
teaching efforts with special needs 
audtences 

For free information and catalog, write or 
CALL COLLECT (616)345-6681 




INTERPRETIVE 
EDUCATION 



^»5 



Dept I8E 

.'(OfiWiniwDi K,IiH"!,iahi Ml 4 'XXV 



VISA/MC Order Line Only (except Mich.) 800-253-4358 ex*. 100 

F1NDISK-II TTm ultimate lit automatic disk indexing with exclusive features Model! $20.00 

AUTOMATICALLY create INDEX of programs or data from all your disks, print disk LABELS, print 
alphabetized MASTERUST. do fast SEARCH, add DESCRIPTIONS Also automatically detect DATA or 
SYS disks. PURGE disks and index of old files, and UPDATE from revised disks only 
SOLAR I The critical calculation, for paaaive design Model! $30 00 Model II $45.00 

INPUT any latitude, orientation, slope, roof overhang, storage type, building loss. OUTPUT solar angles, 
shading, time, heat gain loss, percent solar, fuel use Pnni report by hour, month year in presentation format 
RIA-1I Complex Real Eatate Investment Analysin Model! $30.00 Model-!! $45.00 

Analysis (or investor or homeowner using Elwood method INPUT Project costs, loan and tax data, 
expenses, depreciation rate OUTPUT: Cap rate value, mortgage payments, before after tax cash flows, return 
(IRR) . profit gain from sale over any time series. 
DEPRECIATE! M.aieje • Hat o» depreciable item* Model! $15.00 Modelll $20.00 

Tracks long list of depreciable items with varying purchase dates depreciation rates or per cent business use 
Update any time Print tax form Used by many CPAs 
STRUCT-! Graphic design of steel / wood beams and moment transfer Model! $15.00 

INPUT span/ cantilever, uniform/ point loads, beam material OUTPUT, with screen graphics beam moment 
Hi shear diagrams. Print job report with diagram, stresses, and required beam sizes 

Min 32K On disk (Mod I one drive order tape) Add $1 IK) postage (Mich add 4% tax) VISA MC 

."88 OOCUMAN SOFTWARE BOX 387 A KALAMAZOO, Ml 4*005 (616) 3444605 



SOFTWARE 
TRS-80 USERS 



MRIGOLD ASSOCIATES 

P. 0. BOX 20822 ^ 156 
HOUSTON. TEXAS 77025 



sun 



SMrcti your resident BASIC program for any Character string (1 to 2*0 characters) and 
replace it mt» any other string (0 to 240 characters). Change or repeat BASIC line 
matters aithout retyping. Select 8 different List scrolling speeds. All of the 
above (and nore) available 1n this 1200 byte machine language progran. NEMCM0 Is 
available in tw> fones: SYSTE" cassette tape for LEVEL It 16K machines only or as a 
toanented source listing using Z-80 imannics (not for disk). 

This interactive auditory program in BASIC turns your Machine Into a comprehensive 
teaching/learning center. Can be used for teaching spelling, foreign languages, and 
a variety of subjects Halted only by your imagination. SEZIT is available in two 
foras BASIC cassette or comented source listing for I6K Hchines In LEVEL II. 
*c ■edifications or additional hardaare required. ^^^^ 



SENG S14.9S for each tape or listing (please specify) plus II -SO per order for postage and handl- 
ing (foreign orders 13.00 P4H). Texas residents add 6t sales tax. Sorry, no credit cards. 



EUTST POIHT <«0* BXSiC 




C«fC« SaiTC" 



Jus 




fino coftMCSPoaoaw 

CHARACTER * TABLE 




1 




PUT NEC CHARACTER 
IN 'A* *JE«ISTEII 














RETURN TO BASIC 





Flow Chart 

ject code remains in protected memory. 

To save the program for future use, 
make a system tape to load the machine 
code program directly. To do this, first 
load the program as described. It is not 
necessary to execute it. Write down the 
hexadecimal starting, ending and execu- 
tion addresses which are displayed on 
your screen. (Starting and execution ad- 
dresses are identical.) 

Then load a monitor program such as 
T-Bug. When you get T-Bug's * prompt, 
load a blank tape in the recorder and type 
P and the starting, ending and executing 
addresses and DSK. DSK is the file name 
—or use anything you prefer up to six 
characters. Then press enter. 

The tape should take only a few sec- 
onds to record. You might be wise to make 
several dumps of the program on the 
same tape: Simply retype the above line to 
start each dump. 

The assembly language listing (Pro- 
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"The TRS-80 gets information from 

the keyboard by scanning eight memory 

locations and decoding the data into 

ASCII codes representing each character." 



4DBC 




00010 




ORG 


4DBCH 




4DBC 


2A1640 


00020 


STRT 


LD 


HL, (4016H) 


;DCB KEYBOARD ADDRESS 


4DBF 


22CC4D 


00030 




LD 


(BEGN+1),HL ;INTO CALL STATEMENT 


4DC2 


21CB4D 


00040 




LD 


HL f BEGN 


;NEW DRIVER ADDRESS 


4DC5 


221640 


00050 




LD 


(4016H) ,HL 


;INTO DCB 


4DC8 


C3CC06 


00060 
00070 


. 


JP 


06CCH 


;BACK TO BASIC 


4DCB 


CD0000 


00080 


BEGN 


CALL 


$-$ 


ORIGINAL KEYBOARD ROUTINE 


4DCE 


F5 


00090 




PUSH 


AF 


SAVE KEYBOARD CHARACTER 


4DCF 


3A1038 


00100 




LD 


A, (3810H) 


STROBE SHIFT KEY 


4DD2 


FE01 


00110 




CP 


1 


SHIFT PRESSED? 


4DD4 


200F 


00120 




JR 


NZ f TEST 


SKIP IF NOT PRESSED 


4DD6 


3A8038 


00130 




LD 


A, (3880H) 


STROBE ZERO KEY 


4DD9 


FE01 


00140 




CP 


1 


ZERO PRESSED? 


4DDB 


2008 


00150 




JR 


NZ f TEST 


SKIP IF NOT PRESSED 


4DDD 


3AF84D 


00160 




LD 


A, (STAT) 


DSK OR QWERTY STATUS 


4DE0 


C680 


00170 




ADD 


A,80H 


TOGGLE STATUS 


4DE2 


32F84D 


00180 




LD 


(STAT) , A 


STORE STATUS 


4DE5 


3AF84D 


00190 


TEST 


LD 


A, (STAT) 


GET STATUS 


4DE8 


FE00 


00200 




CP 





KEYBOARD IN DSK MODE? 


4DEA 


2802 


00210 




JR 


Z , CONV 


IF YES, CONVERT TO DSK 


4DEC 


Fl 


00220 




POP 


AF 


RESTORE NORMAL CHARACTER 


4DED 


C9 


00230 




RET 




RETURN TO BASIC PROGRAM 


4DEE 


Fl 


00240 


CONV 


POP 


AF 


RESTORE NORMAL CHARACTER 


4DEF 


4F 


00250 




LD 


C,A 


SET UP INDEX 


4DF0 


0600 


00260 




LD 


B,0 




4DF2 


21F94D 


00270 




LD 


HL f TBLE 


TABLE START ADDRESS 


4DFB 


09 


00280 




ADD 


HL f BC 


FIND CHAR IN LOOKUP TABLE 


4DF6 


7E 


00290 




LD 


A, (HL) 


GET DSK CHARACTER 


4DF7 


C9 


00300 




RET 




RETURN TO BASIC PROGRAM 


4DF8 


00 


00310 


STAT 


DEFB 





KEYBOARD MODE (0 OR 80H) 


4DF9 


00 


00320 


TBLE 


DEFB 


i 


BEGIN LOOKUP TABLE 


4DFA 


01 


00330 




DEFB 


1 , 


(TABLE IS 122 BYTES LONG) 


4DFB 


02 


00340 




DEFB 


2 




4DBC 




00350 




END 


STRT 




00000 TOTAL 


ERRORS 


















Program 


Listing 2. 





gram Listing 2) is intended mainly to ex- 
plain the program. It is generally best to 
load the program with the BASIC routine. 

How It Works 

The TRS-80 gets information from the 
keyboard by scanning eight memory loca- 
tions and decoding the data into ASCII 
codes representing each character. 

The keyboard scanning program in 
ROM is set up as a subroutine which is 
called by BASIC continuously. The start- 
ing address of the subroutine is loaded in- 
to a reserved area of RAM called the de- 
vice control block (DCB) each time the 
computer is turned on. 

There are three DCBs— one each for the 
printer, keyboard and screen. By loading 

Continued to page 78 






— 











DEC. 




NEU 


ASCII 


CODES 


code: 


KEY 


CHAR 


DEC 


HE> 





- 














none 







00 


1 


break 


sane 


1 


01 


2-7 


none 




2 -- 7 


02-0" r 


e 


1/c back arrow 


sane 


8 


08 


9 


1/C rt. arrow 


sane 


9 


09 


10 


1/c down arrow 


sane 


10 


Os 


11 


none 




11 


OB 


12 


none 




12 


OC 


13 


enter 


sane 


13 


0D 


14-23 


none 




14-23 


0E-l" r 


24 


u/c back arrow 


sane 


24 


ie 

Table continues 
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TEACH YOUR 
CHILDREN 



Learning lo count money by Malcolm Nygern 

A three-program learning system that teaches 
the important skill of counting money. 

1. Counting Coins — Instruction and drill in 
counting pennies, nickels, dimes and 
quarters. 

2. Shopping Trip — Buy goods in various 
stores; count out the payments and earn 
"purple stamps" for a right answer. Three 
speed levels. 

3. Check-Out — Run your own checkout 
counter. Learn and practice how to make 
change. 

Learning to count money by Malcolm Nygren 
features superior graphics and is available for 
TRS-80 Model I— Level II-16K on cassette 
only. Shipped postpaid by first-class mail 
$21.50 



ALSO AVAILABLE 
ALPHA - Alphabet recognition tor 

preschoolers 

SIGMA- Addition problems lor 

Grades 1-3 
SIGMA-KX — Addition problems for 
—the younger or slower 
learner 

SPK I. -Spelling practice lor 

Grades 2-4 
Available on cassette only. $5.95 each. Two lor $1 1 
All for for $20.00. ** 104 

Metcer Systems Inc. 

87 Scooter Lane 

Hkksvllle. N.Y. I I SO I 



M 



DISK 
SPECIALS! 




(write for quantity prices) 

SCOTCH (3M) 5" 10/2.95 50/280 100/2.70 

SCOTCH (3M) 8" 10/3.00 50/2.85 100/2.75 

SCOTCH (3M) 8" DW Dens. 10/3.85 50/3.60 100/3 50 

Maxell 5" 10/365 50/3.40 100/3.15 

Maxell 8" Double Dens 10/4 10 50/395 100/380 

Verbatim 5" 10/2.39 50/235 100/2 30 

(add 1 .00 for plastic storage box) 

Verbatim 577 Series 10/2 95 50/2.85 100/2.75 

Verbatim 8" 10/2.75 50/2.65 1 00/2.55 

Verbatim 8" Double Dens 10/3.80 50/3 70 100/355 

BASF 5 "soft 10/240 20/2 35 100/2 30 

BASF 8" soft 10/2.40 20/2.35 100/230 

Diskette Storage Pages 10 for 395 

Disk Library Cases 8-285 5-215 

3M Disk Head Cleaner Kit (2 cleaning disks) 2150 

4 1 1 6-200 ns RAM (NEC) 8 fir 39 

2716 EPR0M(5 volt) 13.45 5/12 75 10/1185 

2732 EPROM (5 volt) 39.00 

AP Products 15% OFF 
AP HOBBY BL0X 15% OFF 

ALL BOOKS 1 5% OFF 

Leedex Monitor $129 

Centronics 737 U00 
C-10 Cassettes 

(A6FAPE611) 10/510 50/23.00 100/44.00 

NEC Spinwriter-parallel $2390 

XYMEC Hl-Q 1000 Daisy Wheel Printer $2150 

STAR MODEM $135 

WRITE FOR CATALOG 

Add $1 .25 per prepaid orderfor US shipping (UPS) 




A B Computers 



115E StjmpRoad fiQQ- l ,R?fi 

MorMgomeryville PA ',893* uo ° uutu 



25 


u/c rt arr 


:>w 


5ant 


25 


19 


26 


u/c i.1 own a 


TOW 


5ane 


26 


1A 


27 


u/c lip &vr 


:>w 


sane 


27 


IF 


28-30 


none 






28-30 


1C-1E 


31 


clear- 




same 


31 


IF 


32 


space 




sane 


32 


20 


33 


; 




* 


42 


2A 


34 


M 




sane 


34 


22 


35 


N 




sane 


35 


23 


36 


* 




sawe 


36 


24 


37 


'/. 




sane 


37 


25 


38 


I 




sane 


38 


26 


39 


' 




sane 


39 


r>? 


40 


( 




sane 


40 


28 


41 


) 




sane 


41 


29 


42 


* 




i 


33 


21 


43 


■♦ 




s 


115 


73 


44 


* 




w 


87 


57 


45 


- 




sane 


45 


2D 


46 


• 




V 


86 


56 


47 


/ 




Z 


90 


5A 


48 







6 


54 


36 


49 


1 




■ 
• 


58 


3A 


50 


9 




7 


55 


37 


51 


3 




5 


53 


35 


52 


4 




3 


51 


33 


53 


5 




1 


49 


31 


54 


6 




9 


57 


39 


55 


7 







48 


30 


56 


8 




2 


50 


32 


57 


9 




4 


52 


34 


58 


■ 




8 


56 


38 


59 


t 




s 


83 


3H 


60 


< 




U 


119 


7" r 


61 


=s 




sane 


61 


3D 


62 


\ 




V 


118 


76 


63 


7 




z 


1 22 


7A 


64 


(? ( unshift 


ad ) 


B 


64 


40 


65 


A 




A 


65 


41 


66 


B 




X 


88 


58 


67 


C 




J 


74 


4A 


68 


Ei 




E 


69 


45 


69 


E 




■ 


46 


2E 


70 


F 




LI 


85 


55 


71 


G 




I 


73 


49 


72 


H 




D 


68 


44 


73 


I 




C 


67 


43 


7 4 


J 




H 


72 


48 


75 


K 




T 


84 


54 

Table continues 
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the electric pencil II 



TM 



1980 Michael Shrayer 




for the TOS-80 Model II* Computer 



The Electric Pencil is a Character Oriented Word Processing 
System. This means that text is entered as a continuous string 
of characters and is manipulated as such. This allows the user 
enormous freedom and ease in the movement and handling of 
text. Since lines are not delineated, any number of char- 
acters, words, lines or paragraphs may be inserted or deleted 
anywhere in the text. The entirety of the text shifts and 
opens up or closes as needed in full view of the user. Car- 
riage returns as well as word hyphenation are not required 
since each line of text is formatted automatically. 

As text is typed and the end of a screen line is reached, a 
partially completed word is shifted to the beginning of the 
following line. Whenever text is inserted or deleted, existing 
text is pushed down or pulled up in a wrap around fashion. 
Everything appears on the video display screen as it occurs 
thereby eliminating any guesswork. Text may be reviewed at 
will by variable speed or page-at-a-time scrolling both in the 
forward and reverse directions. By using the search or the 
search and replace function, any string of characters may be 
located and/or replaced with any other string of characters as 
desired. Specific sets of characters within encoded strings 
may also be located. 

When text is printed, The Electric Pencil automatically 
inserts carriage returns where they are needed. Numerous 
combinations of Line Length, Page Length, Character Spacing, 
Line Spacing and Page Spacing allow for any form to be 
handled. Right justification gives right-hand margins that 
are even. Pages may be numbered as well as titled. 



the electric pencil 

-a Proven Word Processing System 

The TRSDOS versions of The Electric Pencil II are our best 
ever! You can now type as fast as you like without losing any 
characters. New TRSDOS features include word left, word right, 
word delete, bottom of page numbering as well as extended 
cursor controls for greater user flexibility. BASIC files may 
also be written and simply edited without additional software. 

Our CP/M versions are the same as we have been distributing 
for several years and allow the CP/M user to edit CP/M files 
with the addition of our CONVERT utility for an additional 
$35.00. CONVERT is not required if only quick and easy word 
processing is required. A keyboard buffer permits fast typing 
without character loss. 

CP/M TRSDOS 
Serial Diablo, NEC, Qume $ 300.00 $ 350.00 
All other printers $ 275.00 $ 325.00 

The Electric Pencil I is still available for TRS-80 Model I 
users. Although not as sophisticated as Electric Pencil II, it 
is still an extremely easy to use and powerful word processing 
system. The software has been designed to be used with both 
Level I (I6K system) and Level II models of the TRS-80. Two 
versions, one for use with cassette, and one for use with disk, 
are available on cassette. The TRS-80 disk version is easily 
transferred to disk and is fully interactive with the READ, 
WRITE, DIR, and KILL routines of TRSDOS. 




Features 

TRSDOS or CP/M Compatible * Supports Four Disk 
Drives * Dynamic Print Formatting * Diablo, NEC & 
Qume Print Packages * Multi-Column Printing * Print 
Value Chaining * Page-at-a-time Scrolling » 
Bidirectional Multispeed Scrolling * Subsystem with 
Print Value Scoreboard * Automatic Word & Record 
Number Tally * Global Search & Replace * Full Margin 
Control * End of Page Control * Non Printing Text 
Commenting * Line & Paragraph Indentation * 
Centering * Underlining * Boldface 




master charge 



•TRSSO is a registered trade mark ot Radio Shack, a division ot Tandy Corp. 



TRC Cassette $ 100.00 

TRD Disk $ 150.00 



^255 




MICHAEL SHRAYER SOFTWARE. INC. 

1198 Los RoblesDr. 

Palm Springs, CA. 92262 

(714)323-1400 



• RtaOf Santa— sw pag* 27* 
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BIBLE 

TEACHING PROGRAMS 



TRS-80® Ul 4K CASSETTE 

Increase your knowledge of Gods Word 
Use for Sunday School, Youth Groups; 
Church Fellowship; Bible Study & Mission- 
ary Awareness; New Converts. Programs 
give answers and Bible references. & op- 
tional timed quizzes All calculate number 
and percentage of right/ wrong answers. 

1. BOOKS OF THE BIBLE-Test your 
memory. Teaches correct order & location 
when answered wrong 

Old Testament Books $1.95 

New Testament Books $4.95 

Entire Bible Books $7.95 

2. BIBLE QUIZZES-Persons, places. & 
events in the Bible. For each Bible Book- 
Genesis through Revelation. Most books 
have 50 questions each 

1 Bible Book Quiz $2.95 

(Specify which book(s) wanted) 
Any 10 for $24.95; All 66 for $49.95 

Money Back G uaran tee^ Send ck or MO. 

-o-t; 
vis enterprises 

Cheverly 
jheverly. MP : 
add: $1 for S&H (single tape) 
10% for 10 or more tapes. 
• Radio Shack ^374 




LEARN TRS-80® 

ASSEMBLY LANGUAGE 

DISK I/O 

Your disk system and you can really step out with 
REMSOFTi Educational Module REMDISK-1 a 
short course revealing the details ol DISK I/O 
PROGRAMMING using assembly language 

Using the same format as our extremely popular 
introduction to assembly language programming 
this "ASSEMBLY LANGUAGE DISK I/O PROGRAM- 
MING" course includes 

• Two 45-minute lessons on audio cassette 

• A driver program to make your TRS-80* video 
monitor serve as a blackboard tor the instructor 

• A display program tor each lesson to provide 
illustration and reinlorcement tor what you are 
hearing 

• A booklet of comprehensive tully-commented 
program listings illustrating sequential tile I/O 
random-access tile I O and track and sector I'O 

• A diskette with machine-readable source codes 
tor all programs discussed in both Radio Shack 
EDTASM and Macro formats 

• Routines to convert from one assembler tormat 
to the other 

This course was developed and recorded by 
Joseph E Willis, tor the student with experience 
in assembly language programming it is an inter- 
mediate-to advanced-level course Minimum hard- 
ware required is a Model I Level II 16 K RAM one 
disk drive system 



REMDISK-1 



only $29.95 



W 



Dealer inquiries invited 

REMsoft, INC. 

571 E. 185 SI. 

Euclid, Ohio 44119 

(216) 531-1338 

.wo 



^ 



Includes $t 50 tor shipping and handling 
Ohio residents add 5 % sales tax 

TRS-80" is a l-ademark of the Tandy Corp 



"By adding the table starting 
address to the ASCII code of the 
original key character, you can 
find the memory locations 
now associated with that key." 



76 


L 




77 


M 




78 


N 




79 







80 


P 




81 


Q 




82 


R 




83 


S 




84 


T 




85 


u 




86 


U 




87 


u 




88 


X 




89 


Y 




90 


2 




91-95 


no vie 




96 


(? UPI 


er 


97 


a 




98 


b 




99 


,- 




100 


d 




101 


e 




102 


f 




103 


3 




104 


h 




105 


i 




106 


j 




107 


I: 




108 


1 




109 


M 




110 


n 




111 


o 




112 


K 




113 


=K 




114 


r 




115 


3 




116 


t 




117 


u. 




118 


V 




119 


w 




120 


;•; 




121 


V 




122 


z 





case 



N 


78 


46 


M 


77 


4D 


B 


66 


42 


R 


82 


52 


L 


76 


4C 


7 


63 


3F 


P 


80 


5C 





79 


4F 


Y 


89 


59 


G 


71 


47 


K 


75 


4E: 


» 


44 


2C 





81 


51 


F 


70 


46 


r 


59 


3P 




91-95 


3C-3G 


P 


96 


60 


a 


97 


61 


>i 


120 


78 


J 


106 


6A 


e 


101 


65 


> 


62 


3E 


u 


117 


75 


i 


105 


69 


cl 


100 


64 


c 


99 


63 


h 


104 


68 


t 


116 


74 


n 


110 


6E 


M 


109 


6H 


b 


98 


62 


r 


114 


72 


1 


108 


6C 


/ 


47 


2F 


F 


112 


70 


■:• 


111 


6F 


V 


121 


79 


3 


103 


67 


k 


107 


6E: 


< 


60 


3C 


«■! 


113 


71 


f 


102 


66 


■1 


43 


21: 



Table 1. 
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ORDER NOW TOLL FREE 1 (800) 345-8102 



MODEL II 

OVERSTOCK SALE 

64K 
$3400. 



6.3 MEG 

HARD DISK 

WINCHESTER 

Superbrain, Apple. TRS-80 

$2445. 



IN PENNSYLVANIA (215)461-5300 



SUPERBRAIN" 
64K $2995.^ 

complete with 

5-1 /4" disk drives * in stock 



TRS-80 Disk & Other Mysteries $22.95 • 



MINI DISK DRIVE 
EXTENDER BOARD 



$ 14> 95 



EXTENDED 1 YEAR 
WARRANTY 

££ *45. 00 

DRIVES Ca „ For Details 



EPA 250 

'Electronic Printing Ability 250 wpm 

DAISY WHEEL 
PRINTER 

byVR Data 



SOFTWARE 


MOD I 


MOU. II 






Word Processing I Magic Wand) 


300 


4K L II T HS 80 


575.70 


Genera! Ledger 


$14995 


?49 


16K I II 


789.60 


Payroll 


99.95 


m 


RS-232 


92.10 


Data Base 


149.95 


MS 


OK Expansion Interface 


278.10 




Tape 


D at 


16K Expansion Interface 


376 10 


Upper/Lower Case Modification 


S19.95 


$24.95 


32K Expansion Interface 


474.10 


Comprehensive Diagnostics 


34 95 


34 95 


Telephone Modem 


179.95 


CP/M 


$175.00 


Emulator CRT bv Intettec 


895.00 


New DOS ♦ 40 TK 




100.00 


CRT Stands frorr 


139.00 


New DOS/80 




145.00 


Ami static Mats 


110.00 



$ 2195 



•Parallel or Serial 
Interface 

*25 cps . 45 cps 
I Optional (Add $600 

•Tractors Optional 
(Add $250.) 



Software Documentation Available • CALL FOR PRICES 



^31 



VISIT OUR NEW WAREHOUSE SHOWROOM AND REPAIR CENTER 



WE SERVICE MANY BRANDS OF COMPUTER EQUIPMENT. 

CALL FOR CONSUL ATION AND ESTIMATE. 

DEALER INQUIRES INVITED • BIDS ACCEPTED • ABOVE PRICES 
777 HENDERSON BLVD. ARE CASH DISCOUNTED, CALL FOR OTHER TERMS. 

FOLCROFT. PA 19032 ORDER NOW • TOLL FREE 1 (800) 345-8102 • IN PENNSYLVANIA (215) 461 5300 
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"The first part of the program 

initializes the DCB and fetches the 

original keyboard scanning program address, 

which becomes the object of a call statement." 

CONVENTIONAL KEYBOARD 




Figs. 2a and 2b. Conventional (QWERTY) 
and Dvorak Simplified Keyboard (DSK). 
Relative amount of typing performed on 
each horizontal row indicates the superi- 
ority of the DSK, with nearly 40 percent im- 
provement at the critical home row. 

shift)- 16% 
DVORAK SIMPLIFIED KEYBOARD 



another address into the DCB after turn- 
ing on the power, another keyboard scan- 
ning routine can be substituted for the 
one in ROM. Instead of writing art entirely 
new routine to scan the keyboard, the 
original ROM is called and modified by 
this program. 

Refer to the assembly language listing, 
Program Listing 2. The first part of the pro- 
gram initializes the DCB and fetches the 
original keyboard scanning program ad- 
dress, which becomes the object of a call 
statement. It then jumps back to the ready 
message of BASIC. Jumping to location 
1A19H may cause an out-of-memory re- 
sponse, which may be ignored. This return 
point will also work with Disk BASIC. 

BASIC detours through the new pro- 
gram each time the keyboard is scanned. 
The first thing it does is call the original 
keyboard driver. If KBFIX or Disk BASIC 
(which includes keyboard debounce) is 
used, the address will be different than 
the 03E3H address of the routine in ROM. 

The ASCII code produced for a shift 
zero is the same as that for the space bar; 
we need to decode that keypress combi- 
nation directly. The routine checks for a 01 
in keyboard memory locations 3810 and 
3880. If both conditions are met, the value 
of the STAT or status location is toggled 
from 00 to 80H to 00. 

The program then checks the status 
switch to see if the keyboard character 
should be altered. If the status location 
contains an 80H, the program restores the 
character In the A register and jumps back 
to the calling program in BASIC, tf the 
status is 00 the character is used to index 
a character in the lookup table (Table 1). 




The table is similar to the one on pages 
C/1 and C/2 of the Level II BASIC manual. 

The conversion table could be shor- 
tened by leaving out ASCII codes to 32, 
all of the lowercase letters, and some of 
the punctuation characters. However, the 
indexing routine would have to be more 
complex to deal with the exceptions. Also, 
the keyboard is purposely made as easy 
as possible for the end user to modify. At 
current discount prices, the program oc- 
cupies less than $2.00 worth of memory, 
so length should not be a major consider- 
ation. 

To change the character produced by 
any key on the keyboard it is only neces- 
sary to change the data statement associ- 
ated with that key. The data in lines 179- 
184 of the BASIC listing corresponds to the 
characters in the lookup table. It is also 
possible to change characters on the fly, 
then POKEing the appropriate ASCII code 
into the proper memory location. By add- 
ing the table starting address to the ASCII 
code of the original key character, you can 
find the memory locations now associ- 
ated with that key. 

For example, if the BASIC program told 
you that the lookup table starts at 32600 
and you want to change the letter a to m, 



add 32600 to 65, the ASCII code for a. If 
you print PEEK (32666), the computer 
should respond with 65. Then POKE 
32665,77, the ASCII code for m and you 
should now see m displayed on the screen 
when you press the a key. 

You can also POKE graphic codes 129- 
191 into the key locations in order to write 
graphics directly to the screen. Don't be 
surprised, though, if the graphic blocks 
look like BASIC keywords when you list a 
program containing them. 

Word Process Problem 

A problem arises when you want to use 
DSK with a machine language program 
such as Electric Pencil or Scripsit. The 
conversion program must be patched into 
the keyboard scanning routines of these 
programs, since they do not use the key- 
board scanning software in BASIC ROM. 

To make the keycaps reflect the DSK ar- 
rangement, it is easy to pull off the caps 
with a bent paperclip and put them in the 
desired order. If you choose to make vari- 
ants of the punctuation mark placements 
found on the classic DSK, it would be eye- 
pleasing to buy a set of press-on labels 
the same diameter as the keys. Type the 
exact letters, numerals and punctuation 
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If you 

just bought 

another 

printer, 

boy are 

you gonna 

be sorry. 




Epson. 



The Epson MX-80. It's not just another worked- 
over rehash of last year's model. It's our top-of- 
the-line 80-column printer. It's new. From the 
ground up. And it's the most revolutionary 
printer to hit the market since Epson invented 
small printers for the 1964 Olympics in Tokyo. 
Don't take our word for it, though. Compare. 
There simply isn't a better value in an 80-column 
printer. Period. 

But here's the fact that's going to stand the 
printer world on its ear. The MX-80 sports the 
world's first disposable print head. After it's 
printed about 50 million characters, you can 
throw it away. Because a new one costs less than 
$30, and the only tool you need to change it is at- 
tached to the end of your arm. 

Now that's revolutionary, 
but that's only the beginning. 
The MX-80 also prints bidirec- 
tionally at 80 CPS with a logi- 
cal seeking function to mini- 
mize print head travel time 



The world's first disposable print 
head. It has a life expectancy of over 50 
million characters, yet it's so simple, 
you can change it with one hand. And it 
costs less than - repeat less than -$30. 




and maximize throughput. It prints 96 ASCII, 
64 graphic and eight international characters in 
a tack-sharp 9x9 matrix. And it provides a user- 
defined choice of 40, 80, 66 or 132 columns and 
multiple type fonts. 

We spent three long years developing the 
MX-80 as the first of a revolutionary series of 
Epson MX Printers. We employed the most ad- 
vanced automatic assembly and machining 
techniques in existence to produce a printer that 
is incredibly versatile, remarkably reliable and 
extraordinarily inexpensive. It's a printer that 
could only come from the world's largest man- 
ufacturer of print mechanisms: Epson. 
If it sounds like we're proud of the MX-80, we 
are. Not only does it do things 
some of the world's most ex- 
pensive printers can't do, it'll 
do them for you for less than 
$650. That's right. Under $650. 
And if that isn't revolution- 
ary, we don't know what is. 

EPSON 

EPSON AMERICA, INC. 



^Reader Service — sm page 274 



23844 Hawthorne Boulevard. Torrance. California 90505. Telephone (213)378-2220 

80 Microcomputing, December 1980 • 79 



SNAPP II EXTENDED OASIC A family of en- 
hancemems to 'he Model II DASIC interpreter 
Port of 'he pockoge originated wirh rhe best ot 
APPAKAT INC s Thoughts m implementing 
NFWDOS OASIC The system is written entirely m 
mochme longuoge for SUPER FAST execution 
The extensions are fully integrated mro Model II 
DASIC and require NO use' Memory and NO 
use' disk space The package >s mode up of the 
following six --nodules each of which may b*> 
purchased seporotefy 

XDA5IC — Six single key st'Oke commonds 'O list 
'he first last previous next or current program 
line or 'o edit the current ime Includes quick 
woy 'O recover DASIC program following a NEW 
or system or Qcadenfol re-boot Ten single 
character abbreviations for frequently used 
commonds AUTO CLS DELFrt EDIT KILL 
LIST MERGE NEW LUST and SYSTlM J40 00 
XREF — A powerful coss- reference facility with 

Output 'O display and.'O' printer Trace a van 

able through the code Determine easily if a 
^anobie is in use S40 00 

XDUMP — Peimrfs the programmer to disploy 
and O' pnnt 'he value of any or all program 
vonobles Identifies the variable type for all 
variables Eoch element of any aToy is listed 
separately S40 00 

XR£NUM — An enhanced program line renum 
Oenng facility which allows specification of on 
upper limit of the bloc of lines to be renum- 
be'ed supports 'eiocotion of renumbered 
blocks of code and supports duolicotion of 
blocks of code HO 00 

XFIND — A cross reference foolity for key words 
and character stnngs also includes global re- 
placement of keywords S40 00 
XCOMPRISS— Compress your BASIC programs 
to on absolute minimum Removes exttaneous 
information merge lines even Oele'es state- 
ments wr»ch could no' be executed Typ.colty 
saves 30-40% spoce even for programs with- 
out R£m sfa'emenis 1 Also 'esults m 7-1 0% im- 
provement m execution speed i40 00 
ENTIRE PACKAGE ONLY $200.00 



5160 Corporate Pork Dr. 
Cincinnati, Ohio 45242 

Ohio residents coll collect 
~~i) (513)891-4496 
li Call Toll Free 
1 - 800 - 543-4628 

Ail products now available 'o run with TRSDOS 2 



MEMORY EXPANSION 
CHIPSET: 




Lowest price ever on one of our 
most popular products. Now you 
can add eight 16K dynamic RAMs 
| to TRS-80* . Apple. Heath H89, Ex- 
idy Sorcerer, newer PETs, and 
similar machines. Our chip set 
gives all the performance you 
want at a price you can afford. 
Add $3 for two DIP shunts and 
complete TRS-80* conversion in- 
structions. At this special price, 
quantities are limited ... so act 
now! 



We also manufacture an extensive 

line of S-1 00 products; see Com pu Pro 

S-100 boards in person at finer 

computer stores world-wide. 



TERMS: Cal res add tax. Allow 5% for ship- 
ping, excess refunded VISA - Mastercard' 
orders ($25 mm) call (41 S) 562-0636 24 
hours COD OK with street address for UPS. 
Prices good through cover month of 
magazine. - 75 




QODBOUT ELECTRONICS 

Bldg. 725. Oakland Airport. CA 94614 



TRS-80 



SUPERIOR SOFTWARE PACKAGES 
FOR THE 
DISK BASED 

SMRRTTCRM -$79.95 

HODII-UM 

UNQUESTIONABLY THE BEST 
SMART TERMINAL PACKAGE 
FOR THE TRS-80 

•True Break Key 

• Programmable 'soft' keys 
•Forward/Reverse Scrolling 

Multipage Display 
•Transmit from Disk File, Screen 
or Buffer 

• Receive to Disk File, Buffer or printer 
•Multi Protocol Capability 

fl€NTRl INVCNTORV 
CONTROL MOD II -$2000 

A COMPREHENSIVE PACKAGE 
FOR MULTI-LOCATION LEASING/ 
RENTAL BUSINESSES. 
•Tracking of all items by store 
and category 

• Financial and tax depreciation 

schedules 
•Complete reconciliation breakdown 
for purchases, transfers, rentals, 
and returns. 

MICRON, INC. Call us for 

10045 Waterford Drive Your Custom 
Ellicott City, MD 21043 Software 

(301)461-2721 Requirements 

'TRS-80 is a Trademark of Tandy Corp. 



"Type minimum 

pumpkin in QWERTY; 

try it quickly. . . " 

marks on the labels before removing them 
from their backing. Draftsman's fixative 
spray would make the tops of the labels 
almost as long lasting as the manufac- 
turer's original key caps. It is also a good 
idea to attach stick-on labels to the 
key-cap fronts identifying the original 
QWERTY positions, for use with machine 
language and other programs not written 
with the DSK in mind. 

One possible modification leaves the 
number keys in their numerical order. To 
do this, replace line 178 in the BASIC list- 
ing with the following: 

178 DATA 48.49.50.5 1.52.53.54.55.56.57.58 

Also exchange the 33 and 42 in line 177 to 
exchange the exclamation point and as- 
terisk. The question mark is now a lower- 
case character, thus making it easier to 
abbreviate print in BASIC programs. 

Practicable Persuasion 

When you have your DSK program de- 
bugged and ready for use, consider the 
practicality of using each arrangement. 
Start with QWERTY and type federated. 
Note that all letters are keyed by fingers of 
the left hand. Now press shift zero and try 
the same word in DSK. (Refer to the DSK 
chart, Fig. 2b, but keep the same home- 
row finger position that you learned for 
QWERTY. Home-row keys are double-cir- 
cled on the chart for operators who have 
not previously learned the touch system 
of typing.) It will be slow going at first, but 
note how federated alternates right, 
left, right, left. This is one of the open se- 
crets of why DSK is highly superior. 

Try December in each mode— note the 
difference in feel as you type it in DSK. 
Type minimum pumpkin in QWERTY; try it 
quickly, with as much speed as you can 
muster. Now switch to DSK and, referring 
to the chart, type minimum pumpkin a few 
times slowly, noting how easily it flows on 
the new keyboard. After a dozen times, 
you will by typing as fast as you were 
QWERTY style. 

If you haven't become intrigued by now, 
try copying some plain text first on 
QWERTY, then on DSK. You will find your- 
self remembering certain placements as 
the e and o without having to refer to the 
chart. You are learning DSK already! 
That's how easy it is. ■ 
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from PROGRAM MA 

HI-RESOLUTION GRAPHICS FOR THE TRS-80 
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LOWER CASE 

The 80-GRAFIX board includes 

two sets of lower case characters 

at no additional cost. 





DEMONSTRATION PROGRAMS 

The 80-GRAFIX board is supplied 
with a Character Generator software 
and several demonstration programs. 



FINALLY, AT LAST. .. 

HI- RESOLUTION GRAPHICS is available for your 
TRS-80 computer system. The 80 GRAF IX board from 
PROGRAMMA International. Inc. gives your TRS-80 high 
resolution capability that is greater than the Commodore 
CBM/PET or even the revered APPLE II. 

80-GRAFIX gives the TRS-80 an effective screen of 
384X192 pixels, versus the normal 127X192 for the 
TRS-80. 80X50 for the CBM/PET. or the 280X192 of an 
APPLE II. As an added feature. 80-GRAFIX offers you 
lower case characters at no additional cost. Of course, you 
can also create your own set of up to 64 original characters 
using the supplied Character Generator software. 

The 80-GRAFIX board is simple to install (note that this 
voids your Radio Shack warranty), and programming is 
done through BASIC. 80-GRAFIX opens up a whole new 
realm of software development and excitement never 
dreamed of for the TRS-80! 





REAL TIME GRAPHIC GAMES 

With the 80-GRAFIX board you can 

write exciting real-time games using 

BASIC. 



EASY INSTALLATION 

The 80-GRAFIX board is simple to 
install and fits inside the TRS-80 case. 




INVERSE VIDEO 

The 80-GRAFIX board allows you to 

do inverse video to high- light your 

screen displays. 
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CHARACTER GENERATOR 

The supplied character generator 

software allows you to create your 

own character set of up to 

64 original characters. 



r, '$ 'i •»«! M 'I'|«'« 

!•» ■niaapai 
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GRAPHICS GALORE 

The 80-GRAFIX board and 

the supplied Character Generator 

allow you to become an artist. 



ti rc ii*i 
n istMti 



m • m mam us, -i * «? m i 



TIE KUT ■ BMP «. 



ELECTRONIC DESIGN 

The80GRAFIX board has unlimited 

application in Electronic design 

and Education. 




80-GRAFIX HI-RESOLUTION 

Finally, the only means to protect 

your computer investment is to order 

an 80-GRAFIX board TODAY! 




EXCITEMENT & FUN 

Open up a new realm of software 

development with the 80-GRAFIX 

board. 



Available exclusively through PROGRAMMA at the cost of $149.95 

Please check with us for availability prior to ordering 

VISA and MASTERCHARGE accepted 

TRS-80 is a registered trademark of the Tandy Corp. ^21 



PROGRAMMA 
INTERNATIONAL, INC. 

3400 Wilshire Blvd. 

Los Angeles, CA 90010 
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Part four of a series 



The essence of variables. 



Into the 80' s 



Ian R. Sinclair 

89 Alexandra Road 

Sible Hedingham 

Halstead, Essex C09 3NP 

England 



Last time, you remember we were faced 
with the problem of selecting a pair of 
words at random from our data list, doing it 
by running through a random number of 
items and discarding the ones we didn't 
need. All this effort was necessary because 
we couldn't pick a single word at random 
out of the list. Now we're going to look at a 
method of doing that. 

This method is a darn sight simpler than 
the name suggests. We READ the data as 
usual, but as each item is read we label it as 
a string variable, and number the variables. 
When we read off the first animal name, we 
number it as Q$(1), and we make its answer 
A$(1). Similarly, the next pair become Q$(2) 
and A${2), the next are Q$(3), A${3), etc. 

Storing Variables 

The computer stores these variables and 
refuses to be confused by any similarities 
between variable names. A$, A1$ and A$(1) 
are three separate variables which will be 
stored in different parts of memory and can 
be called up only if you use the correct ti- 
tles. 

One advantage of storing words like this 
is that we can retrieve any question or an- 
swer pair without having to sort through all 
the words. If our random choice comes up 
with the number two, we can then print 
Q$(2), and match the answer at the INPUT 
stage with A$(2). Remember that RND(6) 
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generates the random numbers. 

A set of strings tagged with numbers in 
this way rejoices in the splendid title of an 
array of subscripted string variables. Array 
means a list, and subscripted means that 
we've tagged each item with numbers so 
that we can identify them. 

My friends, nothing could be easier than 
setting up an array now that you know 

about the FOR NEXT loop. The array 

in Listing 1 starts with the FOR N = 1 TO 6 
statement, which means we start with the 
value of the variable N set to one. The next 
command is READ Q$(N), A$(N). This reads 
in the first word of data and assigns it the 
variable name Q$(1), because N is set to 
one. The next word is also read and as- 
signed the variable name A$(1). That's the 
first question and answer pair dealt with, so 
the next command Is NEXT. This causes the 
computer to increase the value it has as- 
signed to N, and compare it with the limit 
we set at the start, which was six. We've 
just increased N from one to two, so the 
NEXT command moves to the READ com- 
mand with N set to two. The next two words 
are read, assigned the variable names Q$(2) 
and A$(2), the control returns to the NEXT 
statement, and N is set a three, and com- 
pared with six. This goes on until N has 
been set to six. At this value, the last pair of 
question and answer words are read in and 
assigned the variable names Q$(6) and 
A$(6), when N is increased to seven by the 
NEXT step, and the loop is broken because 
seven is greater than six. All the data words 
have been read and converted into an array 
so we can pick them out as we want, using a 
piece of program like the one shown in List- 
ing 2. 

Dimensioning 

Before you start using tagged variables, 
there's one more instruction you need to 



know. When you set up an array of tagged 
variables, the computer stores the variables 
in one part of its memory and keeps a note 
of them, along with the tags in another part. 
So it can organize this process efficiently, it 
needs to be told how many tags you might 
use. Might use, notice, not did use. If you 
specify that you might use 50 tags, but use 
only 20, that's all right by the TRS-80, but if 
you specify that you might use 50 and then 
try to use 51, you'll get an error message 
(BS) whenever you try to use the last tag, 
meaning that you haven't reserved enough 
memory spSce. 

The number of tags which you might use 
on a variable is called the dimension of the 
variable. If you're going to enter 12 names, 
assigned to L$ and tagged L$(1), . . . L$(12), 
the dimension of L$ is 12. The TRS-80 al- 
lows you to use dimensions of up to ten on 
any subscripted variable without any extra 
work, but if you are going to use more than 
this number of tags you have to enter the di- 
mension early in the program, by using the 
DIM (for DIMension) statement. 

DIM L$(12) means that you plan to use a 
subscripted variable L$ with subscript num- 
bers which do not exceed 12. If your pro- 
gram has several subscripted variables, you 
don't need to write a separate line of DIM 
for each. For example, you can write DIM 
L$(12), P(20). Make sure that you haven't re- 
served more memory space than your com- 
puter has, and make sure that the DIM 
statement comes early in the program, well 
before you are going to use any of these 
subscripted variables. Remember also that 
you can use as a subscript, so you can 
have L$(0), L$(1). . .which lets you have an 
extra subscript without having to reserve 
any more memory. 

Loading the Strings 

Listing 3 allows you enter word pairs 



Ian Robertson Sinclair was born in 1932 
in Tayport, Scotland, and educated at Mad- 
ras College, St. Andrews where, needless to 
say, he played golf. He graduated in 1955 
with a B.Sc at the University of St. Andrews. 
He started writing articles for magazines in 
1964 and began teaching college in 1966. 
His first book, Understanding Electronic 
Components, was published in 1972 (still in 
print) and he is now working on his thirtieth. 

Writes Sinclair, "I bought a TRS-80 when- 
ever a keyboard became available over here 
(to English TV standards) and have eaten, 
drunk and slept TRS-80 computing ever 
since. " 



I. R. Sinclair 



from the keyboard and tag them as sub- 
scripted variables. As an added refinement, 
the tag number is shown alongside the 
word as you type it in. 

This is a powerful piece of program. It 
starts with FOR N = 1 TO 100. 1 picked 100 
as an upper limit, but we could have used 
anything else. The point of doing this is to 
ensure that we don't put in more words than 
we've allowed for in the DIM statement. 

N is set to one at the beginning, and the 
PRINT N: command prints a one on the 
screen, followed by the question mark 
which always goes along with the INPUT 
statement. The semicolon after PRINT N is 
there to make sure that the N and the INPUT 
word are on the same line. You can then 
type a question word, which will be as- 
signed the variable name of Q$(1). Follow 
this with a comma, and type the answer 
word, A$(1) and ENTER. What happens if 
you forget the comma and then use EN- 
TER? Disaster, because the two words will 
simply be strung together as a single word 
assigned as Q$(1), and the computer will 
print two query marks to tell you that it's 
waiting for the answer word. The TRS-80 is a 
great little computer, but it can't correct 
your mistakes. If you enter each word sepa- 
rately, you'll get a single query mark as a 
prompt for the question word, and a double 
query mark as the prompt for the answer 
word. 

The next section of the line is an IF. . . 
NEXT. . . ELSE decision. If Q$(n) is not as- 
signed to X, then the next value of N is taken 
and another pair of words can be used. If 
the letter X is input, the program breaks out 
of the FOR... NEXT loop, and makes N 
take a value one less than that assigned to 
it last. In this way you avoid using the value 
X in the program. If, for example, X is the 
tenth item which you entered, then N is re- 
duced from ten to nine, because there are 
only nine actual items. We can now pick out 
any pair of words for our program and enter 
them from the keyboard. The idea of sub- 




scripted string variables (you can have sub- 
scripted number variables as well, but 
strings are more fun) is useful, but it can be 
extended. 

A Matrix 

Take a look at the program in Listing 4. It 
starts at line 10 with something which is 
new to you, a pair of FOR-NEXT loops to- 
gether, one inside the other. This is called 
nested, because the first one completely 
surrounds the second one and the second 
the third (if you have one) and so on. There 
are two here, and they are reading what 
looks at first sight to be a single string vari- 
able, A$. A$, however, is a subscripted 
string variable, and it's not singly sub- 
scripted like A$(1), but doubly subscripted 
like A$(1,1). This arrangement of subscripts 
is set up by the use of I and J in the FOR- 
NEXT loops and makes for very economical 
programming, because in place of question 
string and answer string we simply have A$. 
It's important but difficult to grasp if you've 
never used anything like it before, so we'll 
spend some time looking at this one close- 
ly. 

The first, or outside, loop starts with FOR 
I = 1 TO 4, so that on the first run I is given 
the value one. The program then moves to 
the second FOR instruction, and sets J at 
one. The READ instruction causes the first 
word of data to be read and labeled as 
A$(1,1) because 1 = 1 and J = 1. We would 
normally have two separate NEXT state- 
ments, but in this type of array we can get 
away with the one which is shown, NEXT J, I, 
which means take the next J if there is one, 
and if there isn't, take the next I. 

Notice that you have to be fussy about 
the order of these variables. The NEXT vari- 
ables have to be in reverse order from the 
FOR variables, so that if the first FOR uses 
I, then I must be the last variable in the 
NEXT. If you don't do this, your nest has 



holes in it. For example, if we opened with 
FOR X = 1 to 5: FOR Y = 1 to 4: FOR Z = 1 
to 2, we would have to finish with NEXT 
Z.Y.X. 

So far we have read the data word 
HORSE and assigned it as A$(1,1). We then 
take the next J. keeping I at one, and so 
making J = 2. The next word, FOAL, is as- 
signed the string coding A$(1,2). Starting to 
look interesting? 

We're out of J's now, so the next I is 
taken, and I now has the value of two. This 
time around, with I = 2 and J = 1 (because 
we started back at the FOR J = 1 to 2 
again), we'll read PIG and assign it as 
A$(2,1). The inner loop will then cause PIG- 
LET to be read, and assigned as A$(2,2). In 
fact we're assigning four sets of two words 
when the program has run. If you like a more 
abstract description, it's four lines of ani- 
mals with two columns, one for parents, the 
other for the young. Mathematicians (may 
they be preserved ... preferably in aspic) 
call this arrangement a matrix. 

The nicest thing about a matrix of this 
sort is that it's easy to make neat arrange- 
ments. Line 30 gives you some idea of what 
can be done. Starting with the FOR state- 
ments which set up the matrix arrange- 
ment, it uses J in a PRINTTAB( ) statement 
to space the two columns of words neatly 
on the video screen. The semicolon after 
the A$(I,J), makes sure that the young ani- 
mal's name get printed in the same line as 
the old one. Follow this up with a separate 
PRINT command between the NEXT J and 
the NEXT I, or the computer will try to print 
everything on the same line, and fail miser- 
ably. It seems a shame to abandon that 
NEXT J,1 already, but the results are quite 
satisfying. Run it and see! 

Cutting Strings 

And now, as they say, for something dif- 
ferent. Remember, a month or so ago, when 
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Scanned by Ira Goldklang - www.lrs-80.com 




Explore rhe galaxy ond fighr rhe 
deody Kyraxans in rhis reoHime graphic 
game wlrh sound. Traveling through rhe 
cosmos, you will encounter solar systems 
with orbiting planets, Kyraxan dreod- 
noughrs which launch smaller fighters, 
fantastic alien treasures, block holes ond 
other interstellar phenomena. Land on 
planets which may contain alien bases 
or cities. Fast Mochine Language 
graphics ond optional line printer output 
ore induded. 

16K Level II rope $14.95, 32K Disk: 
$19.95. Payment: Check, M.O., Visa. 
M.C NY residents 7% tax. 

f FREE CATALOG OF TRS-80~ 

^— |f PROGRAMS AVAILABLE. 

. , "TRS-80 is ■ Trademark of Tandy Corp 

— ■"/ r-J Software Innovations 
~7** SuM* S11 

320 Melbourne Road 
^ ^ 478 Great Neck. NY 11021 j 



MODEL II 

DISASSEMBLER 

PACKAGE 

INCLUDES: 

1. Disastambtor-ll 

2. Hex memory dump program 

3. ASCII memory dump program 

4. Documentation 

Dump memory using the HEX MEMORY 
DUMP program. Annotate obvious non- 
Z80 code areas on the hex dump print- 
out. Next run the ASCII MEMORY DUMP 
program several times using various bit 
options (fully explained in documenta- 
tion). Review these ASCII printouts and 
annotate the hex printout with areas 
that are Engligh intelligible. Now run 
DISASSEMBLER-II, Viola! Now you have 
it! Learn all about TRSDOS, BASIC, DE 
BUG or any other machine code pro- 
gram in RAM. All programs in the disas- 
sembler package can be initiated and/or 
terminated at any memory location 
(0000-FFFF). 
Documentation includes information 
concerning memory locations for printer 
parameters. You will learn how to initial- 
ize the printer from BASIC without the 
nuisance entries required by the TRS- 
DOS FORMS command. In fact, this 
package provides a basic tool which 
could allow you to master your TRS-80. 
MODEL II. Package price— $49.95. Per- 
sonal checks, money orders or certified 
checks No bank cards. 
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500 


FOR N=1T06: 


READ Q$(N) ,A$(N) :NEXT 






510 


FOR N=l TO 


6:PRINT Q$(N) ,A$(N) :NEXT 
Program Listing 1 






150 


DATA "LION", 


"PRIDE", "WHALE", "SCHOOL", "FISH"," 


SHOAL", 




"SHEEP", "FLOCK", "COWS", "HERD" , "GEESE" , 


"GAGGLE" i 


499 


REM INTO80' 


S FIG. 4. 2 






500 


FOR N=1T06: 


READ Q$(N) ,A$(N) :NEXT 






510 


R=RND(6) :PRINT Q§(R) 










Program Listing 2 






10 


DIM Q$(100), 


A$(100) 






20 


FOR N=1TO106 


:PRINT N".";:INPUT QS (N) , A$ (N) : IF 


Q$(N)< 




>"X" THEN 


NEXT ELSE N=N-1 






30 


FOR Y=1T0 N: 


PRINT Q$(Y) ,A$(Y) :NEXT 
Program Listing 3 






10 


DIM A$(6,6) 
DATA "HORSE 


FOR I=1T04:F0R J=lT02:READ A$(I,J):NEXT 


20 


", "FOAL", "PIG", "PIGLET", "DOG" 


, "PUPPY", "CO 




W","CALF" 








30 


FOR I=1T04:F0R J-1T02 : PRINTTAB( 20 *J) A$ ( ] 
PRINT: NEXT I 


,J);: 


NEXT J: 






Program Listing 4 






10 


DIM L$(50):FOR N=1T05: INPUT L$(N):NEXT 






100 


REM INTO 80' S FIG 4.5 FAULTY EXAMPLE 






lie 


FOR N=1TO50:IF LEFT$ (L$ (N) , 1) <>"D"THEN 


NEXT 




12( 


PRINT L$(N 


:NEXT 

Program Listing 5 






10 


DIM L$(51):FOR N=1T05: INPUT L$(N):NEXT 






100 


REM INTO 80' S FIG 4 ."6 






lie 


FOR N=1TO50:IF LEFT$ (L$ (N) , 1) ="D" THEN 


PRINT 


L$(N) : 




NEXT: ELSE 


NEXT 

Program Listing 6 






10 


DIM A$(51):F0R N=1TO50:READ A$(N):NEXT 






20 


INPUT "SURNAME"; X$ 






30 


L=LEN(X$) 








40 


FOR N=1TO50 


IF X$ORIGHT$(A$(N) ,L) THEN 


NEXT 


ELSE PR 




INT VAL(A$(N) ) 






50 


DATA "217 467 803JOHN DOE" , "2170322104TIM 


BUCK" 


:REM Y 




OU NEED A 


TOTAL OF FIFTY ENTRIES! 
Program Listing 7 







learning to recognize a string, using instruc- 
tions like IF AS = P$ THEN . . . ? One of the 
hazards of that type of recognition is that if 
you print one of these string variable words 
with a space or a misspelling, the computer 
simply won't recognize it. We're now going 



to look at ways around that problem, mak- 
ing use of three very powerful string selec- 
tion instructions, LEFTS, RIGHTS, and 
MID$. Let's take 'em slowly, one by one. 

LEFTS, as its name suggests, selects the 
left part of a string. You have to specify 
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TRS-80* OWNERS: 

• L*t the computer write your "Basic" 
program for you! 

• Draw picturos, animated figures, data 
forms! 

• Croats a library of display forms! 

• Produce "Commercial" gradesoftware! 




The Magic Cursor is a Revolutionary Family of Products which 
provides a dramatic new method of reproducing drawings and displays 
that you create on your screen It makes both simple displays and 
complex interactive data input forms. It stores a "BASIC PROGRAM" 
on disk (or tape) ready for you to execute alone or as a subroutine. It 
produces screens in both standard or wide screen. 

It is available for any level 2. 16K or larger system with tape or disk. 
An optional version is now available which creates an assembly 
language program. 

Be sure to pick out the system that fits your present needs and 
order it today. You may upgrade your original copy by paying the 
difference and a moderate service charge. 



MAGIC CURSOR PROGRAMS 

THE MAGIC CURSOR allows you to easily create screens (including 
graphics) on your video. A powerful command then generates the 
BASIC instructions to recreate the screen. For the first time, a program 
for automatic generation of video display forms. (16K Tape or 
Disk) $24.95* 

THE MAGIC CURSOR I additionally makes sophisticated Data Entry 
and Display easy With Magic Cursor I you define the Data Entry or 
Display fields directly on your screen The definition commands 
generate the BASIC instructions to implement the Data Entry and 
Display The Magic Cursor I has commands which move, center, and 
duplicate blocks of graphical or alpha/numeric displays. You can even 
justify text (16K Tape Only) $79.95* 

THE MAGIC CURSOR II adds the power to write animated games 
easily in BASIC The Magic Cursor II allows you to reload previous 
screens either from memory or from Disk You can then modify them 
and store either the modified screen or only the changes (32K Disk 
Only) $99.95 « 

THE MAGIC CURSOR III will oe available soon for the new Model II 
Computer (32K One or more Oiski $149.95' 

THE MAGIC CURSOR IV provides the features of Magic Cursor ll but 
stores an assembly language program i32K Disk Onlyi $99.95, 



WRITE FOR OUR COMPLETE 
SOFTWARE CATALOG!! 




CUSTOM COMPUTER CENTER, INC. 



*»7 



For ordering or information write 

P O Box 58042 Houston Texas 77058 

Attn Jim Martens 

or call: (713) 474-2428 



aJaS' 50 hanjimg charge [Texas 



NEW RELEASES FROM CCC!t! 



A Monitor/Trace program with versions for 
Model I, Model II and Model III. 

Trace-80 m * 

TRACE-tO lets you observe the inner working of a machine 
language program. It allows you to run a macnine language program in 
slow motion and watch the screen. You can stop execution at any time 
and examine the current instruction mnemonic and all register 
contents. You can execute your program and watch each instruction 
mnemonic and register contents list to the screen in place of normal 
screen display. 

If you have a printer, TRACE-SO allows you to execute your 
program in slow motion and watch the screen while your printer 
simultaneously prints the machine code being executed, the memory 
location and the instruction mnemonic along with the current register 
contents. 

You can execute a machine language program in slow motion, 
freeze the action, examine and/or change memory, examine and/or 
change register contents and then continue the slow motion. You can 
speed up past common routines and slow down to examine other 
routines in detail or operate in single step mode. 

TRACE-80 allows you to trace ROM as well as RAM because 
instructions are emulated in a special execution buffer. 

FEATURES: 

* For both beginner and advanced programmer. 

* More than 20 commands. 

* Trace-80 is written in machine language. 

* Traces both ROM and RAM. 

* Level II or Mod I Disk operation. 

* Model II Disk version available. 

* Optionally prints only "Transfer and Control" instructions. 

* Full speed, slow speed or freeze execution modes. 

* Memory can be displayed/modified. 

* Register contents can be displayed/modified. 

* Hex, ASCII and mnemonic display modes. 

* Abreviated or full printer format. 

* Serial printer output if desired. 

* Option of normal screen display, memory display, trace display or 

clear screen. 

* Learn assembly language programming as well as machine coding 

by watching actual code execution and see assembly language 
mnemonic. 

PARTIAL LIST OF COMMANDS: Load disk file, Trace, Slow Motion 
Execution, Full Speed Execution, Freeze Action, Single Instruction 
Execution, Examine and/or Display memory. Examine and/or Display 
Register Contents, Enable/Disable Screen. Enable/Disable Printer. 
Ascii or Hex Display, Full Screen Memory Display. Line Printer 
Commands, etc. 

TRACE-80/MOD-I & MOD-HI (for Level II or DOS) . $29.95« 
Supplied on tape with 3 versions (16K. 32K or 48K) and 
complete manual. 
TRACE-80/MOD-II $49.95* 



The Restaur ant eur's Consultant 

This food and beverage management tool dramatically reduces 
the human factors in food cost analysis Those tasks required to 
effectively operate any restaurant or food service business Over a half 
dozen reports give uniform, accurate and up to the minute information 
for profitability. And. handling of daily cost changes requires only 
minutes per week instead of hours, because the Consultant makes all 
the necessary conversions from your case prices Reports include 

1 Menu Recipes 5 Food Cost Summary 

2 Ingredient Listing 6 Input Data Sheets 

3 Supplier Master File 7 Batch Update 

4 Complete Listing of Food Cost Analysis 

Mod I or Mod III 32K 2 Disk Printer or Mod II $750.00' 



Can 713 474-2484 0' order by mail Master Charge Visa. Certified Check or Money 
Oder accepted Pe'sonai Cr-ecks reqjire 14 days to dear COD <-■• -.oi:e,.- cans 
not accepted Software guaranteed tor replacement only Prices subject to change 
without notice Some programs supplied on cassette tape For disk versions the 
cassette supplied win automatically create a disk file 



'Trademark o' Radio Shack a Tandy Co 



^Reader Service— see page 274 
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which string you want a chunk selected 
from, and how many letters you want to 
take. For example, suppose we have the in- 
struction LEFTS (A$,3). Whatever word is 
used as A$, the instruction will select the 
first three letters on the left hand side. If A$ 
= "HORSE", then LEFTS (A$,3) gives HOR. 
A$ is not affected by this, it is still HORSE. If 
you had spelled it as HORRES, the comput- 
er won't care if it has been instructed to 
look only at the first three letters. RIGHTS 
does the same sort of thing. Suppose we 



have the instruction RIGHT$(A$,3) and A$ 
= RABBIT". This time BIT is selected from 
the word, and AS is still RABBIT. LEFTS and 
RIGHTS do not delete letters from words, 
they simple select which letters can be 
used for other purposes. 

LEFTS and RIGHTS are useful weapons, 
but MID$ is a real missile. To use MID$, 
specify what string you want to operate on, 
at which letter you want to start, and how 
many letters you want to select. Suppose 
we take MIDS(A$,2,3). If A$ = ANTELOPE 



SIRIUS 80+ 

High Performance 

Low Cost Floppy Add-ons! 




The SIRIUS SYSTEMS 80* Series of Floppy 
Disk add-ons we designed to provide 
unmatched versatility and performance tor 
your TRS-80* . Consisting of tour different 
add-ons, there is a 80+ Series Floppy Disk 
Drive to meet your needs. 



COMMON CHARACTERISTICS 

■ 5ms track-to-track access time 
m Auto-E/ect 

M 180 ay WARRANTY 

■ Exceptional speed staMty- If/2% 

■ Single /Double Density operation 
m Mix any or an BO - Senes on trieSS 

Standard cable 



SPECIFIC CHARACTERISTICS 

The MM M+1 -i single sided. 40 track 
Drive. Ottering S more tracks than the Radio 
Shack model, it cost $120 toss. Formatted 
data storage is 102K/204K Bytes Single/ 

Double Density. „ 

smiuSM+i 1379.95 

The MM W+l is i dual sided. Mtrack (40 
per side) Disk Drive It appears to the TRS-80- 
as TWO 40 track drives yet COST liUTHM 
HALF UK Hettl Even greater savings result 
since data is recorded on both sides of the 
media instead of only a Single side Ties umt 
may require the SS Standard cable. Formatted 
data storage is 204K/408K Byres Singh/Dour* 

.Sm+1 $449.95 

The SIRIUS BH+3 - a single sided. 80 track 
Drive. Offering 2Vj times the storage ot a 
standard Radio Shack Disk Drive, the 80+3 
greatly reduces the need tor diskettes corre- 
spondingly. Additionally, because of the in- 
creased storage and faster track-to-track 
access time, the 80+3 allows tremendously 

Save up to 10% with these SIRIUS Packages! 

$624.95 

$749.95 

$1090.95 

$1349.95 



increased throughput tor disk based pro- 
grams! The 80+3 includes SIRIUSs TRAKS- 
PATCH on diskette (tor use with 96 tpi drives) 
Formatted data storage is 204K/4MK Bytes 

MS+I^ $499.95 

The MMMN+4 -a dual sided. 180 track (80 
per side) Sv 4 " monster 1 The ultimate in state- 
of-the-art 5V." Roppy Disk Technology, the 
80+4 is seen oy the TRS-80- as two single 
sided disk drives. Thus, in terms of capacity. 
one 80 + 4 is equivalent to 4ft standard Radio 
Stack drives — at a savings of over 73% (not 
to mention diskettes!!!). (WNh * double den- 
sity converter the available memory is huge!) 
The 80-4 (a 96 tpi drive) includes traks- 
PATCH on diskette and may require Its SS 
Standard cable Formatled storage is 408K/ 
816K Bytes Singte/Oouble Density. _ _ __ 
SIRIUS 16+4 $649.95 

All 80* Seres Floppy Disk add-ons operate at 
5ms track-to-track but are Expansion Interface 
limited to 12ms tor the TRS-80- 

* TOS-flO®, of Tandy Corp 

ACCESSORIES 

tSttaiMard2DrhreCaMe $39.86 

WPWWiVW- » ee ii l ft l cM ee Opersttoa 
SystoeatordNlto-trhwAiVMit: 

.$149.95 



NEWDOS/80. SIRIUS 80-3. and Two Drive Cable 
NEWDOS/80. SIRIUS 80-4. and Two Drive Cable 
NEWDOS/80. Two (2) SIRIUS 80 + 3 s. Two Drive Cable 
NEWDOS/80. Two (2) SIRIUS 80+4's. Two Drive Cable 



MPI 51/52 & 91/92 

STATE-OF-THE-ART 
DISK DRIVES 

■ Fast' 5ms track-to-track access 

■ Exclusive Pulley- Band Design 

■ Unique Door I Ejector Me c h a ni sm 
B Ratable 1 1 /2% Speed Stability 

■ Single /Double Density Operation 

■ Industry /ANSI Standard Interlace 

MPI 51 (Single Head/40 tracks) 
125K/250K Bytes Single/Double Density- • 

$259.95 

MPB2 (Dual Head/80 tracks (40/sidf >' 
250K/500K Bytes Single/Double Density- • 

$349.95 

MPI 91 (Single Head/60 tracks) 
2S0K/500K Bytes Stogie/Double Density- • 

$399.96 

MPI 92 (Dual Head/160 tracks ISO/side)) 
500K/1000K Bytes Single/Double Density- • 

$524.95 

MPI Technical Manual $8.95 

* * Unformatted data storage 



QUME® 

DataTrakS 

8" Disk Drive 

DOUBLE SIDED! 
DOUBLE DENSITY! 

$574 95 

High performance Double Sided Disk 8 Disk 
Drive ■ Single or Double Oensity ■ Door Lock 
and Write Protect INCLUDED' ■ Negative DC 
Voltage not required ■ Low Power Operation 

■ FAST! 3ms track-to-track access 

■ Low fhcbori and minimum wear 

■ Superior Head Load Dynamics 

QUME DataTrak 8 ... 



$974.96 

(2/SMlM) 

$t.95 

DC, & Card Edge) 

$1095 

Connector Set #4 (AC and DC) $2.95 



QUME Technical Manual 
Connector Set #3 (AC 
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TFORTHI-whatit 

has to offer YOU! 

TFORTH is a procedural FORTH type language 
which specifies a process rather man a desired 
result Designed to run on the TRS-80*. 
TFORTH is a very powerful tool by itself or 
used in conjunction with Assembly Program- 
ming A rich set of WOR0S come with TFORTH 
and many features c o nsi dered as "extra with 
other FORTH languages are standard with 
TFORTH These Natures include: 

■ Advanced Matt* Package 
m Line Editor 

■ Macro Assembler 
m Re-Entrant Code 

■ Super Graphics Capabilities 
m Sophisticated User functions 
m 14b Page User's Manual 

■ Virtual memory 
U Interpreter 

m Compiler 

m Produces CMD Files 

m Expandable 

■ And many, many other features 
TFORTH from SIRIUS comes on diskette com- 
plete lor the TRS-80* with as little as 16K ot 
memory and a single Disk Drive. 

TFORTH $129.96 



SIRIUS 
SYSTEMS 

7528 Oak Ridge Highway 
Knoxville. Tennessee 37921 



TO ORDER CALL (615) 693-6583 

Phone Orders Accepted 9AM-7PM (EST) Mon-Fri 

We accept MC, VISA. AE, COO (requires Certified Check. Cashier s Check 
or Cash) and Checks (personal checks require 14 days to clear) SHIPPING 
AND HANDLING: $7.00 per Floppy Disk Drive or 80- Module M 5% for other 
items (any excess will be refunded) ■ Foreign Orders add 10°o lor Shipping 
& Handling Payment in U.S. currency ■ Tennessee residents add 6*o Sales 
Tax ■ VOLUME DISCOUNTS AVAILABLE 



the value of the MID$(A$2,3) is NTE— the se- 
lection starts with the second letter and 
takes in three letters. 

Suppose we have a list of names stored 
as subscripted string variables, L$(N), 
which means L$(1), L${2), L$(3) and so on. 
How many of these names start with the let- 
ter D? No, don't sit there and count them, 
write a program! Something along the lines 
of Listing 5 might suit us very well, assum- 
ing we've used a program to read in 50 
names (is your telephone index up to date?). 
For each value of N, the string name has its 
first letter compared to D. If the string 
doesn't start with a D, the next one is taken, 
but if it does, line 120 commands a printout 
of the name before going to the next one. 
We can have two commands of NEXT. This 
can get us into trouble if the last name does 
not start with D, because in line 110, the 
FOR . . . NEXT loop will end, and line 120 will 
then print L$(N), which we don't need, and 
asks for the NEXT again. This could cause 
an error report (BS), meaning that we have 
exceeded the dimensions we asked for. 

Listing 6 shows a neater and flawless 
method of sorting out these D's. The IF 
statement sorts out the D's and prints the 
string, and the ELSE causes the NEXT N to 
be selected if there isn't a D around. The di- 
mension is chosen to allow the NEXT com- 
mand to take N to 51 without causing an er- 
ror message. Now how about selecting all 
the phone numbers which have the same 
area code? Let's suppose we have 50 num- 
bers stored in an array K(N). Not K$? Tough 
luck, you can't do it. All these string com- 
mands operate only on strings, not on num- 
bers, which is why so many programs store 
numbers in string form by simply entering 
them as strings. STR$ converts any number 
variable into a string variable. For example, 
if we have the statement K$ just as 
thoroughly as if we had written K$ = "234" 
in the first place. If we have 50 number 
variables, K(1) through K(50), you just add 
the line: 

FOR N = 1 TO 50: K$(N) = STR$(K(N)). 

Watch the double set of brackets, be- 
cause if you miss one, you'll get the SN er- 
ror message. Now that you've got your 
phone numbers in the form of a subscripted 
string variable array (gives you a feeling of 
power just to say it!) you can pick off the 
area codes by using 

AS = LEFTS (KS(N),3) 

Once again, we have brackets within 
brackets, and you have to be sure that 
you've included all of the brackets. 
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"As it happens, you often want to do things 
with numbers which you can't do with strings. . . " 



Packing Strings 

Suppose you stored each name and num- 
ber together in one string as K$(N). Quite a 
savings in memory is gained by doing this, 
because there's only one string to store for 
each name/number, instead of a separate 
pair of strings or a string and a number. 
How do we separate them so that we can 
print out something that looks rather more 
civilized than JOHN W DOE 2141673802? 
One neat and simple method makes use of 
the statement VAL- 
VAL means— find the number value in- 
side a string. It's usually used when a num- 
ber has been converted into a string by us- 
ing STR$ and you now want to convert back. 
As it happens, you often want to do things 
with numbers which you can't do with 
strings, like multiplication, division and 
subtraction, for example. Addition is a bit 
different, and we'll be looking at what hap- 
pens when we use the + sign on strings in a 
moment. 

Many computers use VAL just for con- 
verting a number string back to a number, 
but the TRS-80 BASIC goes one better. If 
you have a string which starts with a num- 
ber, like 1024 SUNRISE AVENUE, you can 
extract the number out of the string by us- 
ing VAL. If, for example, you run the little 
program: 

10 A$ ="1024 SUNRISE AVENUE" 
20 PRINT VAUAS) 

What is printed out is 1024, the number 
which the VAL statement finds at the start 
of the string. VAL can only find a number at 
the start of a string, however. If you have A$ 
= JOHN DOE 2174267803, then VAL(A$) is 
zero, because the number follows the let- 
ters. 

This doesn't prevent you from writing 
your own routine, using MID$(A$,N,1) to 
strip characters off the string one by one 
and test their ASCII codes to find if they are 
numbers. The ASCII codes for numbers are 
48 through 57, so you could detect numbers 
anywhere in the string and print them out. 

To spearate numbers from names by us- 
ing VAL, we have to place the number first, 
coding our number/name in the form of 
2172677803JOHN DOE. 

Listing 7 assumes that you have a set of 
data lines which contain your telephone 
number and name strings. Line 10 is 
straightforward — we are just reading each 
item and labeling it as a string array A$(N), 
allowing for 50 items. If you don't want to try 
50 for starters, make it two and use just the 
data in line 50. 

Line 20 asks for the surname of the per- 
son whose number you want typed. From 
what you know of computers by now, you 
should not be surprised to learn that your 

v* Reader Service — see pege 274 



typing of DOE had better match exactly 
with the DOE which you have stored in the 
data line! 

In line 30, L = LEN(X), X$ is the string 
variable assigned to the name you typed at 
the INPUT stage, and LEN means, measure 
how many characters are in this string. The 
answer here is three. If we know how many 
characters are in the surname, and that the 
surname is at the right hand side of the 
string, we can pick the surname out of A$ in 



line 40, by setting a variable L equal to the 
length of the name string X, and then find 
RIGHT$(A$<N),L). We could equally easily 
have saved a line by writing in line 40: 

RIGHT$(A$(N).LEN(X$)) 

making sure not to leave out any of the 
brackets. It's a useful feature of our BASIC 
that we can use expressions like LEN(X$), 
as well as simple numbers and variables in 
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A year ago, when nobody had ever 
heard of me, I said these disks could turn 
a TRS-80* into a serious computer. 

Now they tell me I'm "the standard 
of the industry." 



I'm Irwin Taranto, and times have changed. 

In the first twelve months, almost a thou- 
sand businesses put me to the test. 

You can buy my TRS-80 systems all over the 
country — dozens of companies sell them. Some 
are my dealers, some aren't. And this creates 
a new set of problems. 

You see. learning to use a computer — any 
computer — is like learning anything else It 
takes some getting used to. If you sit down 
with a computer program and the manual and 
try to figure it out all by yourself, you'll prob- 
ably just give up and feel you've been had. 

You have to hang in there for a month, 
make a few phone calls, and have somebody 
who really understands the system help you 
work it out. 

That's why I still answer the phone. And 
why, I guess, people say all those nice things. 

The Model I systems 

So far, I have six systems for the Model I, at 
$99.95 each, plus $20 each for the books where 
required. For the Cash Journal option on the 
General Ledger, add another $50. 

Accounts Payable 

Accounts Receivable 

Invoicing 

General Ledger (Cash Journal optional) 

Payroll 

Inventory Control 



And the Model II programs 

Some brand new, highly- sophisticated 
programs for the TRS-80 Model II. at $249.95 
each, plus $20 for the book where required. 

General Ledger/Cash Journal 

Accounts Payable/Purchase Order 

Accounts Receivable/Invoicing 

Payroll/Job Costing 

For the Model I programs, you can tell us 
what you need in a letter or by phone. You get 
the disk and all the instructions you need. Any 
problems, just call me. 

For the Model II programs, I ask you to fill 
out a questionnaire before I send you any 
materials. The systems have so much flexibil- 
ity we tailor them to your needs. 

That way, I make sure you get a system that 
works. If you have any doubts about that. I'll 
give you the names of some people in your area 
who've already been through the process. 

Let them tell you whether I really deserve 
that fancy new reputation. 



^45 



Taranto 



& ASSOCIATES. INC. 
121 Paul Drive. San Rafael CA 94903 • (41b) 472-2670 
Add $4.00 per order for handling 6% sales tax in 
California only. Master Charge, Visa. COD. 



**SPECIAL**SPECIAL** 

TRS-80 ADD ON DRIVES 

IMMEDIATE DELIVERY 



SINGLE SIDED 
DOUBLE SIDED 



$225.00 
$345.00 



COMPLETE SYSTEMS 
SINGLE SIDED $365.00 
DOUBLE SIDED $485.00 

INCLUDES: 
MINI DISK DRIVE 
FUSED POWER SUPPLY 
VENTED CABINET 
CABLE 

90 DAY WARRANTY 
FACTORY ASSEMBLED 
FACTORY TESTED 

THESE ARE NEW 5" FD's 



I 



2 INTERFACE, INC ^«e 

20932 CANTARA ST 
CANOGA PARK, CA 91304 
(213) 341-7914 

VISA AND MASTER CHARGE ACCEPTED 



_^-v?% Computers 
/£ & Gambling 

presehtT^ Mogo*ln€' 
PROBABILITY 

HANDICAPPING 
DEVICE I 

A 16K BASIC PROGRAM FOR: 

HORSE RACE HANDICAPPING! 

This amazing program was written by a professional software 
consultant to TRW Space Systems and is being introduced by the 
publishers ot Computers and Gambling Magazine. "PHD-1 ' is a 
large complex basic program requiring a full 16K. It is carefully 
human factored tor easy use. PHD-1 is a comprehensive horse 
racing system tor spotting overlays in thoroughbred sprint races 
(less than 1 mile). You simply sit down with your computer and 
the Racing Form the night before the race and answer 5 or 6 
questions about each horse's past performance. Your computer 
then accurately predicts the win probability and odds-line tor 
each horse allowing you to spot overlaid horses while at the track 
The users manual contains a complete explanation of overlay bel- 
ting. 

Statistics for thousands of horses were used to develop this 
handicapping system The appendix of the manual contains a 
detailed tab run of a 100 consecutive race system workout show- 
ing an amazing 45% positive return (45« lor each $1.00 
wagered). A graph is also included showing PHD-1 s close fit to 
the ideal predicted probability vs actual win percentage curve. 

This program features . . Win probability and odds tor each 
horse . . Verification display of each horse's parameters prior to 
entry for easy error correction '. . Bubble-sort routine for final 
display . -Facility for line printer output ' Cassette ARCHIVE 
routine to store PHD-1 s output tor later analysis '. '. Complete 
users manual 

The user's manual may be ordered seperately tor your purusal 
for $7.95 and will be credited if you purchase PHD-1. 
PHD-1 Uteri Manual and 1GK Cattttta tor: 
Apple II AppkMft, Chatanoar (Specify Type). 

TM-Wt Laval II. Ptt $29.95 

... Make checks payable to. Ca res. add 6% 
JOE COMPUTER 

22713 Vtnturt Bt»d . Suit* F, Woodland HUH. CA 91364 
'BE A WINNER: Get on the Computers and Gambling Products 
Magazine mailing list for $3 00 and receive available back issues. 
t TRS-80 is a registered trademark ot Tandy Corporation. 



10 INPUT "NUMBER BETWEEN 1 AND 25, PLEASE" ;N$ 

20 N$="0"+N$ 

30 N$=RIGHT$(N$,2) 

40 PRINT N$:GOTO10 

Program Listing 8 



10 IF LEFT$(A$,2)=LEFT$(L$(N) ,2) OR RIGHT$ (A$, 2) =RIGHT$ 
(L$(N),2) THEN PRINT "CORRECT, WELL DONE!" 



Progrf, n Listing 9 



10 CLS:PRINTTAB(23) "THIS IS THE TITLE' 
20 PRINTTAB(23) "==== == === =====" 



Program Listing 10 



10 CLS:PRINTTAB(21)"THIS IS ANOTHER TITLE" 
20 PRINT TAB (21) STRING$ (21, 42) 



Program Listing 11 



10 CLS: PRINT: PRINT 

20 PRINT CHR$(23)TAB(12)"TITLE" 

30 PRINTTAB(12)STRING$(5,42) 

40 FOR N=1TO1000:NEXT 

50 PRINT CHR$(28) :PRINT@384 , "NEXT LINE OF MESSAGE' 



Program Listing 12 



10 POKE 16 445,8 

20 PRINT'HAPPY BIRTHDAY 1 ": FOR N=1TO1000 :NEXT 

30 POKE 16445,0 

40 PRINT "TO YOU.... " 



Program Listing 13 



the RIGHTS, LEFTS, MIDS and other expres- 
sions. 

In line 40 each item of data is examined, 
and the correct number of letters on the 
right hand side is stripped off to compare 
with XS, which might be DOE. If the last 
three letters are not DOE, then the next 
string is taken, and if the last three match 
up, the final part of line 40 instructs the 
computer to print the telephone number by 
taking VAL(AS(N). 

Here's another use for RIGHTS. Suppose 
you have a set of numbers which lie be- 
tween one and 25, and you want to put them 
into string form so that each has two digits, 
like 21, 01, 18, 06. . . If you write numbers in 
this way, you can put them into a string and 
get them back easily, because you always 
want the same number of characters back, 
two in this example. If you had these at the 
end of a string, you could use RIGHTS 



(AS(N),2), for example. 

Listing 8 shows how this operation of 
padding numbers out can be achieved. The 
number in this example is typed in as an an- 
swer to the INPUT query, and we take the 
chance to assign it to a string variable, NS. 
In line 20, we redefine NS as being equal to 
one space plus the old value of N$. When 
we use a + sign with two string quantities, 
the quantities are simply run together, or 
concatenated. If we had typed NS = "*" + 
N$, then with N$ = "2", the result would be 
*2. As it is, line 20 uses a zero between 
quote marks so that the new N$ consists of 
the number we read in with a zero in front of 
it. 

In line 30, we define another NS, this time 
the RIGHTS of the N$ with a zero in front. If 
that N$ were 02, the RIGHTS will give 02, but 
if N$ were 021, RIGHTS would give just 21. 
Either way, the number consists of just two 
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PROFESSIONAL HALF A MILLION TAX RETURNS CANT BE WRONG! 

(OR THEY HAD BETTER NOT BE) 

INCOME TAX SYSTEM 

FOR TRS-80* MODEL I OR II 

Our system, which prepared 500,000 1979 returns, features the following: 

1. Full interactive user control, In tax-form language only, line-by-line. 

2. Screen display of full 1040 and all schedules, prior to printout. 

3. Change of a single amount item automatically changes and re-computes entire 
return. 

4. All printout formats IRS and state approved. 

5. Stores Preparer's Identification for automatic printing at bottom of page 2. 

6. Built-in Validation Check tests entire system, hardware and software. 

7. Special Printer Adjustment routines, Line Length, etc. 

8. Selection of closed or open output formats — for standard Form 1040 or open 
name-box types. 

9. Software control of text position on page. Makes forms-alignment simple. Permits 
use with non-adjustable printers. 

10. Fills in pre-printed Forms or you can use overlays. Your choice. 

11. Automatically computes: Tax - SDI Overpayment - Wages Total from W-2's - 
Earned Income Credit - Income Averaging - Maximum/Minimum Tax - Least 
Tax Method - All Percentage of Income Limitations - All Fixed Limitations - many, 
many more. 

12. Full support through the tax season — no charge. 

13. Inexpensive yearly updates in accordance with tax-law changes. 

14. Modular construction — lets you order only the type and size system you need. 

PRICING STARTS AT $1 89.95 (1040 & SCHEDULE A) 

25-PAGE DESCRIPTIVE MANUAL $7.50 (Refunded on Order) 
MINIMUM SYSTEM REQUIRED: MODEL I, 32K, 1 DISK DRIVE 

•TRS-80 IS A TRADEMARK OF TANDY CORP 

CONTRACT SERVICES ASSOCIATES o 

706 SOUTH EUCLID ANAHEIM, CA 92802 

TELEPHONE (714) 635-4055 
• • * 20 YEARS OF SERVICE • • • 
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characters, and can be selected again by 
picking off two characters from the string 
we put it in. Both words and numbers can be 
padded out in this way to a standard size 
(two characters, 10, 20, whatever you like so 
long as it doesn't exceed 255) so that they 
can be easily selected again. 

One small problem arises here. If you 
have converted a number into a string by us- 
ing STR$(number), the computer will auto- 
matically put a space in front of the number 
to make room for a negative sign if one is 
needed. That way, if you use STR$(5), you 
get a string which is two characters long, 
and STR$(50) is three characters long, 
though STR$( - 50) is also three characters 
long. If this might cause problems, one way 
out of it is to use RIGHTS. To pad out to two 
characters we use: 

A$(N) = RIGHT* 1 ' + AS(N),2) 

Your numbers will be two-character strings 
no matter what STR$ has done to them, but 
watch out for negative numbers! 

Time to leave the LEFT, RIGHT, MID busi- 
ness, and look at other things, but before 
we do, look at Listing 9. 

This is one answer to the word recogni- 
tion part of a mailing list program. If you 
have the first two letters correct, the com- 
parison is good enough. You have to use 
this type of recognition carefully, however, 
because if you have two names which start 
with the same letters, like ANT or ANTE- 
LOPE, the computer doesn't know the dif- 
ference. In fact, the monkey, donkey prob- 
lem is the worst you're likely to get! 

Presentation 

How do you underline a word you have 
printed on the screen? 

There's no way of underlining on the 
same line as the letters of the word, but if 
there is space on the next line (make space) 
the problem has a solution. Listing 10 
shows one solution— the title words are 
printed, and, on the next line, using quota- 
tion marks, type the characters of underlin- 
ing. The equality sign and the asterisk are 
useful for this job. Big BASIC, however, of- 
fers a lazy way of underlining in the form of 
the STRINGS function. STRINGS is a state- 
ment which instructs the computer to print 
identical characters. 

There are two ways of specifying which 
characters we want string together. If we 
type in: 

PRINT STRINGS<24. = ) 

the computer will print a string of 24 equali- 
ty sign. Similarly, PRI NTT AB(20)ST RINGS 
(24,"A") will produce a row of 24 A's starting 



"Who is this ASCII, you ask me? 
It stands for American Standard Code for 
Information Interchanges, and it's a number- 
code method of transmitting characters. 



at tabulator position 20. Another way 
makes use of the ASCII codes for the num- 
bers, letters and characters. 

Who is this ASCII, you ask me? It stands 
for American Standard Code for Informa- 
tion Interchange, and it's a number-code 
method of transmitting characters. 

How do you find the ASCII code for a 
character? The hard way is to look it up in 
the TRS-80 manual. The easy way is to ask 
the computer. PRINT ASC("*") will bring up 
the code which represents the asterisk. We 
can easily find other codes. 

The character which is represented by 
ASCII code 128 is a blank. It's not the same 
blank as the one which is represented by 
ASCII 32. It's possible to have two different 
blanks. If that sounds weird to you, think of 
this. The blank represented by 32 can be en- 
tered from the keyboard (by using the space 
bar), but 128 can't. When the computer 
finds 128 in a string, it can be instructed 
that this is the end of a string and the start 
of another. It's a useful distinction. 

We can now redesign our underlining 
statement in line 20, using STRINGS, so it 
looks like Listing 11. There's no reason for 
these two statements not going into one 
line, saving memory. Each time you start a 
new line, you use five bytes of memory, so it 
pays well to pack the lines as much as pos- 
sible this way. 

CHRS stands for the character or action 
represented by the number in brackets fol- 
lowing CHRS. For example, PRINT CHR$(68) 
causes a D to be printed because 68 is the 
ASCII code for the letter D. Of course, 
there's a catch: A lot of ASCII codes don't 
represent letters. They represent actions, 
and we can have the computer carry them 
out by using the PRINT CHR$( ) command. 

One pair of codes which are peculiar to 
the TRS-80 are 23 and 28. PRINT CHR$(23) 
causes the display to print double-size let- 
ters and numbers until the command is can- 
celled by one of a variety of methods. After 
CHR$(23) has been printed, we have to be 
careful how we use TAB and PRINT® num- 
bers because with double-size characters, 
there are only 32 characters per line. 

A command to PRINTTAB(35) isn't going 
to produce a letter in the middle of the 
screen. In the same way, the PRINT® in- 
structions go only to 256, not to 1023. 



256, not to 1023. 

Double-sized lettering is excellent for ti- 
tles and for drawing attention to error mes- 
sages, but the uses suggested in the manu- 
al are limited. The character size returns to 
normal when the CLEAR key is pressed, or 
CLS used. 

Sometimes you don't want to lose what 
has been printed in the large characters, yet 
you want more lettering on the screen in 
smaller print. You can't have a mixture of 
large and small letters. The PRINT CHR$(23) 
command operates on the part of the mem- 
ory which stores the video display charac- 
ters, and affects either none of it, or all of it 
at once. One method I use in my own pro- 
grams is shown in Listing 12. 

Line ten skips the first line of the screen. 
It could be done just as easily by using a 
PRINT® command in line 20, but we're 
opted to use TAB. The CHR$(23) sets up the 
big letters, and we print the title and under- 
line it. Line 40 simply arranges a time delay 
so we can sit back and in line 50, the PRINT 
CHR$(28) then restores the lettering to nor- 
mal size. It was not intended as a way of re- 
storing normal size letters but as a method 
of wiping out the top line! The top line was 
left blank as it will otherwise be wiped clean 
by the PRINT CHR$(28) command. 

Notice also that the lettering which was 
printed double-size is now normal size but 
double spaced. It still looks good as a title. 

We've also had to position the next line 
using PRINT® to keep out of the way and 
avoid wiping out any other lines. 

Another way of getting double-spaced 
print and returning again uses the instruc- 
tion POKE. The method is shown in Listing 
13. We'll deal with the POKE instruction 
later; all we need to know for now is that it 
can change the contents of the memory di- 
rectly, and more quickly than the usual 
BASIC instructions. You can mix these 
commands, using PRINT CHR$(23) to start 
the big print, and POKE 16445,0 to stop it. 
For some curious reason, however, the stop 
command does not work in every program. I 
have one program in which POKE 16445,0 
works perfectly, and another in which it has 
no effect. I still haven't discovered why. 

The sharp-eyed folks will already have 
sensed that there's more to tell about the 
PRINT CHR$() instruction. It's not particu- 
larly useful for printing letters or even punc- 
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WE WILL NOT BE UNDERSOLD 




DISK DRIVES 



$314 



40 track. 102K Bytes. Includes power sup- 
ply and TRS-80* compatible silver 
enclosure. Ready to plug-in and run the 
moment you receive it. Can be intermixed 
with each other and Radio Shack drive on 
same cable. 90 day warranty. One year on 
power supply. Available for 220 Vac 
(50 Hz) operation. External card edge 
included. 



FOR TRS-80* 

CCI-100 

CCI-280 

CC 1-800 

For Zenith Z89 

CCI-189 

Z-87 

DISKETTES — Box of 10(5 
Maxell S30 



5'i".40Track(102K Bytes) for Model I 
5 '-« ". 80 Track (204K Bytes) for Model I 
8" Drive for Model II {V? Meg Bytes) 

5' 4 ". 40 Track (102K Bytes) add-on drive 
Dual 5 1 4 " add-on drive system 

) - with plastic library case 
BASF or Verbatim 



8 "double density for Model II (box of 10) 
CLEAR PLASTIC CASE - Holds 50 diskettes 

DISK OPERATING SYSTEMS 

PATCH PA K #4 by Percom Data 
CP/M for Model I. Zenith $145 
NEWDOSPIus 
NEWDOS80 

COMPLETE SYSTEMS 

ALTOS 64K. DD. SS. 2 Drive, 1MB 

APPLE 16K 

TRS-80* Model II64K 

TRS-80* LEVEL II-16K with keypad 

TRS-80' Expansion Interface 

HEWLETT PACKARD HP 85 

ZENITH Z89. 48K all in one computer 

ZENITH Z19 

TELEVIDEO 912B $698 91 2C $698 

ATARI 400 $489 

APF Game Only $99 

MATTEL INTELLIVISION 

MONITORS 



$314 

$449 
$795 

$394 
$995 

$24 
$36 

$19 



for Model II. Altos 
40track 



ACS 8000 2 



$ 8.95 
$169.00 
$ 95.00 
$135.00 



LEEDEX 


12 


B&W Video 100 


ZENITH 


13 


Color 


SANYO 


9 


B&WVM4509 


SANYO 


12 


B&W DM5012 


SANYO 


12 


Green Screen DM5112 


SANYO 


13 


Color DMC6013 


APF 


9 


B&WTVM-10 



S3395 

$988 

$3499 

$689 

$249 

$2790 

$2440 

$735 

920B $748 920C $748 

ATARI 800 $747 

Complete System $499 

$229 

$129 
$379 
$155 
$210 
$215 
$375 
$139 



16K MEMORY UPGRADE KITS 2 tor $70.00 

200ns for TRS-80*. Apple II. (specify): Jumpers $2.50 

PRINTERS NEC Spinwriter 



$38 




Letter Quality High Speed Printer 

Includes TRS-80* interface software, quick 
change print fonts. 55 cps. bidirectional, 
high resolution plotting, graphing, propor- 
tional spacing: R.O. $2395 
R.O. with Tractor Feed $2575 KSR with Tractor Feed $2950 
C.ITOH Starwriter. 25 CPS. daisy wheel printer $1895 
C.ITOH Starwriter II, 45 CPS. daisy wheel printer $2195 
Letter quality printers. Use up to 15" paper. 1 year warranty on 
parts. 3 months on labor. Proportional spacing and bidirectional 
printing. Same as VISTA V300. 

779 CENTRONICS TRACTOR FEED PRINTER $969 

Same as Radio Shack line printer I 

737 CENTRONICS FRICTION & PIN FEED PRINTER $795 

n x 9 proportional and 7x8 mono spacing 

Same as Radio Shack line printer IV 

730 CENTRONICS FRICTION & PIN FEED PRINTER $595 

7x7 matrix Same as Radio Shack line printer II 

P1 CENTRONICS PRINTER Same as Radio Shack quick printer $269 
PAPER TIGER (IP440) Includes 2K buffer and graphics option $879 

(IP460) Bidirectional. 160 cps. graphics and 2K buffer $1075 
TI-810 Faster than Radio Shack line printer III Parallel and 

serial w TRS-80" inte r 'ace software w u * i case K paper tra\ $1 589 

Compressed print, vertical form control $1865 

OKIDATA Microline 80 Friction and pin feed $545 

Tractor Feed, friction, and pin feed $645 

Microline 83 Bidirectional. 120 cps. uses up to 15" paper $1050 

EATON LRC 7000 + 64 columns, plain paper $289 

ANADEX DP-9500/01 $1350 DP-8000 $795 

ACCESSORIES 

HEAD CLEANING DISKETTE: Cleans drive Reaci Write head in 30 
seconds Specify 5' < or 8' $20 ea/S45 f or 3 

FLOPPY SAVER: Protection for center hoies of 5* floppy disks 
Installation tools and rings for 25 diskettes S 11.95 

Re-orders of rings only $ 6.95 
EXTERNAL DATA SEPARATOR: Eliminates data separation prob 
lems (crc). Improves reliability. This plug in unit comes fully 
assembled and tested $ 29.95 

Z-80 SOFTCARD: Your key to software expansion The plug-in Z-80 
Soflcard transforms your Apple into a Z-80 while keeping all the 
benefits of the 6502 Comes with CP/M in two disk format. MBASIC 
and GBASIC. full documentation and utility programs. $339 

RF MODULATOR: Adapts video to TV $ 35.00 

TRS-80 & OTHER MYSTERIES $ 18.95 

NEC SPINWRITER THIMBLE $11.95 RIBBON $ 6.00 

CCS CARDS: Parallel or serial printer interface cards $115.00 

RS232: For Radio Shack Interface. 
TRS232: Teletype current loop output from cassette port 
DISK-DRIVE EXTENDER CABLES: Fits all mini disk drives 



TELECOMMUNICATIONS 

CAT MODEM Works same as Radio Shack Telephone Interlace II $148 
D-CAT HARD WIRED DIRECT MODEM $199 

COMMUNICATIONS SOFTWARE 

CCI-TELNET VERSION 5: A communication package which 
enables microcomputer users to communicate both with large 
mainframes and other microcomputers. Completely CP/M compati- 
ble. Multiple communication protocols supported. $149 

INTELLIGENT TERMINAL SYSTEM ST-80 III: Enables a TRS-80' to 
act as a dial-up terminal on any time sharing network. $139 

For fast delivery, send certifted checks, money orders or direct bank wire transfers. Personal or company checks require two to three 
weeks to clear. 



SIX (6) PRONG ISOLATOR: ISO -2 

AC FILTER/6 PRONG POWER STRIP 

DISK DRIVE CABLES: 2 drive $29.00 

DUST COVERS: TRS-80/Apple 

PLASTIC DISKETTE HOLDER: For ring binder, holds 20 



4 drive 



84.00 
49.00 

16.95 
54.00 
39.00 
35.00 
7.95 
8.00 



dealer (national/international) inquiries invited Send for FREE Catalogue 



The CPU SHOP 



TO ORDER CALL TOLL FREE 1-800-343-6522 

TWX: 710-348-1796 Massachusetts Residents call 617/242-3361 



5 Dexter Row. Dept. MC12M 
Charlestown. Massachusetts 02129 
Hours 10AM-6PM {ESTl Mon.Fri. (Sat 



till 5) 



• 29* 

Massachusetts Residents add 5°? Sales Tax 
"TRS-80 is a Tandy Corporation Trademark 
• Digital Research 
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". . . what they don't tell you in the instruction manual 
is as important and as useful as what they do tell you. . . " 



tuation marks, it's just as easy (and easier 
to follow) if you just type PRINT A or PRINT ; 
or whatever. CHRS< ) has been found useful 
for producing effects in a program which we 
can't get directly from the keyboard, such 
as the CHR$(23) and CHR$(28). Table 1 
shows more of these effects taken from the 
Level II manual. 

There are a lot of ASCII codes which can't 
be entered from the keyboard but which 
make their appearance in many programs. 
These are the graphics characters. One unit 
of memory, a byte, can store a number of 
size up to 255; since the highest number of 
ASCII code for letters or characters is 128, 
however, that leaves a large number of un- 
used codes. In the TRS-80 these are used 
for graphics characters. The later Level II 
manuals include a printout of these charac- 
ters, but the earlier manuals didn't. For 
everyone who is now struggling with an old 
manual, Fig. 1 shows what the graphics 
characters look like, with their code num- 
bers. To see any of these characters for 
yourself, look up its code number. Use the 
command PRINT CHR$(number). 

Bigger Graphics 

Going onto Sinclair's Second Law - that 
what they don't tell you in an instruction 
manual is as important and as useful as 
what they do tell you - you may have sensed 
that there's a lot more to this business. If 
you look at Fig. 2 more is revealed. Each 
printing position on the video screen con- 
sists of six small blocks or cells, and the 
graphics characters are formed by lighting 
up various combinations of these cells. 
Why shouldn't we light up more than one 
cell at a time in a given block? And there's 



Cod* 


Function 


0-7 


None 


8 


Backspaces and erases current 




character 


9 


None 


10-13 


Carriage returns 


14 


Turns on cursor 


15 


Turns off cursor 


16-22 


None 


23 


Converts to 32 character mode 


24 


Backspace — Cursor 


25 


Advance — Cursor 


26 


Downward 1 linefeed 


27 


Upward 1 linefeed 


28 


Home, return cursor to display 




position(0,0) 


29 


Move cursor to beginning of line 


30 


Erases to the end of the line 


31 


Clear to the end of the frame 


Table 


1. C/Control, Graphics and 


ASCII Codes— Control Codes 7#37 
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Figure 1 



also no reason why we shouldn't light up 
more than one block at a time. We can do 
this by combining codes; Listing 14 shows 
an example. G$ is defined as the combina- 
tion of two graphics characters. Each time 
we command PRINT G$, we'll get that com- 
bination, and we can, of course, use the 
usual printing options of PRINTTAB( ) G$ 
and PRINT® , G$ to position the set of char- 
acters where we want them. We can also 
use tricks like defining two sets of graphics 
characters, G$ and H$, and then writing 

PRINT@N,G$:PRINT@(N + 1),H$ 

which will print the two sets side by side, 
starting at the position set by the value of 
the number N (between and 1022). 
Alternately we can use: 

PRINT@N.G$:PRINT®(N + 64),H$ 

which will print G$ at position N, and H$ di- 
rectly underneath it. Adding 64 to N moves 
the printing position to the line space imme- 
diately below, since we now have 64 print 
positions in a line. When we used large print 
we used only 32 characters per line, and 
there are 64 in the program now. 

Next month we'll be looking at the SET 
and RESET commands, which are a free 
reign way of creating shapes. Then in the 
final section of this series we'll investigate 
the POKE command which can speed up 
the process of drawing shapes. 

INKEYS 

IN KEYS can make your program a lot 
more interesting, it's always by a statement 
like 



K$ - INKEYS 



What is INKEYS? It refers to the value of 
the character which is fed into the comput- 
er when pressing the key just as the com- 
puter is scanning the keyboard contacts 
looking for a key being closed. This scan- 
ning takes places continuously when the 
computer is being used to enter a program, 
and during much of the time when a pro- 
gram is running in order to detect the 
BREAK key being pressed. It is halted dur- 
ing a CLOAD or CSAVE, an LLIST or 
LPRINT. You can't affect what goes on dur- 
ing these operations by punching keys. The 
RESET button alone, located at the back of 
the computer, will stop a CLOAD or CSAVE 
(and will usually corrupt the tape as well). 
Incidentally, having the continuous key- 
board scan means that if you are using a 
simple keyboard delay routine as a bounce 
fix, your programs are running slower! 

This scan operation is fast but chances 
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10 G$=CHR$(153)+CHR$(166) 

20 CLS: PRINT G$ 

30 PRINTTAB(32)G$ 

40 PRINT§350,G$ 

50 END 

100 REM TYPE RUN 100 TO RUN THIS ONE 

110 G$=CHR$(154)+CHR$(165) :H$=CHR$ (183) +CHR$ (187) 

120 CLS:PRINTei50 f G$;:PRINT@155,H$ 

130 FOR N=1T01 000: NEXT 

140 CLS:PRINT 0480 ,G$:PRINTi3544 , H$ 

Program Listing 14 



5 PRINT "PRESS ANY LETTER OR NUMBER KEY" 

10 K$»INKEY$:IF K$="" THEN 10 

20 K«VAL(K$): IF K»0 THEN PRINT"YOU ENTERED THE LETTER 

";K$ 
30 IF KOI THEN PRINT "YOU ENTERED THE NUMBER "; K$ 
40 END 

Program Listing 15 



1000 A$-"" 

1010 K$«INKEY$:IF K$»"" THEN 1010 ELSE PRINT K$; 

1020 A$=A$+K$:IF LEN(A$)<2 THEN 1010 

1030 IF LEN(A$)-2 AND A$«"NO" THEN M=2:GOTO2000 

1040 IF LEN(A$)=3 AND A$="YES" THEN M-1.GOTO2000 

1050 IF LEN(A$)-2 THEN 1010 

1060 IF LEN(A$)>3 OR A$O"N0" OR A$<>"YES" THEN GOTO201 


1070 END 
2000 IF M=l THEN PRINT " THE ANSWER IS YES":ELSE PRINT 

" THE ANSWER IS NO" 
2005 END 
2010 PRINT " YOU HAVE MADE A MISTAKE- PLEASE TRY AGAIN 

•":FOR N=1TO500:NEXT:GOTO1000 

Program Listing 16 




The 
Mt. St. Helen 
GAME 
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The ultimate search and rescue game! 

"Will you be able to save the campers 

from the devastating blast!'' 

Better Hurry! 

Fun— Excitement— Graphics 

Level II 16K $14.95 cassette. $24.95 disk 
Special handling charge $ I 00 each 

~ MICROGRAM ^442 

PO Box 1474. Spokane WA 99210 
1800 547 5996 ext 112 (Oregon) 1-800-452-8847 
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are. if you just wrote K$ = INKEY$ into a 
program and let it run. there wouldn't be a 
key pressed down at the instant when that 
line of program was carried out, so K$ 
would be a blank string at first. We get 
around this by looping around the instruc- 
tion; forcing it to repeat itself until 
something is entered by pressing a key. A 
line such as: 

50 KS = INKEYS : IF K$ = " " THEN 50 

does just that. If the value of K$ is a blank, 
the line runs again. It keeps running until a 
value is entered from a key. The value of 
that key is then stored as K$. If the key is 
just a letter key or a number key, its value 
can be printed by making the line read 

50 KS = INKEYS: IF KS = " " THEN 50 ELSE PRINT KS 

This is a useful way of entering letters or 
numbers without hitting ENTER. An exam- 
ple of this sort of thing is shown in Listing 

»> Reader Service -see page 274 



15. In line 10. KS is set equal to INKEYS, and 
looped back waiting for a key to be pressed, 
the number value of KS is found by using 
K = VAL(KS). If the key is a letter key, its 
number value is zero, and the message in 
line 20 is printed. If the key is a number key, 
its number value is not zero (unless it is the 
zero key) and the message in line 30 is print- 
ed. 

Take a look at the program in Listing 16. 
This is useful for YES/NO choices, because 
it lets you see the word build up on the 
screen, and returns at once when the cor- 
rect word is selected, without needing to hit 
ENTER. In addition, it signals back to the 
main program what has been typed, using 
M = 1 to mean YES and M = to mean NO. 
Try it out, and then think how it might be im- 
proved. Perhaps a flashing asterisk or dash 
to remind when you need entar another let- 
ter? 

Next month, we will look at how the 
TRS-80 makes calculations, formulae and 
logic easy for us. ■ 
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TUTORIAL 



You'll be one after reading 

this introductory lesson on arrays. Comes complete with homework. 

A Manipulative Wizard 



John D. Adams 
13126 Tripoli Ave. 
Sylmar, CA 91342 



The TRS-80 is a talented little machine. 
As you learn about it, its possibilities 
widen surprisingly. And when it comes to 
handling large data groups with items in 
special relation to others, it is, indeed, an 
electronic wizard! 

Anyone who has data that must be mani- 
pulated should be familiar with the array 

capability of the computer. 

Moving from Level I, where arrays are sev- 
erely limited, to II is like moving from a 
Tonka toy to a Mack Truck. The Level II 
manual has a good section on arrays — if 
you already know about them. My first at- 
tempts to use it were frustrating and con- 
fusing because it is somewhat skimpy on 
details. I learned the hard way— by trial and 
error. 

Arrays 

So what is an array? An array is a formal, 
structured arrangement of information in 
which individual items of data are related. 
Gosh, that sounds grim! Is this going to be 
another one of those articles? Nope. Let's 
take it from the top. 

Everyone deals with arrays of one sort or 
another. Your telephone book is an array. 
For any page the seventeenth name from 
the top will correspond with the seven- 
teenth number from the top. A street atlas is 
a different kind of array. If the map area you 
are looking for can be found on page 36 with 
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horizontal coordinate E and vertical coordi- 
nate 5, then that area has an array location 
of 36,E,5. Financial reports, bank state- 
ments, income tax tables and bills are all ar- 
rays. They all have "grouped" information. 
How does the computer handle arrays? If 
you have spent 15 minutes plus with your 
computer, you know how finicky it is about 
directions. A quick review of some facts 
concerning computer memory locations is 
worthwhile. 

The manual explains that a single letter 
may be used to designate a memory loca- 
tion. With 26 letters in the alphabet, that 
creates 26 memory locations. Next, the 
manual states that a single letter and a sin- 
gle digit, such as R4, can be used. With ten 
digits from to 9, 260 more memory loca- 
tions can be designated. Finally, two let- 
ters, such as EM, can be used to name an- 
other 676 locations. 

Although this accounts neatly for more 
than 900 memory locations, it is not quite as 
generous as it appears. It would be relative- 
ly easy to fill all the locations with data, 
leaving no location in memory for program 
use. Storing data in this fashion also costs 
time and space— and locating information 
can be a nightmare. Think about designing 
a routine to locate a particular item by scan- 
ning all 962 locations beginning with A and 
ending at Z, then AO to Z9, and finally AA to 
ZZ. 

Arrays handle data storage by using spe- 
cialized location names, and make storing, 
searching and retrieving information al- 
most effortless. They do this using "sub- 
scripted" variables. 

The character set used in the TRS-80 has 
no small numbers to use as exponents or 
subscripts. Exponents are expressed by the 
up arrow. Subscripts are enclosed in paren- 
theses. For example, if an array is set under 



the variable M, then M(1) could represent 
the first item, or "element," in the array, 
M(27) the 27th, and so forth. (Zero is usable 
as a subscript and should be used unless 
you want the location number and the item 
number to be the same.) A(1), A, A1, A$, A1$ 
and AA are all different memory locations. 

Your data can be stored without touching 
the standard memory locations. By using a 
loop, the entire list can be searched quickly 
for a particular bit of data. When there is 
more than one type of data to be stored, 
multi-dimensional arrays or several arrays 
can be set up so that information in A(5) will 
correspond to information in B(5), which will 
correspond to information in C(5), etc. 

The simplest type of array, a "one-dimen- 
sional" array, is sometimes called a list, 
because that's exactly what it is. Let's as- 
sume you want to store 1 1 names. On power 
up the TRS-80 has 1 1 locations set aside au- 
tomatically so you do not have to "dimen- 
sion" the array (which will be discussed 
later). 

There are several ways in which this can 
be handled. One alternative would be to 
store each name in a separate memory lo- 
cation. Should the names be alphabetized? 
Putting things in alphabetical order is a 
convention designed to make things easier 
for humans. The computer really doesn't 
care. It will take the same time to retrieve all 
11 names either way. If you do want the 
names in alphabetical order, the computer 
will do that for you too. Names loaded in 
this fashion might look something like this: 

10 A1$ = "Burke. Samuel" 
20 A2$ = "Caldwell. Louise" 



90 A3$ = "Smith, Walter' 
100 B1$ = "Thomas, Anne" 
110 B2$ = "Young, Den ise" 



"Probably the nicest feature of an array is. . . to 
search out a particular feature without fuss. . . " 



Aggravation abounds in this system. 
Each time you enter a name, you must enter 
the line number, the variable name, an 
equals sign and the name in quotes. Doing 
this with 500 names could cause temporary 
insanity. Entering 11 names taken at ran- 
dom from the phone book in this fashion 
used up 304 bytes of RAM, or slightly less 
than 28 bytes per name. This means that in 
a 16K machine with 15,527 available bytes, 
entering 561 names will shoot your RAM. 
Retrieving a name from this list would be 
another headache, requiring a comparison 
between a string and each location. 

Now is the time to call the array into func- 
tion. Loading an array is usually done with a 
FOR-NEXT loop. Having chosen N$ as the 
variable name for an array, prepare a load- 
ing routine that looks like this: 



10 CLEAR 150 

20 FORX = 0TO 10 

30 INPUT'ENTER NAME';N$(X) 

40 NEXTX 



cept that line 60 gets data out whereas line 
30 puts it in. The (L) in line 60 is for output- 
ting to a printer. If you want a listing on the 
monitor, omit the (L). 

Nicest Feature 

Probably the nicest feature of an array is 
that it enables us to search out a particular 
item without fuss or bother. Here is a rou- 
tine for retrieving and printing a particular 
name; add it to the previous lines. 

80 INPUT-ENTER NAME TO BE FOUND ";S$ 

90 FORX = 0TO 10 

100 IF S$ ■ N*X) THEN 130 

110 NEXTX 

120 PRINT "NAME NOT ON LIST" GOTO 80 

130 (L)PRINT N$<X) 

Line 80 allows you to enter the name you 
want and put it into S$. Lines 90 through 110 
compare it with each name on the list. If the 
name can't be found, line 120 is printed and 
you are returned to line 80 for another try. If 
the name is found, line 100 sends execution 



to line 130 for printing. 

An input loop, an output loop and a 
search loop make up the skeleton of any ar- 
ray program. Arrays can get a lot more com- 
plex, but basically they are ail built on this 
framework. 

The three loops used above can be put to- 
gether in a working program designed to 
store, print and search an 11 -name array. 
The program is given in Listing 1 with some 
CLS's and PRINT'S to format the material 
on the monitor screen. Lines 20 and 30 give 
the user a choice, and some GOTO's were 



Store 


Jan. Feb 


March 


1 


$328.14 $127.40 


$552 13 


2 


67.18 330.12 


220 90 


3 


703.58 941.30 

Table 1. 


128.58 



Line 10 clears enough string space for 
the names. Allowing an average of 15 or 16 
spaces per name should suffice. Be sure to 
put all CLEAR instructions at the very be- 
ginning of your program. If the computer en- 
counters a CLEAR after data has been en- 
tered, it will callously throw out your data. 
Line 20 originates the loop and sets the val- 
ue in X to zero. Line 30 stops execution so 
you can enter a name, then stores the name 
in N$(X). At this point the location is N${0). 
Line 40 returns execution to line 20 and in- 
crements the value in X by one. This indi- 
cates that on the next pass the second 
name will be stored in N$(1). When the value 
in X is greater than ten, execution skips to 
the line following the NEXT instruction. 
Now then, that's not too difficult, is It? 

Enter the lines and run them. They only 
use 50 bytes of RAM. All you need to do to 
enter the names is to type them when re- 
quested. However, if you enter names with 
commas in them, the computer misunder- 
stands. It will load what precedes the com- 
ma, regard the comma as a data separator 
and display 7EXTRA IGNORED. This is no 
big problem: Enter first names first with no 
commas, or keep the alphabetical order and 
commas by entering the names within 
quotes. (When I loaded the same 11 names 
in this manner, I used only 153 bytes, saving 
151 over the original 304.) 

Getting the computer to give you back 
the data is just as simple. Add the following 
lines: 

50 FORX = 0TO10 
60 (UPRINT NKX) 
70 NEXT X 

The procedure is just about the same ex- 



10 


CLS:CLEAR 15 : PRINT "NAME 


LIST' 


:PRINT 








20 


INPUT"DO YOU WANT 
CH"jY 


TO (1) 


LOAD 


(2) PRINT 


OUT 


(3) 


SEAR 


31 


ON Y GOTO 40,7 0,95 












40 


FOR X=0 TO 10 














by 


INPUT'ENTER NAME" 


NS(X) 












60 


NEXT :CLS: GOTO 20 














10 


CLS:FOR X-0 TO 10 














80 


PRINT NS(X) 














90 


NEXT: PRINT: INPUT" PRESS ENTER TO CONTINUE 


";CS 


:CLS 


:GOT 




20 














9 5 


CLS 














100 


INPUT'ENTER NAME 


TO BE 


FOUND 


;SS 








110 


FOR X=0 TO 10 














121 


IF SS-NS(X) THEN 


150 












MB 


NEXT 














141 


PRINT"NAME NOT ON LIST" 


:GOTO 


100 








150 


PRINT NS(X) :GOTO 


20 












:60 


REM * END OF LISTING * 


1 - NAME LIST * 









Listing 1. Name List 



10 CLS:CLEAR 2000:DIM NS (30 ) , AS (30 ) , CS ( 30 ) , Z S (30 ) , T$ ( 30 

) 
20 PRINT'ADDRESS BOOK": PRINT 
30 INPUT'DO YOU WANT TO (1) LOAD (2) PRINT OUT (3) SEAR 

CH";Y 
40 ON Y GOTO 50,110,140 
50 FOR X = TO 29 
60 INPUT'ENTER NAME";N$(X) 
70 INPUT'ENTER ADDRESS" ; AS (X) 
75 INPUT'ENTER CITY AND STATE" ;CS(X) 
80 INPUT'ENTER ZIP CODE";Z$(X) 
90 INPUT'ENTER TELEPHONE NUMBER" ;TS (X) 
100 CLS: NEXT: GOTO 30 
110 FOR X=0 TO 29 
120 LPRINTNS(X) :LPRINT AS(X):LPRINT CS (X) , ZS (X) : LPRINT" 

PHONE ";TS(X) :LPRINT 
130 NEXT:GOTO 30 

140 INPUT'ENTER NAME TO BE FOUND" ;SS 
150 FOR X«0 TO 29 
160 IF SS-NS(X) THEN 190 
17 NEXT 

180 PRINT"NAME NOT ON LIST" :GOTO 140 
190 LPRINT N$(X):LPRINT AS(X):LPRINT CS (X) , ZS (X) : LPRINT 

"PHONE ";T$(X) 
200 GOTO 30 



Listing 2. Address Book 
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TRS 80 LEVEL II (16K) USERS: ^475 

a a a a FOR CHRISTMAS ° D a ° 

BASEBALL & SOCCER 



Realistic! Exciting ! Based completely on the statistics of actual players and teams. 

WCS Soccot is a sophisticated, computerized game that demands strategic decisions! 
Each player is rated in at least 6 categories for both offense and defense. Easy to use, 
but complicated enough to challenge the most accomplished gamesman. Play a full 
game in only 30 minutes. 16 all-time great teams and dozens of top players, including 
Pele and Beckenbaner. Game includes manual, program timer, scoreboard and field 
graphics. 

DFC Bw b i ll is absolutely the finest simulated sports game available for home com- 
puter use. DFC is not a mere graphics, random play game- DFC is a highly sophisticat- 
ed simulation program. Hundreds of different plays - including over 50 different types of 
infield outs! Complexity only possible through the selective calculations of home com- 
puters. The computer compares each and every characteristic of a particular batter 
against a particular pitcher and defense for a degree of realism never before possible. 
As manager of a real Major League team, you control every element of play action. You 
make every managerial decision available in major league baseball based on the real 
ability of your players. Game includes manual, scoreboard, stats flasher and field 
graphics. Also, twelve top teams of the 60's and 70's: each team contains the names of 
25 players and is loaded directly from tape into the program. New teams, including com- 
plete seasons, soon to be available. 

Tape for each game has full program on each side to insure years of accurate loading. 

Special Christinas Discounts: 

Orders received by December 10 for single games may subtract $2.00 from each 

game; orders for two games pay only $35.00 for both. Guaranteed delivery by 

Christmas. 

ORDER DFC BASEBALL AND WCS SOCCER FROM: GAMECRAFT CO., 

BOX 2299, STATION A, CHAMPAIGN, IL 61820 GAMES ARE $21.00 EACH. 

ORDER TODAY OR WRITE FOR FREE COMPUTER GAMES BROCHURE. 

oooaooaoaoooooaoanc 



HARD DISK DRIVE! 

For TRS-80* Model II Users 
Up and running— and available for immediate delivery 



AMERICAN BUSINESS COMPUTERS IS NOW 
ABLE TO OFFER HARD DISK (WINCHESTER) 
DISK DRIVES FOR SALE. THESE DRIVES ARE 
AVAILABLE FOR TRS-80 MOD II. TRS-80 MOD 
I, S-100, AND APPLE COMPUTERS. 



SEVERAL DIFFERENT DRIVES AND CON- 
TROLLERS ARE AVAILABLE FOR THE TRS 
80 MOO II. ALL DRIVES ARE SUPPLIED WITH 
HARD DISK CPM OPERATING SYSTEMS. CA- 
PACITIES RANGE FROM 5-66 MEGABYTES. 
CALL OR WRITE FOR PRICES. 



American Business Computers 

1 18 So. Mill St., Pryor, OK 74361, 918-825-4844 



• 366 



THE BOOKKEEPERS 



FOR INFO CALL (603) -44 7-2 745 



Full Charge Bookkeeper— 48K, 3 DRIVE, w/ALPHA $129.95 

Intermediate Bookkeeper— 48K, 2DRIVE & Printer $109.95 

Cheap Bookkeeper-32K, 2DRIVE & Printer $ 89.95 

All Above Are Daily Journal — C L Systems 

Hex Code Converter, Loan Payment Finder, & 

Amortization Table, 16K, 1DRIVE & Printer— ALL 3 $29.95 

STURD1VANT & DUNN, INC. ^82 

BOX 277, 124 WASHINGTON ST., CONWAY, NH, 03818 



added to bring you back to convenient 
places. But look at lines 40 to 60, lines 100 
to 150 and lines 70 to 90 and you will see the 
three basic modules, an input loop, a 
search loop and an output loop. 

What happens if we have more than 1 1 
names, say 50? Try changing lines 40, 70 
and 110 to read "FOR X = TO 49". When 
you run the program the monitor will show 
?BS ERROR IN 40. (No— the letters stand 
for beyond subscript.) 

Remember that the TRS-80 sets aside 
space for an 11 -element, or member, array 
on power up. For larger arrays you must use 
the DIM(n) statement. To store 50 names, 
the statement :DIM N$(50) must be added to 
line 10, as well as changing lines 40, 70 and 
110. Otherwise the program remains the 
same. The DIM(n) statement merely re- 
serves space, or dimensions arrays having 
more than 11 elements. 

This basic program can be enlarged to 
contain not only names, but addresses, zip 
codes and telephone numbers. You will still 
be using one-dimensional arrays, but we 
will be using five of them: N$ for names, A$ 
for street numbers, C$ for cities and states, 
Z$ for zips and T$ for phone numbers. List- 
ing 2, Address Book, shows a program like 
this that wil handle 30 names. 

Examine it carefully and compare it with 
Listing 1. Note the similarity of structure. 
Isolate the three basic routines. Instead of 
handling one array, the loops are now han- 
dling five. Enter the program and RUN it. Try 
changing it to search for an address in- 
stead, or a phone number or a city and 
state. Such changes are minor and easy to 
make. 

Multi-Dimensional Arrays 

Now we can forge ahead to arrays which 
are complex— and more useful. Five arrays 
were used in Address Book: one for each in- 
formation item. There are good reasons not 
to simply load all of the information into 
one array such as N$. First, the strings must 
be identical for the computer to match 
them. If all of the information was loaded 
under N$, the only way for the computer to 
find an item would be to enter it exactly as it 
was originally loaded. If you had all that in- 
formation at hand, you wouldn't need the 
program. More important, listing the data 
under one variable name would have ser- 
iously hampered the data search. There 
would have been no way to find an address 
from a phone number, and no way to find 
people who live in the same zip code or tele- 
phone area. Using the five arrays gives a 
flexibility in searching techniques, and is 
pertinent to arrays which have more than 
one dimension. 

To explore the two dimensional array use 
Table 1. 
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The money amounts in Table 1 are given 
in the two categories of store and month. 
There are consequently three rows and 
three columns of data. (The store numbers 
could be considered as another column, if 
needed.) To find a particular figure use the 
row and column. For example, the figure for 
the second store in the third month will be 
found in the second row and the third col- 
umn. 

Using the figures in the table, you can set 
up what is called a three by three array. This 
is a two-dimensional array. Whereas the ca- 
pacity of a single dimension array is the last 
number used as a subscript, the capacity of 
this array will be the product of its dimen- 
sions. That is, 3*3 = 9 available locations. 
Arrays of this type are quickly loaded, 
printed out and searched by using "nested" 
loops. The array will be given the name A, S 
will be used to represent the stores and M to 
represent the months. Note that these are 
not string locations (such as A$). Numbers 
loaded into string locations are regarded as 
symbols and not as values. Using these 
variable names, the array will have the 
name A(S,M). A routine for loading data 
would be as follows: 

10 FOR S = 1 TO 3 

20 FOR M = 1 TO 3 

30 PRINT'ENTER FIGURE FOR STORE":S;' MONTH";M 

40 INPUT A(S.M) 

50 NEXTM 

60 NEXTS 

There are two loops here, one contained 
inside, or nested, within the other. Opera- 
tion of nested loops is not complicated. 
Lines 10 and 20 originate the loops and set 
the values in S and M to one. Line 30 asks 
for information and requests information 
for the particular store and month repre- 
sented by S and M. Line 40 deposits that in- 
formation into location A(S,M) which is 
presently A(1,1). Line 50 returns execution 
to line 20 and increments M by one. When M 
is greater than three, execution skips to line 
60. The NEXT instruction sends the comput- 
er back to line 10, which increments S by 
one and starts the nested loop working 
again. 

Do you see that the nested loop (M) has to 
cycle three times before S is incremented? 
This produces subscript values (1,1), (1,2) 
and (1,3). After the value of S is incre- 
mented, the interior loop cycles three times 
again, producing values of (2,1), (2,2) and 
(2,3). The third and final pass generates val- 
ues of (3,1), (3,2) and (3,3). You now have set 
nine locations with subscript values from 
(1,1) to (3,3). 

Saving Bytes 

This might be a good time to conserve 
some bytes. Having learned to program in 
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ing an alien machine code program, or creating 
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before/after set of Processor Programming 
Models with scrolling disassembler, CPU 
Registers, flags and Stack, plus an intelligent 
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interactive instructions. It's your entire 
imaginative overhead, clicking away in Single-step 
or variable speed TRACE modes under your 
dynamic control. Plus a slug of debugging 
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such low cost development software. Reify 
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ACCEL: from Southern Software of England, is 
a COMPILER for Level II TRS-80 INTEGER BASIC 
Property structured (no dynamic redefinitions, 
correctly nested loops etc) error-free BASIC 
programs are compiled by ACCEL to fast Z80 
machine code for potentially spectacular 
speedups. 
ACCEL Compiler for 16K Level II TRS-80 $44.95 
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"You were rather limited in search abilities for 
Address Book. But look what you can do now. . . " 



4K of RAM, I am very stingy with memory 
space. You can streamline this program us- 
ing a couple of the features of the TRS-80. 
First you can write multiple lines separated 
by colons to combine lines 10 and 20, lines 
30 and 40 and lines 50 and 60. Then, Level II 
allows you to use NEXT without a variable 
name. As long as the loops are nested prop- 
erly the computer will know where to go. 
The compressed version follows: 

10 FOR S ^ 1 TO 3 FOR M = 1 TO 3 

20 PRINT' ENTER FIGURE FOR STORE ",S. MONTH'.M: 

INPUT A(S.M) 
30 NEXT:NEXT 

When programs get long, a byte saved is 
a program earned (finished). 

Enter the three lines and RUN them. The 
computer asks for exactly what it wants, 
then tucks the data into the right place and 
asks for more. Finally it is doing things my 
calculator can't. 

To get a printout add the following lines: 



40 Same as line 10 
50 PRINT A(S,M) 
60 Same as line 30 



Try ending line 50 with a semicolon or a 
comma. Fool around with the PRINT®, 
PRINT TAB and/or PRINT USING instruc- 
tions in conjunction with the printout 
routine. It's a snap to get neat, professional 
results. 

You were rather limited in search abilities 
for Address Book. But look what you can do 
now: 



1 . To find return amounts for store 3 in the" sec- 
ond month, enter PRINT A(3,2) 

2. To find total returns for store 2 for all three 
months, enter PRINT A(2,1) + A(2,2) + A(2,3) 

3. To find total returns for all three stores in 
February, enter PRINT A(2,1) + A(2,2) + 
A(3,2) 

4. To find the difference in returns of store 1 
in March and January, enter PRINT A(1,3) - 
A(1,1) 

Getting a hint of the possibilities? Simple 
routines can be written to do all of these 
things. Here is a routine to find the total 
amount returned by all stores over the three 
month period: 

100 FOR S - 1 TO 3:FOR M = 1 TO 3 
110 T = T + A(S,M) 
120 NEXTNEXT 

130 PRINT-TOTAL THREE MONTH RETURNS FOR ALL 
STORES";T 

How about a routine to find the store with 
the most returns for the whole period? 



100 FOR S = 1 TO 3FOR M = 1 TO 3 
1 10 IF A(S,M)>G THEN G = A<S,M):S1 = S:M1 = M 
120 NEXT:NEXT 

130 PRINT-STORE # - ';S1,"HAD THE GREATEST RE- 
TURNS IN MONTH NUMBER". M1 



At the end of line 1 10, S1 is set to the val- 
ue of S and M1 is set to the value of M. This 
is a reminder which store and month had 
the greatest amount for use at the end of 
the routine. 

These lines merely scratch the surface of 
what multi-dimensional arrays can do. With 



larger groups of data, the flexibility and 
convenience is easy to imagine. I repeat 
that, due to the number of elements in the 
examples, the DIM statement was not need- 
ed. For an array with 20 rows and 18 col- 
umns, the statement DIM A(20,18) would 
have to be inserted before using the array. 
This simple statement would provide 360 lo- 
cations. 

Visualizing arrays with more than two di- 
mensions is sometimes difficult. Consider 
the following: A financial report is present- 
ed in four volumes (one for each zone). Each 
volume has one page per district and the 
greatest number of pages in any volume is 
seven. Each page has a row for each store 
and the greatest number of rows on any 
page is 12. There are three columns of data 
for each store. To find a particular figure 
you must use four directions: volume num- 
ber; page number; row, and column. Storing 
this data would require a four-dimension ar- 
ray such as T(V,P,R,C), in which the in- 
dividual values would be set at T(4,7,12,3). 
The loading loop would look like this: 

10 DIM T(4.7.12.3) 

20 FOR V = 1 TO 4:FOR P = 1 TO 7:FOR R = 1 TO 12: 

FOR C = 1 TO 3 
30 INPUT T(V,P,R,C) 
40 NEXT:NEXT:NEXT:NEXT 

Nested loops always end in reverse or- 
der. If they are out of order, the computer 
will locate to the wrong place and the pro- 
gram will crash. With Level II it's best to 
drop the loop names and let the computer 
figure it. That's what it gets paid for. Before 
you try the above routine, however, I must 
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"You should have known that you couldn't 
get out of here without homework." 



warn you that it provides 4«7«12*3 or 1008 
locations. Putting in data might consume 
some time. If you want to try it out quickly, 
change line 30 to read: 

30 X = X + 1:T(V.P.R,C) = X 

This will store consecutive numbers from 
one to 1008 in sequence in the various loca- 
tions. Use the following to get a printout: 

50 FOR V = 1 TO 4:FOR P = 1 TO 7:FOR R = 1 TO 12:FOR 

C = 1T03 
60 PRINT-THE VALUE IN VOLUME";V;"PAGE";FVROW; 

R/'COLUMN ;C;"IS";T(V.P.R,C) 



70 NEXT:NEXT:NEXT:NEXT 

It will take about 25 seconds for the num- 
bers to load, and then almost two minutes 
to print out all the information even though 
it is scrolling rapidly up the screen. The 
search possibilities are varied. Listing 3 is 
only one example. Line 30 loads random 
numbers between one and 5,000 in all of the 
1008 array locations. Line 60 searches all 
the locations for the largest number. After 
all locations are searched, line 80 prints out 
the result. 

I could ramble on about complex arrays, 



10 CLS:DIM T ( 4 ,7 , 12 , 3 ) : PRINT g 456, "HANG ON - THIS WILL 

TAKE ABOUT 50 SECONDS!" 
20 FOR V-l TO 4: FOR P-l TO 7 : FOR R=l TO 12: FOR C=l TO 3 
38 T(V,P,R,C) « RND15000) 
40 NEXT:NEXT:NEXT:NEXT 

50 FOR V-l TO 4:FOR P=l TO 7 : FOR R»l TO 12:FOR C=l TO 3 
60 IF T(V,P,R,C) > G THEN G-T(V,P,R,C) 
70 NEXT:NEXT:NEXT:NEXT 
80 CLS:PRINT"THE LARGEST NUMBER FOUND IS" ;G 



Listing 3 



but when you reach the point where every- 
thing in Listing 3 is clear, you won't need 
any more help. The best way to learn is to 
experiment. You should have known that 
you couldn't get out of here without home- 
work. Here is your assignment: 

1. Find out if the largest number is gener- 
ated more than once, and if so, how many 
times. 

2. Print the location(s) in which the larg- 
est number appears. 

3. Find out if the number 238 appears in 
the stored numbers, and if so, where it is 
stored. 

Taboos 

There are some taboos connected with 
array usage. The most frequent is forgetting 
to dimension the array with the DIM state- 
ment when needed. This will give you the 
old ?BS error message. 

Once an array has been set, you may not 
re-dimension it. If you try, you will get a ?DD 
error message (One of my students main- 
tains this stands for "dumb dimension- 
ing."). Set arrays correctly the first time and 
put them near the beginning of your pro- 



WE PAY SHIPPING 

ON ALL MX-80 

PRINTER and M.P.L 

DRIVE ORDERS * 



LEVEL IV PRODUCTS, INC. 

32238 Schoolcraft Road, Suite F4 • Livonia, MI 48154 
313-525-6200 Outside Michigan call 1-800-521-3305 



Please add $2.50 for shipping and handling. 

$1.50 COD. 



Level IV Products Catalog 
NEW - SEND $2 FOR YOUR COPY 
REFUNDABLE ON FIRST ORDER 



"Prepaid U.P.S. within Continental U.S. 



Dealers Orders Welcome 

VISA 



'mjsie- .tiarqe' 




100 • 80 Microcomputing, December 1980 



"The only real way to learn about arrays and 
matrices is to use them. So onward and upward. . . " 



gram. There are methods of transposing fig- 
ures from one array to another (see the third 
subroutine on page 6/5 of your manual), but 
this is a tricky process. 

Before closing, some mention should be 
made of matrix operations. In algebra, ta- 
bles of data are called matrices. A special 
branch of algebra deals with manipulating 
matrix information. If you are in a position 
to need scalar multiplication, element-wise 
functions and the like, you surely know 
enough to use the subroutines on pages 674 
to 6/6 of your manual. 

To demonstrate a simpler use of ma- 
trices, that of matrix addition, you should 
first construct another table like the Mer- 
chandise Returned table for the previous 
year and with different figures. The program 
given in Listing 4 will load data for the first 
year in A(S,M), load data for the second year 
in B(S,M) and then add the individual ele- 
ments in both matrices. Lines 10 to 40 load 
the first matrix, lines 50 to 80 load the sec- 
ond and lines 90 to 1 10 do the addition. This 
creates a new matrix, C(S,M) to store the 
sums. Instructions are included in the pro- 
gram to format the printout. The new loca- 



tion C(1,1) contains the sum of locations 
A(1,1) and B(1,1). All other locations follow 
the same pattern. 

This short tour of arrays is certainly not 
meant to pass as a complete treatment. It is 



meant to help you get from one place to an- 
other, and if it does, well and good. The only 
real way to learn about arrays and matrices 
is to use them. So onward and upward — 
make yourself some outrageous arrays. ■ 



10 


CLS: PRINT "FIRST YEAR" 












20 


FOR S-l TO 3: FOR M-l TO 3 












30 


?RINT"ENTER FIGURE FOR STORE" 


;S 


"MONTH" 


•M 


INPUT 


A(S, 


40 


NEXT: NEXT 












50 


CLS: PRINT "SECOND YEAR":PRINT 












60 


FOR S=l TO 3: FOR M=l TO 3 












70 


?RINT"ENTER FIGURE FOR STORE" 
M) 


;S 


"MONTH" 


;.". 


INPUT 


B(S, 


60 


NEXT:NEXT 












90 


?OR S-l TO 3: FOR M-l TO 3 












100 


C(S,M) « A(S,M) + B(S,M) 












110 


NEXT: NEXT 












120 


FS-"SSI, #♦#.##" 












130 


CLS: PRINT "THE COMBINED FIGURES 


ARE SHOWN 


BELOW 


" 


140 


PRI NT: PRINTTAB( 30) "JANUARY" ; 


TAB(40) "FEBRUARY"; 


rAB(5 




0) "MARCH" :PRINT 












150 


FOR S«=l TO 3 












160 


J«27 












17 


PRINT'STORE #";S; 












180 


FOR M=l TO 3 












190 


PRINTTAB(J)USINGFS;C(S,M) ; : J 


=J + 10 








200 


NEXT:PRINT" ":NEXT 

Listing 4 
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An upfront review of two 

statistical analysis 

software packages. 

STATS 



Advanced Statistical Analysis 
Radio Shack 
Ft. Worth, TX 
16K Level II 
Price: $39.95 



Advanced Statistics 
Creative Computing Software 
Morristown, NJ 
16K Level II 
Price: $24.95 



Robert P. Johnson 
7547 24th Avenue, N.E. 
Seattle, WA 98115 



Because I believe a review should con- 
tain some recommendation, I'll tell you 
up front that the Radio Shack statistical 
package is good and worth the price. The 
Creative Computing package promises 
much, but fails to deliver. 

The Radio Shack package comes in an 
8y a x 1 1 three-ring binder, which contains a 
170-page user manual and eight cassettes, 
including one blank. The Creative Comput- 
ing package, in an 8y 2 x5y 2 vinyl folder, 
contains a 27-page user booklet and one 
cassette. 

The Radio Shack software supports 
printed output. The manual includes a sam- 
ple of the video display at each program 
stage and a discussion of possible error 
messages and other user foul-ups. The 



manual also has four appendices, one con- 
taining program listings. 

The Creative Computing booklet only de- 
scribes how to use the statistical programs. 

CLOAD Cassettes 

A short digression: I recommend that you 
recopy the Creative Computing programs 
onto another cassette. On the original cas- 
sette, the programs are recorded one after 
the other, so if you wish to use the seventh 
program, you must CLOAD seven times. 
Copy the programs onto another cassette 
and give each a unique file name. Or load 
each onto one side of a single cassette. 

Writing this review, I discovered that the 
programs on the Advanced Statistics cas- 
sette do have file names. This is not men- 
tioned in Creative's booklet. The file names 
are not the numbers one to nine as you 
might expect, but the letters A to I. So, to 
load the Multiple Linear Regression pro- 
gram (number 6 on the table of contents), 
you would type CLOAD F. This works only if 
you start from the beginning of the tape. 

The Programs 

Both packages contain roughly equiva- 
lent statistical programs. The Radio Shack 
package contains two programs that are 
absent from the Creative Computing pack- 
age, and the Creative package contains 
one program that is not in Radio Shack's. 
The Radio Shack Random Sample program 
selects a random sample of data item num- 
bers from a population. The second pro- 
gram is Time Series II. It calculates season- 
al indices and moving averages for yearly, 
quarterly, monthly, weekly or daily data. In 



my work I find little use for the random sam- 
ple program, but the Time Series II is in- 
valuable. 

The extra program in the Creative Com- 
puting package is Correlation Analysis. It 
performs correlation analysis on up to five 
variables. The statistical output of the pro- 
gram is similar to that of the multiple re- 
gression program, but may prove to be use- 
ful to users who need correlation analysis. 

While the remaining programs in both 
packages are similar, differences exist and 
will be covered in the following discussion. 

Most of the programs do not contain data 
correction routines. To minimize your frus- 
tration, it is essential to load your KBFIX 
program first. This won't solve all of the us- 
er input errors, but it will reduce them to the 
minimum acceptable aggravation level. 

Tape Data Files (RS) 

and Data File Manager (CC) 

These programs are the heart of a data 
management system for a statistical analy- 
sis package. They allow data to be stored 
on tape for repetitive use and allow that 
data to be edited. The Radio Shack program 
can be used to create new data files, list 
data files (with a printer option), or update 
old data files by deleting or adding data 
elements for existing variables, or by add- 
ing a new variable and its data elements. 

The Creative Computing package does 
this and more. This program allows the user 
to create a new file containing only some of 
the variables on the master file; to sub- 
stitute (delete and add combined) values for 
the variables on the master file; to perform 
transformations of variables on the master 
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file; and to create a subfile containing some 
of the values of the variables on the master 
file. A further word about the transforma- 
tion option: the program allows any variable 
to be transformed as follows: 

New Variable - INTnOld Variable * AyDi 

Here the values for A and D are user-sup- 
plied. The user's booklet tells you which 
program line to change to allow other trans- 
formations. Nice touch. 

Both packages require that different sta- 
tistical programs use different data file for- 
mats. You cannot create a data file and run 
it with any of the programs. Statistical 
packages for mainframe computers (of 
which SPSS— Statistical Package for the 
Social Sciences— is probably the best 
known) generally allow the user to use a 
common data file format for all of the statis- 
tical analysis routines. This is helpful and I 
hope that the next generation of personal 
computer statistical software writers will 
adopt the method. 

Descriptive Statistics. Histogram, and Fre- 
quency Distribution from Radio Shack, as 
well as Descriptive Statistics from Creative, 
are programs for the statistical analysis of 
a single variable. It should be mentioned 
that Histogram (RS) is really a graphics pro- 
gram and not useful unless printed. 

The two packages produce comparable 
information, except that the Creative Com- 
puting program has more features than the 
Radio Shack programs. It has two options 
that are used for test scoring. You enter 
either the number of questions right or the 
number of questions wrong, and the pro- 
gram scores each test, producing a statis- 
tical analysis of the scores. 

Both packages produce similar descrip- 
tive statistics. The Creative Computing pro- 
gram includes the median, quartile values, 
and the standard error of the mean. The lat- 
ter can be calculated using output of the 
Radio Shack program, but the first two val- 
ues cannot. 

Descriptive Statistics from Creative can 
correct erroneous data entries before run- 
ning the program, but I had problems with 
this option. When I deleted data, even 
though it did not show up in the revised data 
listing, it was still part of the statistical 
computations. 

T-test for Matched Pairs, and Correlation 
and Linear Regression from Radio Shack 
perform much the same job as Two Variable 
Statistics from Creative. Both packages 
perform standard two-variable statistical 
analysis. There are two major differences 
between them, however. The Creative Com- 
puting program conducts only a two-tailed 
t-test on the data, while the Radio Shack 
programs allow either one- or two-tailed 



"To minimize your frustration, . . . 
load your KBFIX program first. This 
won't solve all. . . errors, but it will reduce 
them to. . . acceptable aggravation level." 



t-test. Also, the Radio Shack programs 
graphically display the two-variable regres- 
sion and the original data points on the 
screen (or the printer). 

The Radio Shack program, however, does 
not calculate the standard error of the 
estimate for the regression. The Creative 
Computing program does. Since both pack- 
ages allow forecasting of the dependent 
variable, Radio Shack's omission is puz- 
zling. 

Chi-Square Analysis from Radio Shack 
and Crosstabulation from Creative are ba- 
sically similar. The first major difference is 
the dimensions of the chi-square table. The 
Radio Shack program accepts up to an 8 x 
8 matrix; the Creative Computing program 
accepts up to a 10 x 10 matrix. Other differ- 
ences: 

•The Radio Shack program allows the user 
to specify the expected cell frequences. 
•The Creative Computing program allows 
the chi-square matrix to be consolidated in- 
to a 2 x 2 contingency table, a useful fea- 
ture if some frequencies are low or missing. 
•The Creative Computing program allows 
the data to be entered raw. Each observa- 
tion is entered as row and column numbers 
and the program then calculates the ob- 
served frequencies. You would be better off 
(in terms of finger fatigue) to calculate the 
frequencies before using the program. 
•The Creative Computing program com- 
putes a gamma statistic in addition to the 
chi-square. 

Regression-trend Analysis from Creative 
is easy to use as the time variable is ab- 
stract (period 1, 2. 3, etc.) and is automati- 
cally incremented with each data entry for 
the dependent variable. It also estimates 
the regression coefficients for eight func- 
tional forms, (including the linear model). 
Unfortunately, no information is provided 
so that the user can determine which func- 
tional form is best fit to the data (aside from 
the standard error of the estimate). Neither 
the regression routine in Creatives Two- 
Variable Statistics nor their Regression- 
trend Analysis calculates a correlation 
coefficient. 

Multiple Linear Regression and Ad- 
vanced Multiple Regression in the Creative 
Computing package seem to be a "band- 
aid." Multiple Linear Regression is com- 
patible with the Data File Manager while the 
Advanced Multiple Regression program is 
not. The latter only accepts data from tape 
in the form of DATA statements appended 
to it. The new program can be recorded on 
tape for later use. This is not a flexible 
system. The Multiple Linear Regression 



program, like the rest of the programs in the 
package, was written by Richard Galbraith. 
while Advanced Multiple Regression was 
written by David J. Simecek. 

Why a different author? 

So what is wrong with the multiple re- 
gression program written by Galbraith? 

First: The output consists of partial corre- 
lation coefficients between variable pairs, 
the means and standard deviations of the 
variables, and two sets of the regression co- 
efficients. One set is the regular equation 
with no intercept, or constant, term. And 
that is it! Now I don't know of anyone who 
would estimate a regression equation and 
force the constant term to be zero. 

The second problem with the Galbraith 
program is that it is unreliable. In testing all 
three programs, I used Multiple Regression 
Analysis— Simplified, an article by Dr. 
David M. Chereb in the February, 1979. 
issue of Creative Computing, as a ben- 
chmark. When I used the data with 
Creative's Mulitple Linear Regression pro- 
gram, it ran through the correlation matrix 
and then produced the message: 

THERE IS NO UNIQUE SOLUTION 

I suspect that the matrix inversion algo- 
rithm produced a singular matrix. This is 
flatly unacceptable since the data does pro 
duce a solution in other programs. 

The Advanced Mulitple Regression out 
put consists of the regression coefficients 
calculated t-values, a calculated F statistic 
confidence intervals for the regression co- 
efficients based on user-supplied t-values 
and analysis of variance table, and the co 
efficient of determination (R*)— mislabeled 
as the "coefficient of multiple determina- 
tion." 

The program contains a data review and 
correction option, but after displaying the 
values of the dependent variable, the 
screen prompt reads: CORRECT AS FOR Y 
VALUES?. A response of YES gets a REDO 
message. The correct response is 0,0 as 
with the independent variable correction 
routine. 

Another irritant is the prompt TYPE 1 
FOR ANOTHER SET?. What do you type if 
you don't want another set of estimates? 
Answer: any other number; but that's not 
obvious. With some experimentation you 
can clear the problems up. That such 
"minor" problems exist, however, is 
evidence that the program has not received 
extensive user testing. 

One major problem surfaced when I used 
the data from Dr. Chereb's article. The pro- 
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Ad#8 
out our new items. 



SOFTWARE 



PS —We want to be your software source Give us the opportunity to beat ANY price! 



CP/M WITH 

OSBORNE' manual 



General Ledger* 
Acct Rec/Acct Pay# 
Payroll w/Cost* 
Buy 2 get 1 free 
All 3&CBASIC-2 



MANUAL 
ONlY 
$ 59/S20 
$ 59/S20 
$ 59/S20 
$11B/$57 
$199 $71 



CP.'M users specify disk systems and formats Most formats available 



COMPUTER PATHWAYS 

Pearl (level 1 1* S 99/ $25 

Pearl (level 2)» $299, $25 

Pearl (level 3)« $549'$25 



DIGITAL RESEARCH ' 
CP.'M* 2 2 Northstar $149.$25 
CP/M 1 2 2Cromemco $189 $25 
CP/M* [other versions' Call 

PL/l-80 $469 '$35 

Mac $ 85 $15 

Sid $ 65 $15 

Z-Sid $ 95 $15 

Tex $ 70/ $15 

DeSpool . $ 45/ na 

MICROSOFT 

Basic -80 $294/ $30 

Basic Compiler $334/$30 

Fortran-80 $384/$30 

Cobol-80 $574/$30 

Macro-80 $144/ $20 

Edit-80 $ 84, $20 

MuSimp/MuMath $224 $25 

MuLisp-79 5-74 S2C 

MICRO DATA BASE SYSTEMS 

HDBS $250/$40 

MDBS $750/$40 

Other Call 



Holiday Special: 

Total Information 

Management 

(T.I.M.) 

Fantastic — Easy to 

useDBMSt c $299 



S.O.F.T.W.A.R.E. 

MicroTax't 
Federal individual 
Federal corporate 
State individual 
Business Plus't 
General Ledge 
Acct Receivable 
Acct Payable 
Payroll 
All 4 



MICROPRO 

WordStar $324/$40 

WordStar/Mail-Merge $464/$65 

DataStar $279/$35 

Word-Master s 119 '$25 

SuperSort I $199/$25 

SuperSort II $169.'$25 

SuperSorl III $119/$25 

PEACHTREE - * 

General ledgerj $449/ $40 

Acct Receivable? $449/$40 

Acct Payable! $449/$40 

Payroll! $449 $40 

Inventory! $449/$40 

Property Mgt! $899'$40 

C PA Client Write-up! $899/$40 

Mailing Address! $349/$40 

STRUCTURED SYSTEMS 



EIDOS SYSTEMS 

Kiss 
K-Basic 

OTHER GOODIES 

Tiny C 
CBASlC-2 

Pascal Z 
Pascal UCSD 
Pascal. MT* 
Pascal- M 
Nevada Cobol 
FMS-80 

dBASE II DBMS 
Condor DBMS 
Vulcan DBMS 
Tl M DBMS! 
CBS 
Whatsit' 
Vsort I 
String 80 
MatchMaker 
Postmaster 
Spell Binder 
Magic Wand 
TextWriter III 
Electric Pencil II 
CPAids 



$299 $25 
$529.'$50 

$ 89 $50 
$ 89 $15 

$369/ $30 
$299 $30 
$224 $30 
$149/$20 
$ 89/$25 
$649/$45 
$629/$35 
$599/$30 
$469/$30 
$329'$35 
$279/»45 
$149/$25 
$159. $25 
$ 84 $20 
$ 79'$10 
$149/$20 
$349 $45 
$299/$45 
$111 '$20 
less 15% 
less 12% 



$749/$50 
$249/$25 
$249/$25 



79 $25 
79/$25 
79/$25 
79$25 



$269'$99 



SUPERSOFT 

Forth (8080 or ZBOi $129/$25 

Diagnostic I. $ 49/$20 

Other disk software less 10% 

SOFTWARE WORKS 

Adapt $ 69' na 

Ratfor $ 86 na 



MICRO-AP 

Selector ni-C2« 
Selector iv« 
S- Basic 

• - So*o» Bor>_% 



$269/$20 
$469/$35 
$249'$25 



General Ledger* 

Acct Receivable* 

Acct Payable* 

Payroll* 

Inventory Control* 

Analyst* 

Lettenght* 

NAD« 

QSORT 

GRAHAM-DORIAN' 

General Ledger* 
Acct Receivable* 
Acct Payable* 
Job Costing* 
Payroll* 
Inventory* 
Cash Register* 
Apartment Mgt* 

WHITESMITHS 

C Compiler* 
Pascal •incl C )* 



$747'$40 
$747/$40 
$747'$40 
$74 7. $40 
$447/$40 
$197'$20 
$167, $20 
$ 87 $20 
$ 87 '$20 



$693/$40 
$693/$40 
$693/$ 40 
$693/$40 
$493/$40 
$493 $40 
$493/$40 
$493/$40 



$600 $30 
$750'$45 



FANTASTIC ROYALTY 

PAID FOR QUALITY 

TRS-80 MODEL II 

SOFTWARE 

TRSDOS OR CP/M 

WRITE OR CALL 



TTtS-eO MOOKL II 

CP'M 2 2'P»T] $159 $35 

Electric Pencil II less 15% 

i.-m CBAS'C 1 % U>g« Tr.oem.1i 



ORDERS ONLY-CALL TOLL FREE VISA- MASTERCHARGE 

1-800-854-2003 ext. 823 • Calif. 1-800-522-1500 ext 823 

Overseas — add $10 plus additional postage • Add $2 50 postage and handling per each item • California 
residents add 6% sales tax • Allow 2 weeks on checks. COD ok • Prices subject to change without notice 
All items subject to availability 



THE DISCOUNT SOFTWARE GROUP 

1610 Argyle Ave . Bldg 102 • Los Angeles. CA 90028 • 



2131666-7677 



YOU 



have the power to end 





NATIONAL HUNTINGTON'S DISEASE ASSOCIATION 
Suite 501. 1441 Broadway. New York. NY 10018 
212-966-4320 



TRIBl/TEO ■» *M« •uftUSMEB 



gram produced the correct regression coef- 
ficients, but then went on to generate an er- 
roneous analysis of variance table and oth- 
er summary statistics. For example, the cal- 
culated F statistic was reported as -32.41 
(it is actually 1594.62), the R 2 was reported 
as 1.33 (it is actually 0.995), and the t-values 
were also incorrect. 

While Radio Shack's Multiple Linear Re- 
gression program performs well (it never 
missed a beat with any data I fed it— includ- 
ing Dr. Chereb's infamous set), and while it 
produces an acceptable set of summary 
statistics, it doesn't have some of the fea- 
tures that one might like. For example, it on- 
ly handles up to five independent variables. 

Also lacking in the program's summary 
statistics are t values or standard errors for 
the regression coefficients, a standard er- 
ror of the equation, and an R 2 adjusted for 
degrees of freedom. None of these are diffi- 
cult to include, and they are indispensable 
for hypothesis testing. 

While the Radio Shack and Creative Com- 
puting packages contain programs for 
Analysis of Variance, Radio Shack's pro- 
gram is considerably more limited, to a one- 
way analysis from two to five groups or 
samples. Radio Shack also includes an ad- 
dendum page, explaining which two lines of 
the program are to be changed. The error is 
non-fatal as it occurs in the program seg- 
ment that controls the printing of the test 
statistics to the screen or the printer. The 
addendum is a nice touch, however, and 
shows some concern for testing of the pro- 
grams. 

Two-Way Analysis 

The Creative Computing program will run 
one and two-way analyses of variance, up 
to 10 or 11 groups, one-way, (up to 100 or 121 
groups' two-ways). 

Creative's one-way ANOVA performs 
faultlessly and its output is perhaps better 
because the program generates sample 
means and standard deviations for each 
group and the sample as a whole. The two- 
way ANOVA is another story. After it gener- 
ates the mean and standard deviations, the 
error message: /0 ERROR IN 2830 appears. 
Line 2830 reads: 

2830 Y = 2/(9 # B). X = 2/(9'A) 

Somehow, somewhere, A or B are either be- 
ing set to zero or have not been set after ini- 
tialization, causing the program to bomb. 
As with both of the multiple regression pro- 
grams, you could (if you have access to a 
printer) get a printout of the program and at- 
tempt to debug it. 

This, of course, is the point. The pro- 
grams are sold (and advertised) as com- 
plete, ready-to-run software. They are not.H 
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MODEL II 




DISCOUNT 

TRS-80®. 



MODEL 



k301 



26-4002 

64K 1 Drive 

$3466.00 

MODEL III 



1 

1 




9M 






I'*""' 




'-saT: ?Jsi 


maamm 






lr ■ 


26-1 
26-1 
26-1 
2-Dr 


^^ 




361 4K 1. . 


$630.00 


362 16K III 

363 32K III 
ves. RS232. . 


900.00 

2246.00 



COMPUTER SPECIALISTS 

26-1051 4K Level I System '424 00 

26-1054 4K Level II System 552 00 

26-1 145 RS 232 Board 84.00 

26-1 140 O K Interface 249.00 

26-1141 16 K Interface 359.00 

26 1 142 32 K Interface 469 00 

261 160 Mini Disk • Drive 419.00 

26-1 161 Mini Disk - Additional 419.00 

26 1154 Linepnnter II 699.00 

26-1 156 Linepnnter III 1799.00 

26 1159 Linepnnter IV 859 00 

26-1104 Factory Upper Lower 

Cose Modification Installed 70.00 

26-1506 Scripsit Tape 60.00 

26-1563 Scnpsit Disk 79.00 

26 1 566 Visicalc 83.00 

26- 1 562 Profile 72.00 







uumwau-i T!? 



26-1056 

16K Level II 

System 

$670.00 

COLOR 




NOTE: Call for availability of VIDEO TEX. Mod« 
and other new products. 



Color. 



^ttWAW-** 




ALL OTHER R.S. SOFTWARE 

FURNITURE, STANDS, CABLES 

AND ACCESSORIES DEDUCT 

10% FROM CATALOG PRICE 



26 3001 4K $360.00 

26 3002 16K 540 00 

26-3010 Color Video 360.00 

26 1206 Recorder 54.00 

26-3008 Joysticks 22.50 



CEflTROIllC5 

Fast 100 CPS Centronics 

730 Printer $659.00 

Text Quality Centronics 

737 Printer $819.00 



Novation Cat Modem. $149.00 
CCA Data Management 

System 72.00 

Adventure Games 

Games 1-9 each 14.00 



G 



Acorn 

Software 
Products, Inc. 



Pocket Computer 



Model II Cobol Compiler 

$360.00 
Cobol Run Time Package 

$36.00 



I 



S'iTmpuT ' ».C<**« 8*S 



HOI 



SO—' QOQCa8 DDDO ° 
□DOooooop a a o o o 

Ca^jrrjaOJCDHCSCHD J5 aaoo 



26-3501 I.9KP.C $225.00 

26-3503 Cassette IF 45.00 

14-812 Recorder 72.00 



GAMES: 

Alien Invasion $9.00 

Stock Morket 9.00 

Stor Trek 9.00 

Block Em 9.00 

Ting-Tong 9.00 

UTILITIES: 

System Savers 14.00 

EDUCATION: 

Language Teacher 1 8.00 

FREE: COMPUTER CATALOG 
UPON REQUEST 



1-800-841-0860 Toll Free Order Entry 

MICRO MANAGEMENT SYSTEMS, INC. 



No Taxes on Out Of 
State Shipments 



Immediate Shipment 
From Stock on Most Items 



DOWNTOWN PLAZA SHOPPING CENTER 

115CSECONDAVE.S.W. 

CAIRO, GEORGIA31728 

(912) 377-7120 Go. Phono No. 



TtS-M li ■ r«gittar«4 trademark of tha Tandy Cera. 



R.S. 90 Day Limited Warranty 
F-48 Form Provided 

Largest Inventory 
In the S.E. U.S.A. 



^Reader Service— see page 274 



80 Microcomputing, December 1980 • 105 



r 



/^HPROGRAM store 




By Leo Christopherson from Acorn 
Your 'droid has already learned NIM, so now 
it's time to teach it how to wield a laser sword! 
Leo Christopherson. author of "Android 
NIM," "Dancing Demon" and other animations, 
has developed a new type of animation and 
high-quality sound in his latest work. 

Your 'droid starts out as a lowly clown. You 
teach it how to use a laser sword by control- 
ling its movements. After training it to be a 
"Crand Master," you enter the tournament 
against the program's skilled 'droid! Enter- 
tainment for all ages. 

Protected Tape ...$14.95 
Protected Disk. . .$20. 95 



DEATH 
MAZE 

5000 

from Med Systems 

A new breed of adventuring! Venture 
through a graphically represented 3-D maze, 
with halls that could dead end — or recede to 
infinity. Step through the doors or drop into 
the pits. Will you encounter monsters and 
mayhem, or will you be treated to useful ob- 
jects and information? Will you ever get out 
alive? 




You may never find your way out 
Deathmaze 5000, but you'll keep trying! 

16K TRS-80, 32K APPLE II... $12. 95 

<T -.■- 



Of 




> the CHIEF 



By P. Brasher 6 R. Vance from Sensational 
Software 

How would you run a political campaign for 
the highest office in the land? Would you be 
elected? Find out with this campaign strategy 
simulation developed by political scientists. 
Choose (and perhaps change) your positions 
on major issues as you conduct your cam- 
paign, all the while keeping an eye on the 
weekly polls. 

TRS-80 32K Cassette. 48K Disk 

Apple II e Apple II* 48K Disk 

Atari 400 32K Cassette, Atari 800 40K Disk 

$24.95 



TRS-80 Level II 16K 

unless otherwise 
noted 




By John Allen from Acorn 

New machine language action game, with 

sound, from the author of the acclaimed 

-PINBALL"! 

You have to be fast to keep up with the action 
as you try to outscore your opponent in five 
minutes of one-on-one basketball. Compete 
against a friend or your computer. 

Steal the ball, duck around your opponent 
and slant toward the basket for a lay up! The 
graphics are based on a 3-dimensional depic- 
tion of a basketball court, and ball dribbling 
sounds add to the realism. It's all there but 
the cheers -- so real you'll wonder how the 
ball keeps from coming through the screen of 
your TRS-80! Dribble, Dribble! 

Protected Tape. . .$14.95 
Protected Disk. . .$20. 95 



GALACTIC TRILOGY 

By Douglas Carlston 

Take control of the Calactica as you navigate 
through an uncharted 3-dimensional uni- 
verse. In "Galactic Empire," you attempt to 
unify a universe that is randomly created 
each time you play. 

"Galactic Trader" pits your bartering skills 
against those of the other inhabitants as you 
try to accumulate riches and power. But 
watch out for the assassins and the energy 
cartel -- they're out to getcha! 

Diplomacy and deviousness play equal parts in 
"Galactic Revolution." It's a game that com- 
bines tactics, social manipulation and Machia- 
vellian ruthlessness. For more intrigue, this 
game allows more than bne player. Sound ef- 
fects. 

Choose any game at $14.95 for TRS-80 16K on 
tape, $24.95 for Apple II 48K Disk. 

To control the entire universe, get all three! 



JET FIGHTER PILOT 

from Instant Software 

Launch one of several realistic jet fighters 
from an airport, or catapult from the deck of 
an aircraft carrier. Incredibly realistic simu- 
lation, right down to maintenance problems. 

You will not only learn about the dynamics of 
flight, you'll discover the complex operation 
of modern military jet aircraft as you sit back 
and try to keep up with the constantly 
changing instrument panel display. Challeng- 
ing and informative. 

Cassette... $14. 95 



EDAS 
Editor/Assembler 



By Roy Soltoff from MISOSYS 
With EDAS, you are no longer tied to memory 
limitations while writing in assembly language. 
Now you can assemble directly from text 
stored on disk. Branching lets you test your 
program, then return directly to EDAS. Great 
for editing and debugging. 

Other features include: global editing, 
upper /lower case support, block moves, plus 
availability of DOS commands within EDAS. 
It's the Editor /Assembler designed with the 
programmer in mind! 



Disk... $79. 00 




Messerschmidts 

"It is the summer of 1941 and the Blitzkreig is 
smashing into the heart of Russia. . . " 

This is how your instructions begin when you 
become the fighter squadron leader in "Migs 6 
Messerschmitts", one of four exciting new 
Discovery Air Combat Simulations. 

These World War II re-enactments are histori- 
cally accurate -- they challenge you to learn 
the tactics used by the actual combatants! 
Written in machine language for fast re- 
sponse. 

MIGs and Messerschmidts 
RAF : The Battle of Britain 
Jagdstaffel 
Winged Samurai 

For TRS-80, Apple II, PET — 16K...$19.95 

ACCEL & ACCEL II 

From Allen Gelder Software 
Imported from England, a compiler for TRS-80 
Level II Basic (ACCEL) and Disk Basic 
(ACCEL II). ACCEL lets you compile the inte- 
ger portion of your Basic programs to fast, 
efficient Z-80 machine code. ACCEL II com- 
piles floating-point arithmetic as well, and 
supports Disk Basic. 

Both allow a significant improvement in 
run-time — up to 3000% faster in some cases 
-- and improved program security! 

ACCEL $44.95 

ACCEL II.... $89. 95 



Visit Our New Store: W. Bell Plaza -6600 Security Blvd -Baltimore, MD 



TO ORDER CALL TOLL FREE 800 424-2738 



For information 
Call (202) 337-4691 



THE PROGRAM STORE 

4200 Wisconsin Avenue NW, Dept. K6 Box 9609 
Washington, D.C. 20016 



MAIL ORDERS: Send check or M.O. for total purchase 
price, plus $1.00 postage & handling. D.C. residents, add 
5% tax. Charge card customers: include all embossed 
information on card. 
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Get the most from your micro with 
software and accessories from one of 
the world's largest selections. 



The 



9 Tore 



CALL TOLL FREE 

800424-2738 



POKER PETE 

By David Cubser from Quality 
Practice up for your weekend poker game 
against animated Pete. He shuffles and deals, 
then plays five card draw against you. Pete 
will bluff, raise call or fold. But watch out — 
Pete's got a gun! 

New version with keyboard or optional light 

pen input $11. 95 

(Light Pen $19.95) 



TEMPLE 




From Automated Simulations 
The first of the DunjonQuest series, and still 
one of the most popular. In exploring over 
200 rooms in the magical labyrinth, you will 
encounter more than 30 kinds of fearsome 
monsters guarding over 70 treasures. Some of 
the treasures will help you in your quest, but 
you must still watch out for the many mon- 
sters and traps that spring out from the walls 
and shadows. 

The "Book of Lore" fills in the background 
and describes the appearance of the temple as 
you go. Test your mettle against the servants 
of evil and the infamous Innkeeper as you 
play this real-time fantasy simulation. A real 
challenge, even for serious gamers. 

$20.95 (includes Book of Lore) 



PACKER 



From Cottage Software 

The ultimate editing tool for BASIC program 
lines. There are five commands which allow 
easier reading of the program and more effi- 
cient execution by the computer. 

Specify "PACK" and the program will com- 
press text into multiple statement lines up to 
the maximum length you specify. This really 
speeds up storage, load, and execution time. 
It can reduce the memory requirement by as 
much as 33% while saving disk or tape space, 
too. 

The "UNPACK" command breaks multiple 
statement lines into single statements with full 
spacing for easy reading and editing. 

"SHORT" deletes any unnecessary words 
(e.g. LET, etc.), and removes all REMarks. 

Also included are two handy utilities: "MOVE" 
lets you relocate program lines within your 
program, and "RENUMB" allows program 
renumbering. 

Save time, memory and storage space - order 
PACKER today! Versions for 16K, 32K and 
4BK supplied on two cassettes. 



$29.95 



^17 



SBT 



Structured 
BASIC Translator 



By Cene Bellinger from Acorn 
Speed up program development and docu 
mentation with structured programming. You 
can write your programs using: 
CALLS, PROCEDURES . CASECALLS, 

IF-THEN ELSE, WHILE and UNTIL. Once 
written, SBT will quickly translate the 
structured code into an efficient BASIC 
program. The program is fast (a 20K BASIC 
program in less than i» minutes) and compact. 
Once you try structured programming, you 
may never go back to BASIC. 

32K TRS 80, Single Disk... $29. 95 



ATERM 



By Tom Stibolt from Acorn 

The complete ASCII terminal program, with 
features you want and need: true full 
-duplex, compatible with Radio Shack's 
RS 232 and Lynx, supports all 128 ASCII 
characters including lowercase (if keyboard 
has been modified for it) . and BELL sound on 
AUX line from the computer. 

You can set baud rate (on RS-232), parity, 
word length and stop bits from the keyboard, 
even while receiving. Lineprinter output is 
buffered in memory to allow the use of slow 
printers to be used without nulls. ATERM is 
completely compatible with Radio Shack's 
Communications Packaoe. 



Tape. 



$19.95 




SUPER 
NOVA 



By Bill Hague from Big Five 

Asteroids surround your ship. You must shoot 

the asteroids, as well as any alien spaceships. 

Written in fast machine code, this game is 

GREAT! 

You may encounter five different kinds of 
alien ships, including the very deadly flag- 
ship. You shoot from your ship's position, 
rotate it, use your thrusters to move — if you 
are overwhelmed, you can even get away to 
hyperspace. Fast and exciting. 



Tape. 



.$14.95 



SPACE WAR 

By Device Oriented Games from Acorn 
A two-player, real-time action game that lets 
each player control a spaceship with rotate, 
thrust, fire, and hyperspace. Five game 
options (including gravity) and three playing 
speeds. In fast machine language. 

Tape. ..$9.95 



DISKSMOD 

By Roy Soltoff from Misosys 

This machine language prooram modifies your 
copy of Radio Snack's EDITOR ASSEMBLER 
for use on your disk operating system. You 
can load and save both text and assembled 
object code to disk. And unlike the NEWDOS+ 
version, you can read the disk directory, kill 
files, and determine both space used and 
available without exiting EDTASM. 

Other capabilities include: Block moves for 
relocating sections of text. Global change, 
which permits changing a label, for example, 
throughout the text. Pagination lets you list 
your program neatly on 8-1 2X11 pages. In 
addition, high memory can be reserved to 
allow for machine language routines such as 
printer drivers. 

DISK 'MOD allows lowercase input, branching 
to any address, and a functional [CLEAR) 
key. It causes the symbol table to be 
alpha-sorted and to be output 5 across, and 
improves the format of "DEFM". Get all these 
features and more, plus corrections to errors 
in the Radio Shack program upgrade your 
EDITOR /ASSEMBLER with DISK 'MOD today. 

Tape $19.95 



DDT Disk Drive Timer 



ERAPHIC DISPlAf OF 
MIVC K.: 

EACH nuit KPKSH1S 
•SLOM) iCOWtd: 

295. 00 2°6. U 298,53 300 



I ! C » 

»H> BMtf: 



IFKT> 
303.00 



Ml. 67 30J.33 
.1 1 1 1....I....I....I....I I. 



from Disco- Tech 

Analyze and adjust your disk drive motor 
speed with a real-time graphic display. Ma- 
nual details use for Radio Shack. Shugart, 
MPI, Pertec and Vista drives, and DDT can be 
used with any drive. All you need is DDT, 
two screwdrivers and five minutes. 

Disk $19.95 



SARGONII 

By Dan 6 Kathe Spraklen from Hayden 
Acclaimed the best of the microcomputer chess 
playing programs. SARGON II came in third 
in the 9th North American Computer Chess 
Championship, playing against much bigger 
machines! You haven't really played chess 
against your computer until you try SARGON 
II. 

Tape. . .$29. 95 Disk. . .$34. 95 

PROGRAMS UNLIMITED. . . 

...if you don't see the proarar vou'd 
like, give us a call — »e probably have it! 

NEWD0S+* 99 . 95 VT0S* 99 .95 

NEWDOS/80* 149.95 RADEX 10* 99.95 

Level III BASIC. 49. 95 CCA Data Mgr* 75.95 

MMS FORTH /Man*. 79.95 SYSTEM SAVERS 14.95 

KeyEdit 18.95 Tiny PASCAL* 50.00 

Acorn w/ Sound (eacn): Tape 14.95 Disk 20.95 

Pinball Pigskin StarTrek Ting-Tong 

Invaders From Space Alien Invasion 

Language Teacher (Fr, Span, Ital.)* 19.95 ea. 

OSBORNE & ASSOC. Business Systems*: 25.00 ea. 

General Ledger Accounts Payable 

Accounts Receivable Payrol I w/o cost acct. 

» Disk 



THE PROORAM STORE • Dept K6 Box 9606 » 4200 Wisconsin Ave. NW • Washington. D.C. 20016 

j Item Price Postage *1 -00 name 

j To+al addr 

I □ CHECK 



□ VISA city 
□ MASTERCARD MCBank#_ 



state zip 



Card* 



Exp 



^ Reader Service — see page 274 
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PROGRAMMING TOOLS FOR YOUR 

TRS-80 



INSIDE LEVEL II 

The Programmers Guide to the TRS-80 ROMS 
INSIDE LEVEL II is a comprehensive reference guide to the Level 
II ROMs which allows the machine language or Basic programmer 
to easily utilize the sophisticated routines they contain. Concisely 
explains set-ups, calling sequences, and variable passage for 
number conversion, arithmetic operations, and mathematical func- 
tions, as well as keyboard, tape, and video routines. Part II pre- 
sents an entirely new composite program structure which loads 
under the SYSTEM command and executes in both Basic and 
machine code with the speed and efficiency of a compiler. In 
addition, the 18 chapters include a large body of other information 
useful to the programmer including tape formats. RAM useage, 
relocation of Basic programs. USR call expansion, creating SYS- 
TEM tapes of your own programs, interfacing of Basic variables 
directly with machine code, a method of greatly increasing the 
speed at which data elements are stored on tape, and special 
precautions for disk systems. INSIDE LEVEL II is a clearly or- 
ganized reference manual. It is fully typeset and packed with 
nothing but useful information. It does not contain questions and 
answers, ROM dumps, or cartoons INSIDE LEVEL II 15.95 

TELECOMMUNICATIONS PROGRAM 

This program allows reliable high speed file transfers between two 
disk-based computers over modems or direct wire. It is menu 
driven and extremely simple to use. Functions include real-time 
terminal mode, save RAM buffer on disk, transmit disk file, receive 
binary files, examine and modify UART parameters, program 8 
custom log-on messages, automatic 16-bit checksum verification 
of accurate transmission and reception, and many more user 
conveniences. Supports line printers and lowercase characters. 
With this program you will no longer need to convert machine 
language programs to ASCII for transmission, and you will know 
immediately if the transmission was accurate. TELCOM $29.95 

PROGRAM INDEX FOR DISK BASIC 

Assemble an alphabetized index of your entire program library 
from disk directories. Program names and free space are read 
automatically (need not be typed in) and may be alphabetized with 
a fast Shell Metzner sort by disk or program. The list may also be 
searched for any disk, program, or extension; disks or programs 
added or deleted; and the whole list or any part sent to the printer. 
Finally, the list itself may be stored on disk for future access and 
update. The best thing since sliced bread" (January issue of '80 
Microcomputing). One drive and 32K required. INDEX $19.95 

SINGLE STEP THROUGH RAM OR ROM 

STEP80 allows you to step through any Basic or machine lan- 
guage program one instruction at a time, and see the address, 
hexadecimal value, Zilog mnemonic, register contents, and step 
count for each instruction. The top 14 lines of the video screen are 
left unaltered so that the "target program" may perform its display 
functions unobstructed. STEP80 will follow program flow right into 
the ROMs, and is an invaluable aid in learning how the ROM 
routines function. Commands include step (trace), disassemble, 
run in step mode at variable step rate, display or alter memory or 
CPU registers, jump to memory location, execute a CALL, set 
breakpoints in RAM or ROM, and relocate to any page in RAM. The 
display may also be routed to your line printer through the device 
control block so custom print drivers are automatically supported. 
STEP80 $16.95 



4 SPEED OPTIONS FOR YOUR TRS-80! 

The SK-2 is the most versatile clock modification available for the 
TRS-80. Speeds may be switched between normal, an increase of 
50%. or a 50% reduction; selectable at any time without interrupt- 
ing execution or crashing the program. Instructions are also given 
for a 100% increase to 3.54 MHz, though the TRS-80 is not reliable 
at this speed. The SK-2 may be configured by the user to change 
speed with a toggle switch or on software command. It will au- 
tomatically return to normal speed any time a disk is active, re- 
quires no change to the operating system, and has provisions for 
adding an LED to indicate when the computer is not at normal 
speed. It mounts inside the keyboard unit with only 4 necessary 
connections for the switch option (switch not included), and is 
easily removed if the computer ever needs service. The SK-2 
comes fully assembled with socketed IC's and illustrated instruc- 
tions. SK-2 $24.95 

RAM SPOOLER AND PRINT FORMATTER 

This program is a full feature print formatting package featunng 
user defineable line and page length (with line feeds inserted 
between words or after punctuation), screen dump, and printer 
pause control. The serial version allows baud rate selection from 
the keyboard. In addition, printing is done from a 4K expandable 
buffer area so that the LPRINT or LLIST command returns control 
to the user while printing is being done. Ideal for Selectric or other 
slow printers. Allows printing and processing to run concurrently. 
Please specify PARALLEL or SERIAL (RS-232 interface) version 
SPOOLER $16.95 

DUPLICATE SYSTEM TAPES WITH CLONE 

Make duplicate copies of ANY tape written for Level II. They may 
be SYSTEM tapes (continuous or not) or data lists. The file name, 
load address, entry point, and every byte (in ASCII format) are 
displayed on the video screen. CLONE $16.95 

MACHINE CODE FAST FOURIER TRANSFORM 

This complete package includes 3 versions of the machine lan- 
guage FFTASM routine assembled for 16. 32. and 48K machines, 
a short sample Basic program to access them, a 10K Basic pro- 
gram which includes sophisticated interactive graphing and data 
manipulation, and a manual of instructions and examples. The 
machine language subroutines use variables defined by a support- 
ing Basic program to make data entry and retrieval extremely fast 
and easy for custom implementation. They perform 20 to 40 times 
faster than their Basic equivalent (256 points in 12.5 seconds), and 
require less than 1550 bytes of memory. FFTASM 49.95 



FOR THE MODEL II 



LYNC 



from Midnight Software 

High level data communication for the Model II with CP/M. LYNC 
will send and receive any file with automatic error checking and 
retries. Either end may initiate file transfers, and multiple files may 
be sent with wildcard filenames. Remote or local directories may 
be called from within the program. Allows full protocol, non- 
protocol, and real-time conversation modes. May be used over 
phone lines at 300 baud or direct to another computer at up to 9600 
baud. Also available for other CP/M computers. LYNC $95.00 



MUMFORD 

MICRO 

SYSTEMS 



ORDERING: Complete satisfaction is guaranteed or a full refund will fie made All Model I 
programs are shipped on cassette unless S5 is included for a formatted mo system) disk 
Inciude Si postage and handling California residents add 6°o sales tax Visa Master- 
charge and COD orders accepted 

Box 435-E Summerland, California 93067 (805) 969-4557 
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APPLICATION 



A successful business application from beautiful, downtown Burbank. 

The Office Computer 



Gary Valle 

7219 Loma Verde 

Canoga Park, CA 91303 



Yes sir, I can check that order for you. 
Would you please give me your pur- 
chase order number? 

The secretary turns to the computer con- 
sole and enters the number. A moment 
passes, and the CRT displays the order. 

"Sir, that was shipped 3/05/80 . . . Yes, 
103 of Preflight Procedures, 105 of Air- 
worthiness Testing and 50 of Stability- 
Part I." 

Is this the efficient customer service de- 
partment of a Fortune 500 business? Not 
quite, or, at least, not yet. 

Film Systems, Inc. is a growing company 
that specializes in the production and dupli- 
cation of slides and filmstrips for educa- 
tional institutions, business and industry. 
FSI uses a microcomputer as a tool to con- 
trol its own success and its expanding cli- 
entele. 

Information Processing 

Large or small, all businesses have at 
least one characteristic in common — they 
process information. Whether it's an in- 
quiry, an order, market research, or the 
weekly payroll, any business devotes a con- 
siderable portion of its time and money to 
processing words and numbers. 

If sales are to be increased, more orders 
are to be received, purchases made, journal 
entries posted, invoices mailed and corres- 
pondence written additional information 
processing is a necessity. Why does the 
burgeoning small business so often over- 
look this requirement? The business may 
employ many factory workers, a production 



manager, a designer, two or three sales 
people, and be considering hiring others, 
and yet its office is already understaffed 
and overworked. 

Often the office is still a one person 
show. That one individual opens the mail, 
processes orders, types correspondence 
and invoices, answers the phone, receives 
customers, figures the payroll and taxes, 
does the bookkeeping, sends out state- 
ments, checks on overdue supplies, makes 
up the bank deposits, keeps the company 
checkbook up-to-date and more. As a busi- 
ness grows, these responsibilities can easi- 



ly overpower even the most productive indi- 
vidual. If the company's ability to process 
information is not improved, inquiries may 
go unanswered, bookkeeping may fall be- 
hind, orders may not be shipped when 
promised and inventory may not be properly 
maintained. 

Early on FSI management recognized 
that a well-organized and productive office 
is essential to its success and continued 
growth. On the left of the secretary's desk 
at FSI is a typewriter— on the right is a 48K 
TRS-80 with a tractor feed line printer and 
dual disk drives. 




FILM SYSTEMS INC. invoice 

1633 Nortn Mor, a Street • Bu'-Oank CMforma 915CM 3348 
Telephone 213/8-11 3370 



SUNBIRD GLIDERS 

12901 GLADSTONE »A4 

SYLMAR Cft 91342 



[ 



SUNBIRD COSTA MESH 

1760 MONROVIA »66 

COSTA MESA Cm 92627 





3/05/*8* 






TERM 


3. NET 


00 
00 
00 




> 


2295 9861 












iee 

l 

3 

3 

ieee 

100 


FRS 

Em 
FRS 

MRS 

FT 

PRT 


MAS NEQ FROM SLIOES-STABILITV PART I 

CR I /FIRST -THERMAL SOAR 

PICK UP .-•SLIDE MASTER NEG-TMERMAL SOAR 

TAXABLE TOTAL 
LESS 3 PERCENT DISCOUNT 
DISCOUNTED TAXABLE TOTAL 
&>. CALIF SALES TAX 

TECH LABOR-STABILITY PART I 
RELEASE PR I NT -RIDGE SOARING 
CUT/CAN-R I DGE SOARING 

NON-TAXABLE TOTAL 
LESS 5 PERCENT DISCOUNT 
DISCOUNTED NON-TAXABLE TOTAL 
SHIPPING 

INVOICE TOTAL 


4 ae 

40 80 

4 00 

25 00 
175 

08 


4WU 
40 
12 


452 
22 

429 
25. 

75 

175 

8 


00 
60 

40 

7ti 

00 
00 
00 


V 




258 

12 

245 

2. 

• 7&£ 


00 
90 
10 

46 
72 

J 



Fig. 1. Invoice Generated on TRS-80. 
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P/70/o 7. Oder Displayed on CRT for Servicing Customer Inquiries. 



Photo 2. Bar Graph Displaying Sales by month. 



Unfortunately the word "computer" still 
brings to mind an omnipotent machine of 
unmanageable size and tempermental na- 
ture, consuming punched cards and spew- 
ing forth great volumes of paper or magnet- 
ic tape. It would be more accurate to think 
of a microcomputer as a wrench or hand 
drill! The computer is a tool. It is simply a 
machine that can process, store and re- 
trieve information quickly and repetitively. 

Invoices 

The first FSI bottleneck was invoice writ- 
ing. The office was spending hours and 
hours writing invoices. Three factors con- 
tribute to this manual inefficiency: 

• Much of the information used in pro- 
cessing invoices day-to-day is repetitive. 

• Lists must be searched for service or 
parts names and prices. 



• Extensions, totals, discounts and 
taxes must be calculated. 

A microcomputer is well suited to these 
tasks. Customer names, billing addresses, 
shipping addresses, service and product ti- 
tles, part numbers and prices and other in- 
formation can be stored on disk files. This 
information can be accessed and typed 
very quickly. For example, consider the op- 
erator input necessary to write the invoice 
shown in Fig. 1. 

Responding to prompts, the operator en- 
ters the data, customer number, ship-to op- 
tion, customer reference number and job 
number: 



DATE? 3/05/80 (entered only at beginning ol session) 

CUSTOMER NUMBER?: 44 
SHIP-TO OPTION?. 2 
FSI JOB NUMBER'' 2295 



CUSTOMER REFERENCE 1 : 9861 

After printing the invoice headings the next 
prompt is: 



TITLE?: STABILITY PARTI 
SERVICE CODE? 1 
OUANTITY? 100 



(optional film title) 



Referring to a menu of services on the 
video display the operator enters a code 
and the quantity to be invoiced. The invoice 
writer does in minutes what used to take 
hours. 

Another log jam in the FSI information 
flow was order processing. A large percent- 
age of FSI orders are for f ilmstrips. The film- 
strip is made from a previously processed 
master negative. These negatives are cata- 
loged by title and are assigned a production 




Photo 3. Display Monitoring Level of Activity of Key Invoice Items. 
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Photo 4. 



number as well as other data used in mak- 
ing the filmstrip. 

In pre-computer days when an order was 
received, the titles specified would be 
looked up in the negative catalog for the ap- 
propriate production numbers, a release 
order listing the quantity, production num- 
ber and title. This and other pertinent infor- 
mation would be typed in duplicate and a 
"shipper" in triplicate. After the order was 
shipped an invoice would be typed in tripli- 
cate. 

Most of the information contained in the 
order, shipper, and invoice is the same; why 
type it three times? Now the negative cata- 
log is stored on disk and up to 3000 titles 
can be searched by a machine language 
program in well under a second. With only a 
minimum of input from the secretary, the re- 
lease orders and shippers are typed on the 
line printer. 

A disk file of current orders is maintained 
and by specifying either the customer's pur- 
chase order number or the in-house job 
number an order can be displayed on the 
CRT (Photo 1). A hard copy option will print 
the order if desired. After the current order 
file has been updated with shipping infor- 
mation, the invoice writer previously de- 
scribed uses the same information in the 
file to write an invoice. The secretary need 
only specify the order number. 
More Useful Results 

After the major bottlenecks have been 
eliminated you are likely to discover that 
your data files and programs bear much 
fruit. After the initial planting, cultivation 
and growth, a great deal of information may 
be harvested with little additional effort. 

Relatively simple modifications to exist- 
ing software may generate useful results. 
With a simple addition to the invoice writer, 
cumulative monthly sales totals may be 
added to the customer information file. In 
turn this information can generate a bar 
graph that displays sales by month for any 
specified customer (Photo 2). 

Another straightforward addition allows 
you to monitor the activity of certain key in- 
voice items for a specified customer or for 
all customers (Photo 3). In many businesses 
the function of an order/invoice writer can 
be extended to support accounts receivable 
and sales journal processing. 

With the addition of a purchases journal, 
the system can audit inventory depletion, 
prompt purchases when order points are 
surpassed, and also process accounts pay- 
able data. 

The typewriter and the adding machine 
have for decades been the principal infor- 
mation processing tools of the small busi- 
ness. As certain as the calculator has re- 
placed the slide rule, these traditional busi- 
ness machines have become outdated. I 
imagine there are a few stubborn individu- 
als who will insist on using a slide rule in- 
stead of a calculator. No doubt similar indi- 
viduals will continue to plug away on adding 
machines and standard typewriters, but for 
the great majority of us the course is clear. 
Make way for the office microcomputer! ■ 
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IF YOU LOVE THE LIMITLESS WORLDS OF IMAGINATION, 
YOU'LL GO CRAZY FOR OUR 

COTIPUTER GHTIB 

HERE'S 4 NEW TITLES FROM DISCOVERY GAMES, 
EACH IN ITS OWN VINYL PERMANENT STORAGE BOX. 
AVAILABLE ON TAPE FOR TRS*0 LEVEL II, 16K; PET. 
16K; AND APPLE II APPLESOFT. 16K, FOR BASIC 

(All include graphic displays and game-time play, in single 
scenarios packed with variables, for solo play.) 

JAGDSTAFFEL-As Commander of the Luftwaffe fighter 
squadron based at Zielhafen, can you protect the U-boat 
base against approaching American bombers? 

MIGS AND MESSERSCHMITTS-The Blitzkrieg approaches 
Leningrad, and unless you as squadron leader can stop the 
approaching bombers, the city will be pounded into 
submission] 

RAF: THE BATTLE OF BRITAIN-France has fallen. Now 
Luftwaffe bombers hammer England. Your RAF squadron 
must protect London from the Blitz. 

WINGED SAMURAI -Rabau I Harbor is the most important 
base on the road to Australia, and you, as Commander of the 
Imperial Japanese fighters based there, are responsible for the 
defense of the ships in harbor. The Americans are coming... 

OVER 40 TITLES AVAILABLE! 

ASK ABOUT OUR 180-DAY GUARANTEED-SALES POLICY 
DEALER & DISTRIBUTOR INFORMATION 
AVAILABLE ON REQUEST 
MAIL ORDERS WELCOMEI 



^« 01956 PASS ROAD 

r OCCHI GULFPORT. MS. 39501 
(601) 896-8600 

OISTRIRUTORS 




CONTINUOUS FORMS FOR YOUR COMPUTER 



• i— m — 



C3 



F : 



SELF PROGRAMMERS: 

extensive stock line to choose from 

SYSTEMS USERS: 

forms designed to fit your format 

SOFTWARE HOUSES: 

complete forms support for your 
users 

COMPUTER DEALERS: 

forms installation assistance 

SERVICE BUREAUS/CPA's: 

quantity discounts 



Please tell us your business 
application and the program 
you are using. We will 
promptly send you the 
forms that will best accomo- 
date your needs. 

• 46 

Checks 
To-Go 

8384 Hercules St 
La Mesa. CA 92041 
(714) 460-4975 



phone no 



onjaniMtion 




I hardware (processor type) 



I software (p/r. .1 pi 
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| software la.'r. Invl 

• !~] programmer 

I "~\ end-user 
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Valerie Vann 
631 G Street 
Davis, CA 95616 



As the holiday season approached last 
year, I thought it would be great to have 
something my computer could do to show 
off to visitors. "Battleship," "Tank Wars," 
and "X-Wing Fighter Bombing Runs" didn't 
seem appropriate. A computer Christmas 
card was more like what I had in mind. 

These programs will run on a 16K Level II 
Model I, TRS-80. An alternate version of one 
subroutine is included for Microsoft's Level 
III BASIC. 

A Series 

The program Holiday Graphics & Sea- 
sons Greetings, (Program Listing 1), is a 
series of five subroutines: Snowflakes, Sea- 
sons Greetings, Poem (a Level II BASIC 
adaptation and enhancement of a routine 
from David Lien's Level I Manual), Snow 
Scene, and a Signature Page (for personal- 
izing your computer greeting card). The pro- 
gram is designed to repeat endlessly and 
one complete cycle takes an average of 26 
minutes. 

If you're getting the family an 80 for 
Christmas, you could even sit it under the 
tree and let it run this program. 

The program is numbered in modules of 
1,000. Each begins with a REM statement 
identifying the subroutine number. 

Each routine can be run alone or with one 



or two others by making minor changes. 
The first lines of the program identify initial- 
ization statements for the subroutines. The 
ending lines contain the RESTORE state- 
ment to run the Season's Greeting and 
Snow Scene routines in an endless cycle. 
The GOTO statement returns the program 
to the Snowflake routine for another com- 
plete cycle. 

If you want to run the Poem routine by it- 
self, a FOR-NEXT time delay loop should be 
added to the end. This is because the time 
used in setting up the following Snow 
Scene graphics array serves as a time delay 
in the combined program. 

The displays are best viewed from a dis- 
tance of at least eight feet in a dimly lit 
room. The brightness and contrast of the 
CRT should be adjusted to give a crisp 
black and white effect. Then sit back with 
your cup of eggnog and watch it snow! 

The Snowflake subroutines contrast the 
BASIC language graphics routines with the 
speed and simplicity of the vector graphics 
enhancements in Microsoft's Level III BA- 
SIC. This uses the line plotting statement 
LINE(X1,Y1)-(X2,Y2),SET. 

The Level II version substitutes a line 
plotting subroutine for this Level III state- 
ment, and thus runs slower. Both versions 
are compatibly line numbered so the differ- 
ences can be identified readily. 

Six-Sided Designs 

The Snowflakes programs (see one in 
Program Listing 2) draw six-sided designs 
on the video display screen. They use the 
smallest TRS-80 graphics block, or pixel. 
Like real snowflakes, the odds against get- 
ting two alike are astronomical! 

Each flake is drawn in 5 to 12 cycles of 



line plotting (the number of cycles is select- 
ed at random). In each cycle, the X and Y co- 
ordinates for two points are generated at 
random. The line defined by the two points 
is then plotted, and rotated in 60 degree in- 
crements and plotted in six positions. The 
mirror image of this rotating line is then 
computed and plotted. 

The designs are not always symmetrical 
because coordinates are rounded to the 
nearest integer value. You will also notice a 
pixel of variation in some line positions. 

The results are usually attractive, espe- 
cially considering the limits of the TRS-80 
graphics system: You are plotting hex- 
agonal figures with rectangular blocks. 

Line 270 contains an adjustment factor 
for the aspect ratio of the screen (constant 
V). This produces a round visible plot on my 
screen. You may wish to adjust it slightly to 
get the best results on your CRT. Use some- 
thing in the neighborhood of 128/48. 

Other kaleidoscopic effects can be pro- 
duced by changing the angle of rotation 
(lines 550-560, P/3) and the number of plot- 
ting positions (line 540, FOR J = 1 TO 6). 
Change these to P/(n/2) and FOR J = 1 TO n, 
where n is the number of sides you want the 
figure to have. Also, the aspect ratio con- 
stant V can be changed or eliminated. 

Trigonometry and analytic geometry 
teachers and their students might have fun 
taking the program apart. It contains all 
those basic elements like polar coordi- 
nates; translation and rotation of axes; 
slopes and intercepts. 

Anyway, it's fun to watch. The snow- 
flakes even have a crystalline appearance, 
thanks to the little rectangular blocks. They 
seem to grow like frost patterns on a win- 
dow. ■ 
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Program Listing. 

10 REM INITIALIZE GRAPHICS ROUTINES 

20 RANDOM: REH ROUTINES 2,4,5 

30 CLEAR 1000: REM ROUTINE 5 

40 DIM A$(16):DIM S(21,2): REM ROUTINE 5 

50 CLS: PRINT-HOLIDAY GREETINGS WITH SNOW . . . ." 

60 PRINT: PRINT "GRAPHICS BY VALERIE VANN" 

70 PRINT CHR$(204)+"631 G ST., DAVIS, CA." 

80 PRINT CHR$(204)+"COPYRIGHT 1980" 

90 PRINT" POEM SUBROUTINE ADAPTED FROM A LEVEL I BASIC P 

ROGRAM" 
100 PRINT"BY DAVID LIEN." 
110 FOR X=l TO 1000:NEXT X 
1000 REM ENTER SIGNATURE - ROUTINE 1 

1010 PRINTg512,"IF YOU WISH TO SIGN THIS GREETING, TYPE 
YOUR NAME,":PRINTg576,"THEN PRESS ENTER. IF NOT, 
JUST PRESS ENTER." 
1020 PRINT" (MAXIMUM OF 28 CHARACTERS) ": PRINT" "+STRING 

$(28,"-") 
1030 INPUT B$:IF LEN(B$)>28 THEN 1020 
1040 IF B$=""THEN B$«="YOUR FRIENDLY COMPUTER - ME 1 " 
2000 REM TITLE PAGE SNOWFLAKES - ROUTINE 2 
2010 CLS 

2020 PRINT CHR$(23) 
2030 FOR J=2 TO 442 STEP 8 
2040 PRINTgJ,"*" 
2050 FOR F=l TO 10:NEXT F 
2060 NEXT J 

2070 PRINTG452,"* *SNOWFLAKES**" 
2080 FOR J=514 TO 958 STEP 8 
2090 PRINTGJ,"*" 
2100 FOR F=l TO 10:NEXT F 
2110 NEXT J 

2120 FOR J*l TO 950:NEXT J 
2130 V-120/48 
2140 P=3. 141592654 
2150 FOR E=l TO 5 
2160 CLS 

217 FOR K=l TO (RND(5)+7) 
2180 X*RND(24) 
2190 Y=RND(24) 
2200 R»SQR(X[2+Y[2) 
2210 IF R>24 THEN 2180 
2220 T-RND(24) 
2230 Z=RND(24) 
2240 S-SQR(T[2+Z[2) 
2250 IF S>24 THEN 2220 
2260 GOSUB 2340 
2270 Y=-1*Y 
2280 Z=-1*Z 
2290 GOSUB 2340 
23.00 NEXT K 
2310 FOR 1=1 TO 2000:NEXT I 

Program continues 



The American 

Cancer Society 

thanks you. 

Your employees 
thank you. 

Their families 
thank you. 



You've become a life 
saver. Literally. For installing 
our Employee Education 
Program. For letting us 
supply free films, exhibits, 
speakers, pamphlets, posters, 
and articles for your company 
publications. For accepting 
our help in arranging "action" 
programs for your 
employees ... for detection of 
colorectal cancer, instruc- 
tions in breast cancer 
examination, for detection of 
cervical cancer via the Pap 
test. For simply under- 
standing that if cancer is 
detected in its early stages, 
chances for cure are greatly 
increased. Thank you. 

Hundreds of companies 
now have an American 
Cancer Society Employee 
Education Program. If yours 
isn't one of them, call us. 



H 



American Cancer Society 

2JOOOJOOO people fighting cancer. 

THISSPACI CONTRIBl TI P ^ A PL'Bl It StKVILE 
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AT-80 ANNOUNCES 
A NEWDOS SPECIAL 

DDIR80 — Creates program lines 
of NEWDOS DIR's. adding them to 
itself. Options include — Search, 
Re-search, Run, Hardcopy, Dis- 
play DIR's, Others. Stores up to 
175 DIR's. 32K/one disk. $23, 
w/demo. 

CAT — Tic-Tac-Toe with ran- 
domly numbered squares. FAST 
graphics. Human vs human op- 
tion. $12. 

FTDEMO80 — Displays the pro- 
grams, and the keyboard com- 
mands, from the NEWDOS/80 
Appendix A examples, WHILE 
executing the programs and com- 
mands and displaying results. 
Cycle through the five file types 
with only the enter key. $12. 

Disk only. Deduct $3 each for 2nd 
and 3rd program ordered. 

NEWDOS $45 NEWDOS+ $95 

NEWDOS/80 $145 

Add 4% for MasterCard/Visa 

AT-80 -*« 

3827 Dismount 

Dallas, TX 75211 

(214) 339-0498 



FOR THE TRS 80* 



PutlRV 
on your m 

programming 

staff! 




MacMna language tap* S24.t$ 



More powerful than a speed 
typist! Able to leap ten 
subroutines at a single bound! 

ORDER YOURS TODAY! 

Now Available From: ^444 

BITZNBYTES Computer Center 

56-B Pleasant Street 

Concord, NH 03301 



r~>u*t ' 



~i 



ADDRESS 

CITY 



ENCLOSE CHECK OR HOMEY ORDER FOR S2*» .95 
TAPE WILL BE SHIPPED PREPAID HAIL 



J 



2320 NEXT E 

2330 GOTO 3000 

2340 W-ATN(Y/X) 

2350 Q«ATN(Z/T) 

2360 FOR J-l TO 6 

2370 W-W+P/3 

23 80 Q-Q+P/3 

2390 X2-R*C0S(W) 

2400 Y2«R*SIN(W) 

2410 T2»S*COS(Q) 

2420 Z2*S*SIN(Q) 

2430 X3«(X2*V+64) :Y3«(Y2+24) :T3= (T2*V+64 ) :Z3-(Z2+24) :GO 

SUB 2460 
2440 NEXT J 
2450 RETURN 

2460 IP X3=T3 THEN 2620 
2470 IF X3>T3 THEN M» (Y3-Z3)/ (X3-T3) ELSE M- (Z3-Y3) / (T3 

-X3) 
2480 B»Y3-M*X3 

2490 IF ABS(Z3-Y3) >ABS(T3-X3) THEN 2560 
2500 IF X3>T3 THEN D«-l ELSE D=l 
2510 FOR H=X3 TO T3 STEP D 

2520 Y3-M*H+B 

2530 SET(H,Y3) 

2540 NEXT H 

2550 RETURN 

2560 IF Y3>Z3 THEN D»-l ELSE D-l 

257 FOR H=Y3 TO Z3 STEP D 

2580 X3=(H-B)/H 

2590 SET(X3,H) 

2600 NEXT H 

2610 RETURN 

2620 IF Y3>Z3 THEN D— 1 ELSE D=l 

2630 FOR H=Y3 TO Z3 STEP D 

2640 SET(X3,H) 

2650 NEXT H 

2660 RETURN 

3000 REM SEASONS GREETINGS - ROUTINE 3 

3010 CLS 

3020 READ X,Y 

3030 IFX-0 AND Y=0 THEN 3810 

3040 PRINTS X,CHR$(Y) :GGTO 3020 

3050 DATA 13,160,14,176,15,176,16,176,17,176,18,176 

3060 DATA 72,160,73,184,74,156,75,143,76,131,77,131,78, 
131 

3070 DATA 79,131,80,131,81,131,82,131,83,143,84,188 

3080 DATA 136,139,137,143,138,189,139,176,140,144,147,1 
60 

3090 DATA 148,176,149,176,150,176,154,176,155,176,156,1 
76 

3100 DATA 157,176,158,176,159,144,161,176,162,176,163,1 
76 

3110 DATA 168,176,169,176,170,176,171,176,175,176,177,1 
76 

3120 DATA 178,176,179,176,183,176,184,176,185,176,186,1 
76 

3130 DATA 187,144,196,176,197,152,198,140,199,180,200,1 
44 

3140 DATA 203,130,204,131,205,139,206,173,207,180,208,1 

44 

3150 DATA 209,160,210,191,211,141,212,140,213,140,214,1 

42 
3160 DATA 215,129,216,184,217,159,218,129,220,160,221,1 

84 
3170 DATA 222,143,224,139,225,173,226,176,227,146,228,1 

31 
3180 DATA 230,188,231,151,232,129,235,186,236,149,238,1 

84 
3190 DATA 239,159,240,131,242,184,243,159,244,129,246,1 

39 
3200 DATA 247,173,248,176,249,144,250,130,251,131,252,1 

31 
3210 DATA 258,168,259,183,260,144,269,160,270,184,271,1 

91 
3220 DATA 272,133,273,130,274,143,275,140,276,140,277,1 

35 
3230 DATA 278,129,279,130,280,139,281,140,282,140,283,1 

34 
3240 DATA 284,143,285,133,287,131,288,140,289,140,290,1 

42 
3250 DATA 291,135,294,139,295,141,296,140,297,140,298,1 

35 

Program continues 
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^Reader Service — see page 274 
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We 

Wont 

Waste 

Your 

Time 




OPSYS 2™ is a multiple command 
processor and a potent job control 
language. Schedule entire systems of 
programs to run without your 
intervention. 

OPSYS 2 simplifies your work. Changes 
the meaning of keys on your keyboard. 
A single stroke will invoke a sequence of 
commands. Create, save and retrieve 
libraries of keyboard programs. 

OPSYS 2 does other smart things for 
you. We know your time is valuable 

• Over 30 modules for quick and 
easy disk and Basic operations 

• Set time and date with minimum 
keystrokes 

• Automatically executes chain files 

• Write system tapes from DOS 

• Read system tapes directly from DOS 

• Display hex and decimal 
equivalents 

• Maintain notes on screen during 
other operations 

• Move memory blocks 

• List memory with or without control 
codes 

• Poke values into memory from DOS 

• Peek values from memory from 
DOS 

• Type ASCII text into memory 

• Jump to any address 

• Search/Replace Basic text 

• Automatic command file using the DO 
command 

• And many more 

OPSYS 2 with complete documentation 
at the intelligent price of S 79.95. 



OPSYS 2" 

is the 

Powerful 

TRS-80" 

Model I 

operating 

system. 

Use it with 35 or 
40 track versions of 

trsdos; 

NEWDOS," or 
NEWDOS+r 




PROGRAMMA 

INTERNATIONAL 

INCORPORATED 

3400 Wilshire Boulevard 
Los Angeles. California 90010 
(213)384-1116 



TRSDOS trademark of Tandy. Inc 

NEWDOS and NEWDOS* trademark of APWNRAT 
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3260 DATA 299,129,300,136,301,142,302,131,304,136,305,1 

90,306,17 9,313,187,314,159 
3270 DATA 323,130,324,131,325,143,326,140,327,188,328, 

188 
3280 DATA329, 188, 330, 188, 331, 188, 332, 143, 333, 135 ,334, 13 

1,341,176,342,17 6,343,152,344,140 
3290 DATA 345,140,346,140,347,140,348,140,349,140,350,1 

40 
3300 DATA 351,140,352,140,353,140,354,140,355,140,356,1 

40 
3310 DATA 357,140,358,140,359,140,360,140,361,140,362,1 

40 
3320 DATA 363,140,364,140,365,140,366,140,367,140,368,1 

40 
3330 DATA 369,140,370,140,371,140,372,140,373,140,374,1 

40,37 5,140,37 6,135,377,131,3 86,160 
3340 DATA 404,17 5,405,176,406,144,423,160 
3350 DATA 424,184,425,132,429,160,433,160,434,176,435,1 

40 
3360 DATA 436,140,437,129,451,131,452,172,453,180,454,1 

88 
3370 DATA 455,140,456,143,457,131,458,131,459,131,460,1 

75 
3380 DATA 461,191,470,131,471,131,472,141,473,140,474,1 

40 
3390 DATA 475,140,476,140,477,140,478,140,479,140,480,1 

40 
3400 DATA 481,140,482,140,483,140,484,140,485,140,486,1 

90 
3410 DATA 487,159,488,141,489,140,490,132,491,136,492,1 

43 
3420 DATA 493,129,494,140,495,140,496,131,497,131,514,1 

76 
3430 DATA 515,190,516,143,517,129,519,131,520,131,521,1 

31 
3440 DATA 522,131,523,131,524,131,527,187,528,157,529,1 

34 
3450 DATA 530,131,531,139,532,132,533,168,534,188,535,1 

79 
3460 DATA 536,179,537,187,538,132,540,168,541,188,542,1 

79 
3470 DATA 543,179,544,179,545,157,548,160,549,190,550,1 

35 
3480 DATA 553,160,554,190,555,135,557,184,558,159,559,1 

34,560,131 
3490 DATA 561,131,561,171,562,189,564,160,565,188,566,1 

35 
3500 DATA 567,163,568,191,569,151,570,168,571,183,572,1 

79 
3510 DATA 573,131,574,139,575,132,577,191,578,191,582,1 

76 
3520 DATA 583,140,584,134,585,131,586,131,587,131,588,1 

88 

3530 DATA 589,160,590,191,591,135,597,175,598,181,599,1 

76 
3540 DATA 600,184,601,140,604,175,605,181,606,176,607,1 

84,608,140 
3550 DATA 611,184,612,159,613,129,616,184,617,159,618,1 

29,619,176,620,190,621,135,623,160,624,184 
3560 DATA 625,143,626,129,627,136,628,191,629,177 
3570 DATA 630,172,631,191,632,135,636,130,637,191,638,1 

48 
3580 DATA 641,191,642,191,646,130,647,131,648,140,649,1 

40 
3590 DATA 650,140,651,190,652,159,653,140,654,140,655,1 

40 
3600 DATA 656,140,657,140,658,180,659,144,668,168,669,1 

44 

3610 DATA 675,139,676,141,677,140,678,140,688,131,689,1 

31 

3620 DATA 693,184,694,159,695,129,699,176,700,158,701,1 

35 
3630 DATA 705,130,706,139,707,173,708,180,709,176,710,1 

76 
3640 DATA 711,176,712,176,713,184,714,158,715,135,716,1 

29 
3650 DATA 720,172,721,144,723,162,724,187,725,180,726,1 

76,727,176 
3660 DATA 728,176,729,176,730,176,731,176,732,176,733,1 

78 

Program continues 



FOR SOMETHING THAT OPERATES SHOTHE 
ON YOUR HARDWARE 
TRY OUR SOFTWARE] 

MICROGRAM 
Integrated Business Systems 

Sensibly priced 



Dental 

Chiropractic 

Watkins 



Law 



Real Estate 

Property Management 
Shaklee 



Accounh receivable & Accowb wiMe 

• 493 

E MICROGRAM f| 

PO Box 1474. Spokane WA 99210 
1-800- 547-5995 ext 112 (Oregon) 1-800-452 8847 




These popular, professionally developed 
applications are low-priced. Guaranteed 
performance! Detailed booklet included. 

• BUDGET 8. INVESTMENT S 17.95 

• BUDGET 8, CHECKING JH.95 

• HOKE INFO RETRIEVAL 111.95 

• HATH (ages 5 «nd up) t 7.95 
■ STOCK PORTFOLIO 518.95 

• AUTOMOBILE » 12.95 

• MASTERMIND game » 10.95 

• MONTE CARLO gaae I 7.95 

• and others from I *»«95 

Send order, or 11.00 for descriptive 
catalogue (free with order) to: ^116 

NEWBY SOFTWARE DEVELOPMENT CO 
2tt DAWLISM AVE TORONTO CANAOA M4N IJ« 



CdmpuCdv'eev 




COVER YOUR INVESTMENT 



• ' I ■ • ■ ^ Dm 



•long* Li'« 



«imm i) a iw pw u n im m «a » i 

MnMI trttfl incl«4t S3 M potlfot 
OEAIEH'NOUIKES INVITED 



CuruCoutn ^100 

I =■,. ■.■•■ ;.... c 

M*» E«Mr M K» 

• ', i (.. .■'. .1 



*^ Rtactor Sin/ice — s## pag* 274 
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HOME VISITOR 

southern cal michigan 

17 1 ? 3 m 1Mb 

QUARTER 

BALL ON SOUTHERN CAL 3fl TIDE 
1 DOWN LO YARDS TO GO ll;M3 



OFFENSE PASSES DEEP«*DEFENSE 

IS A 3-M PLAY GAINS Ifl YARDS 

i«*FIRST DOlilN SOUTHERN CAL 

V DEFENSE* 



FOOTBALL 80 

I'l.is colli hi icXHbull wuli \inii . i )ii i| )i m i 
Match voui uflrniHx'anddrfinsivi pl.i\ tidlinR 

.iIiiIhkn wiili MX) I BALL 80. 

• 1 1 (Xkiiuvr play* ici « Imkmc I k >in 

• 5 lVlrllsi\r strategics U> iim- 

• (.i.ipliKA n< on InmiiI 

• \.n i. him i il ( ,k h |>|.i\ 

• l'l.l\ UMlll I OIIl|Hll.lllOII-, .111 l>.IM(l oil .!< o|l]- 
lnil.ilioii ol olli'iiMvr.iiul ill li IIMM \li. ill jpn 

BASEBALL 80 

Winn tin M-.isnii rtuuigm twiirh ii> baseball 
(.h.ilUnm yuui camuuM in .i miiipli ii H.iini . 
in. il. Iimii \oui |)il< liiiiK and hitUng Mi.iii x»< - 
Willi BASEBALL HO. 

• (.i.i|ilui\ mohImmhI ii|xl.ilril i ,ii II |>ii> 1 1 

• Narrative ol ihr result* ol r.uli piuh 

• In ihc field you i. ill die |»n< li< •» 

• \i 1 1 ii pl.ilr niiii mi killing MralCJO 



D 



M.k Uvri II 
BOTH Kiimn on 
one l.tpr 

CREATIVE DEVELOPMENTS 



$9 



95 



P.O. BOX U()">7 
*^ 447 Memphis, IN 181 (I 
Plume mil 382- 1909 



SPECIAL INTRODUCTORY OFFER 

MORTGAGE LOAN SERVICING 

& RENTAL 

INCOME MANAGEMENT 

FOR TRS-80' MODEL II 

* * * 

Annual Mortgage Loan Statements 

Delinquent Reports & Overdue Notices 

Escrow Analysis 

Rental Income Management 

All Reports on 8V2 x 11 Paper 

Price $850.00 



* * * A MUST FOR * * * 

Loan Servicing Agencies 
Property Management Companies 
Apartment Owners and Managers 

SYSTEM CONSULTATION 

ON OTHER TRS-80* APPLICATIONS 

^320 

FISHER ASSOCIATES (214) 331-6521 

4650 S. Hampton, Suite 109 

Dallas, Texas 75232 

■TRS-80 is a Trademark of Tandy Corp 




3670 


DATA 
76 


734,185 


,7 35,188,7 36,176,737,176,738,17 6,739,1 


3680 


DATA 

76 

DATA 

76 

DATA 

83 

DATA 

76 

DATA 

67 

DATA 

31 

DATA 

76 

DATA 

76 

DATA 

31 

DATA 

76 

DATA 

37 

DATA 

40 

DATA 


740,176 


,7 41,17 6,7 42,176,7 43,176,7 44,17 6,7 45,1 


3690 


746,176 


,7 47,176,7 48,176,7 49,176,7 50,176,7 51,1 


3700 


752,176 


,7 53,176,7 54,176,7 55,176,7 56,190,7 57,1 


3710 


758,176 


,7 59,140,760,140,761,134,762,131,7 80,1 


3720 


781,140 


,7 82,140,7 83,134,7 84,131,7 85,139,7 86,1 


3730 


7 87,177 


,7 88,176,7 89,14 3,7 96,160,7 97,152,800,1 


37 40 


801,137 


,802,140,803,140,804,164,805,17 6,806,1 


3750 


807,176 


, 808 , 176 , 809 , 176 , 810 , 176 , 811 , 17 6 , 812 , 1 


3760 


813,176 


,814,176,815,152,816,140,817,140,818,1 


3770 


819,129 


,842,136,843,191,844,145,856,176,857,1 


3780 


858,184 


,859,142,860,131,908,130,909,131,910,1 


37 90 


911,140 


,912,140,913,140,914,140,915,140,916,1 


3800 


917,140 


,918,131,919,131,0,0 


3810 


FOR X=l TO 3200:NEXTX 


4000 


REM 


POEM SEQUENCE - ROUTINE 4 


4010 


CLS: 


PRINTCHR$(23) :PRINT"STOPPING BY WOODS" 


4020 


PRINT" ON A SNOWY EVENING" : PRINT 


4030 


PRINT" 


BY ROBERT FROST" 


4040 


FOR 


K=1TO2000:NEXTX:CLS 


4050 


FORZ 


=1TO150 




4060 


SET(RND{127) 


,RND(47) ) :FORR=1TO30:NEXTR:NEXTZ 


4070 


PRINT§460,CHR$(230);:GOSUB4440 : PRINT@525 ,CHR$ (230 




);:l 


=0:GOSUB4440 


4080 


PRINT8525," 


WHOSE WOODS THESE ARE I THINK I KNOW." 


4090 


GOSUB4440 




4100 


PRINT8525," 


HIS HOUSE IS IN THE VILLAGE, THOUGH; " 


4110 


GOSUB4440 




4120 


PRINT@525," 


HE WILL NOT SEE ME STOPPING HERE 


4130 


GOSUB4440 




4140 


PRINTG525," 


TO WATCH HIS WOODS FILL UP WITH SNOW 


4150 


GOSUB4440 




4160 


PRINT@525," 

n . 


MY LITTLE HORSE MUST THINK IT QUEER 


4170 


GOSUB4440 




4180 


PRINT§525," 


TO STOP WITHOUT A FARMHOUSE NEAR " 


4190 


GOSUB4440 




4200 


PRINT6525," 


BETWEEN THE WOODS AND FROZEN LAKE "; 


4210 


GOSUB4440 










Program continues 
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DISC DRIVES 

FOR TRS— 80* 
FLIPPY"— 250K bytes/disc 
FAST— 5ms Track to Track 



REAL VALUE 

AEROCOMP offers the best value in 
microcomputer disc drives on the market today! 
Reliability, features and cost lough to beat. We 
deliver... and we stand behind our products, as 
evidenced by the only FREE TRIAL OFFER in the in- 
dustry. Examine your systems needs and order to- 
day! 

MYSTERY REMOVED 

There oppears to be some confusion in the 
terminology used to describe disc drives and their 
features. Here s what we meon 



•FLIPPY 



•TRACK 
DINSITY 



•DOUBLE 
DENSITY 



Allows the use of both sides of 
a diskette with a single- 
headed drive by simply turning 
the diskette over (Model 
40- 1). 

specified in tracks per inch 
(TPI) . 

Refers to the number of tracks 
per radial inch on the diskette. 
Typically 48 TPI — 40 usable 
trocks and 96 TPI = 80 useable 
tracks. 

refers to recording density in 
bits per inch (bpi). Typically 
single density means data con 
be recorded up to 2.938 bpi: 
double density means data can 
be recorded up to S.876 bpi. 

COMPARE AND 



•DOUBLE- refers to number of read write 
SIDED heads. Single-sided is one 
head, read/write one side on- 
ly; double-sided is dual heods 
allowing read write opera- 
tions on both sides of the 
diskette. A double sided drive 
oppears as two separate 
drives to the controller. 
•CAPACITY unformated capacity is the 
total amount of storage space 
available on o diskette. 
Typically 125K bytes on a 40 
track 5.25in. diskette. For- 
mated capacity is the total 
USABLE storage space on a 
diskette. Typically 102K bytes 
on o 40 track 5.25in. diskette. 
•ACCESS the time required for the head 

TIME to move from one track to the 

next. Typically 5 to 40 
milliseconds (ms). 

FREE TRIAL OFFER 

Order your AEROCOMP Disc Drive and use it 
with your system for up to 14 days. If you are not 
satisfied for ANY REASON (except misuse or im- 
proper handling), return it. packed in the original 
shipping container, for a FULL REFUND. We have 
complete confidence in our products and we know 
you will be satisfied! ORDER TODAY! 

WARRANTY 

We offer you a 90 day unconditional warranty 
on ports and labor against any defect in materials 
ond workmanship. In the event service, for any 
reason, becomes necessary, our service depart- 
ment is fost, friendly and cooperative. 

100% TESTED 

AEROCOMP Disc Drives are completely 
assembled at the factory and ready to plug in 
when you receive them. Each drive is 100% bench 
tested prior to shipment. We even enclose a copy 
of the test checklist, signed by the test technician, 
with every drive. AEROCOMP MEANS RELIABILITY ! 

ORDER NOW 

• MODEL 4)0-1 DISC DRIVE $339.9S*a. 

Single-sided, "Flippy", 48TPI. 
(40 track; single density unfor- 
mated 12SK bytes/side: double 
density unformated 2S0K 
bytes/ side). 

• MODEL 80-2 DISC DRIVE $439.95ea. 

Double- sided. 48TPI. 
(80 track 40 per side: single 
density unformated 250K 
bytes: double density unfor- 
mated 500K bytes). 

BUY AEROCOMP! 



ACCESS HfAO DISC CAPACITY IAST- FREE 
" FLUTY" TIME LOAD EJECTOR ; unPormai.d INTRY TRIAL 
(frock lo SOLENOID s.nglo DOOR 
Irock) d.niity! 


AIROCOMR 


YtS 


Jim. 


VIS 


YIS 


2S0K by t«i 
(both tl**t| 


VIS 


YIS 




RAtMO 
SHACK* 


NO 


40m» 


YES 


NO 


109k bytes 


NO 


NO 


KtCOM 


YES 


25m» 


YES 


NO 


250K byt*t 

(both >id«>) 


YES 


NO 


MM 


NO 


5m* 


YES 


YES 


I2SK. byi*> 


YES 


NO 


SHUOART 


NO 


40m > 


YES 


NO 


I09K byt.s 


NO 


NO 


SIIMINS 


NO 


25m* 


YES 


NO 


12SK by. os 


YES 


NO 


I AMBON 


NO 


5m» 


NO 


NO 


I25K byte* 


NO 


NO 


Pirric 


YES 


?Smi 


YES 


NO 


250K b, 'os 
(both »d«») 


NO 


NO 


■AW 


NO 


12m. 


YES 


NO 


12SK D.-es 


NO 


NO 



• MODEL 80-1 DISC DRIVE S439 .93*a . 

Single-sided, "Flippy". 96TPI. 
(80 trock: single density unfor- 
mated 2S0K bytes side; double 
density unformated 500K 
bytes 'side). 

• MODEL DISC DRIVE S595.95ea. 

160-2 Double-sided, 96TPI 

(160 track 80 per side: single 
density unformated 500K 
bytes: double density unfor- 
mated 1 megabyte). 

All models are capable of single or double density 
ond are complete with power supply and silver 
enclosure. Send for information on AEROCOMP 2- 
ond 3 drive systems available in 40 and 80 track. 

• SELECT EITHER A 2 DRIVE OR 4-DRIVE CABLE 
FOR USE WITH YOUR DRIVE(S): 

2-DRIVE CARLE (for use with 

lor 2 drive systems) 

S24.95*a. 

4-DRIVE CABLE (for use with 

I-. 2-. 3-or 4-drive systems) 

$34.9S*a 

Add $1 25 shipping ond hand 

ling 

• MINI DISKETTES (5 25 in) Box of 10 $29.93 

add $1.25 shipping and hand- 
ling 

• DISC OPERATING SYSTEMS 

NEWDOS + (40 TRACK) $109.00 

NEWDOS/80 (B0 TRACK) $149.00 

• SPECIAL COMBINATION OFFER* 

• Model 40-1 Disc Drive $339 95 

• 2 Drive Cable 24.95 

• Disc Operoting System (NEWDOS+) 109 00 

• Freight 5.25 



Reg. $479.15 
Special $399.95 

SPECIAL COMBO EXCEPT WITH NEWDOS/80 
Reg. $519.15 Special $429.93 

To order by mail specify Model Number(s) of 
Drive cable, etc (obove). enclose check, money 
order VISA or MASTERCHARGE cord number ond 
expirotion date or request COO shipment Texas 
residents add 5*. sales tax ADD $4.00 per drive 
for shipping and handling. Please allow 2 weeks 
for personal checks to clear our bank. No personal 
checks will be accepted on COD shipments cash 
money orders or certifed checks only You will 
receive a card showing the exact COD amount 
before your shipment arrives. Be sure to include 
your name ond shipping oddress. WE SHIP PROMP- 
TLY 1 In the event there is a slight delay, you will 
be notified of the shipping date ond we will NOT 
deposit your money order or charge your 
bankcard until the day we ship! 



CALL TOLL FREE FOR FAST SERVICE 
(800) 824-7888. OPERATOR 24 

FOR VISA/ MASTERCHARGE /C.O.D. ORDERS 

California dial (800) 852 7777. Operator 24. Alosko 
and Hawaii dial (800) 824-7919. Operator 24. 
TOLL FREE LINES WILL ACCEPT ORDERS ONLYI 

For Applications and Technical information, call 
(214) 337-4346 or drop us a card. 



Dealers inqiries invited »^387 



r<K»uol maltr 

Mod«l 40 I io 



ulottuffr * doto »"••'» it b«l'*»od reliable bui 



lO' mod* 
Th« TRS BO* •»pon*ion 



I b« guaranteed compering A#'oton-»p 
•Tradomork ol tondy Rodio Shack 



AE3GCGIil? 

Redbird Airport, Bldg. 8 
P.O. Box 24829 
Dallas, TX 75224 



*** Reader Service— see page 226 
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250 
PROGRAMS! 



65 Pagt 
Software 
Catalog 



That's how many 
are included in our 
Fall/Winter catalog, 
and are in stock and ready to 
ship. We represent all of the 
major TRS-80 Software Ven- 
dors (Instant Software, The 
Bottom Shelf, Softside, 
Small Business Systems 
Group, and many more) — 
Over 50 Vendors repre- 
sented in our product line. 
We believe we have the most 
complete selection of soft- 
ware for the TRS-80 — all 
priced at manufacturer's 
prices from $7.95 to $99.95. 
Business, home, games, 
education, programmer's 
utilities. COMPLETE pro- 
gram descriptions. 

SEND FOR OUR FREE " 470 
65 PAGE CATALOG TODAY! 

MICRO COMPUTER SYSTEMS 

3104 EAST SHADOWLAWN, N.E. 
ATLANTA, GA. 30305 



9 



SOFTWARE 

P.O. BOX 521 Lowell. MA 01853 



1 • Memory based printer spooler. 

overlap processing and I/O. 

2 • IBM based terminal driver, 

EBCD and correspondence 
code. Full ASCII character set 
with overstrlkes. Scnpsit 
ZAPS. 

3 • Disk timing program. 

Meter Type numerical and 
statistical screen displays. 
Very easy calibration of all 
type drives 

4 • Cassette test programs 

Writes test data to tape, then 
displays all errors on screen 
Use to check all facets of 
cassette operation and dupli- 
cation quality. 

SEND FOR FREE FLYER 



— The bottom line — 

COST: $9.95 Each + .75 postage 
MA Orders + 5% tax ^235 



4220 PRINT@525," THE DARKEST EVENING OF THE YEAR "; 

4230 GOSUB4440 

4240 PRINT§525," HE GIVES HIS HARNESS BELLS A SHAKE "; 

4250 GOSUB4440 

4260 PRINT@525," TO ASK IF THERE IS SOME MISTAKE. 

4270 GOSUB4440 

4280 PRINT@525," THE ONLY OTHER SOUND'S THE SWEEP 

4290 GOSUB4440 

4300 PRINT£525," OF EASY WIND AND DOWNY FLAKE. " ; 

4310 GOSUB4440 

4320 PRINT9525," THE WOODS ARE LOVELY, DARK, AND DEEP," 

4330 GOSUB4440 

4340 PRINTG589," BUT I HAVE PROMISES TO KEEP, 

4350 I«3:GOSUB4440 

4360 PRINT§653," AND MILES TO GO BEFORE I SLEEP, " ; 

4370 I=6:GOSUB4440 

4380 PRINTG717," AND MILES TO GO BEFORE I SLEEP. " ; 

4390 I=9:GOSUB444e 

4400 FOR A=1TO800 

4410 SET(RND(127) ,RND(47) ) :NEXTA 

4420 CLS:PRINTCHR$ (23) : PRINT@76 ,"*";: PRINT0170 ,"*";: PRI 

NT0322,"BUT I HAVE PROMISES TO KEEP, " ; : PRINTS512 , " 

AND MILES TO GO BEFORE I SLEEP.."; 
4430 PRINT@6 44,"*";:PRINT@6 90,"*";:PRINT0850,"*";:GOTO5 

010 
4440 FORN=1TO20 
4450 X=RND(127) :Y-RND(47) 
4460 IF Y=24+I GOTO4450 
4470 IF Y=25+I GOTO4450 
4480 IF Y=26+I GOTO4450 
4490 SET(X,Y) 
4500 FORA=1TO40:NEXTA 
4510 NEXTN 
4520 RETURN 

5000 REM SNOW SCENE - ROUTINE 5 
5010 FORL=lT016 
5020 A$(L)="":READ N 
5030 FOR Z=1T0N 

5040 READY:A$(L)=A$(L)+CHR$(Y) 
5050 NEXTZrNEXTL 
5060 PRINT CHR$(28) 
507 FORL=lT016 
5080 PRINTA$(L) ; 
5090 NEXTL 

5100 FORY=45T047:FORX«=122T0127 
5110 SET(X,Y) :NEXTX:NEXTY 
5120 FORN=1TO2000:NEXTN 
5130 FORN=lT021 

5140 READP,Q:S(N,0)=P:S(N,1)»Q: NEXTN 
5150 FORR=1TO10 
5160 FORN=lT021 

517 P=S(N,0) :Q=S(N,1) : RESET (P,Q) : NEXTN 
5180 FORT=lT021 

5190 P=S(T,0) :Q=S(T,1) :SET(P,Q) :NEXTT 
5200 NEXTR 
5210 GOTO57 80 

5220 DATA 9,197,144,215,136,209,172,198,144,202 
5230 DATA 19,200,160,184,188,191,191,191,191,189,188,17 

6,215 
5240 DATA 129,195,160,186,189,176,207 
5250 DATA 25,200,191,191,191,191,191,191,191,191,191,19 

1,149 
5260 DATA 207,129,201,176,190,191,191,191,141,176,199,1 

30,197 
5270 DATA 27,194,129,197,130,139,143,191,191,191,191,15 

9,143 
5280 DATA 131,197,130,211,135,128,176,191,191,191,189,1 

88,180,144,203 
5290 DATA 27,196,144,206,168,203,129,199,160,196,188,19 

1,191 
5300 DATA 191,191,191,191,191,191,143,188,188,180,176,1 

44,194,160,194 
5310 DATA 30,194,160,186,198,129,199,168,191,176,198,14 

4,197 
5320 DATA 198,176,188,188,191,191,191,191,191,191,191,1 

91,189 
5330 DATA 176,196,130,133,197 
5340 DATA 43,128,160,184,190,183,17 9,202,176,188,191,19 

1,191 
5350 DATA 191,188,176,200,186,176,195,168,143,131,131,1 

31,131 

Program continues 
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inMEGA WHOLESALE COMPUTER PRICES 
I SALES DIRECT TO THE PUBLIC 



SCO. 






12 Meeting St., Cumberland, R.I. 02864 




y 



When you buy: 

fitf 



You receive: 



f\^rt 



You receive: When you buy: 




Atari 800 
'749 



l-8Kplug in 
RAM Module 

FREE 

($124.95 value) 



1 Box (10 Pes) 
8" Diskettes 

FREE 



LJB 



A. J" * 

TRS-80 
Model II - $3449 







Apple II 

1 6K • *999 

(Regular or Plus) 



1 Apple Tape 
Recorder 



FREE 

($40 value) 




NEW! 

ATARI 825 

PRINTER - $949 



FREE 

($219.95 value) 



APPLE II DISK 

with Controller - $495 






v\v 



& 



1 Box (5 Pes) 
Diskettes 



NEC Spinwriter 

5530 or 5510 

$2449 



SOROCIQ120 
$699 



OKIDATA M1CROUNE 80 - $529 



Microsoft Basic 
for only 
$162.50 




INTERTEC SUPERBRAIN I 

32K RAM $2449.00 

64K RAM $2649.00 



w WP WE.* 9 ?* **k 



Statistics Pak 

or 
Carrying case 

FREE 

($95 value each) 




EPSON MX-80 

80 Character. 9x9 Dot Matrix / 

Roll & Pin Feed Printer 

for your Apple, TRS-80 

or Commodore $599 

tf\0^ Interface to 
Your Computer 





iiMEGA OFFERS THE BEST DELIVERY AND PRICE ON: 

APPLE • ATARI • TRS-80 MODEL II • INTERTEC • 

T.I. 810 • HEWLETT-PACKARD-85 • SOROC • 

COMMODORE • NEC • QUME • CENTRONICS 

OMEGA sells only factory fresh, top quality merchandise to out customers. 
OMEGA will try to match any current advertised price with similar purchase conditions. 
Before you buy anywhere else — be sure to call 11MEGA Sales Co. 
1-401 -722-1 027 

(1AAEGA ships via UPS, truck or air COD s, VISA, Mastercharge accepted. 
"A member in good standing of the Better Business Bureau." 



We carry a complete Ine 

of the above equipment 
For information and 
further pricing call: 

TOLL FREE 
1-800-556-7586 

TELEX 952106 



^R»»d*r S»rvic»—S0* ptg* 274 
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i a n a d *o a srs d b-b-9-b-b- 
HAVE YOU HEARD?? 

"I found more useful information than 

in 10 other magazines put together." 

Hanson. MA 

") ou are the best in content for the 

serious programmer. T.1S is great'" 

Pittsburgh. PA 

"After examining its contents for just 

one day. I cannot resist subscribing." 

Bronx. NY 

"I especially appreciate the assembly 
language listings, for study." 

Alton. MN 

"/ read your magazine because / find 

more good info than all the others." 

Norwich. VT 



THE ALTERNATE SOURCE 

A bi -monthly publication 
for the 'TRS-80 

SM.OO/vr $2.00/issue 



S3RRPBC 



■O-IMUMW t 



CHARTER RATES 

expire 12/31/80 

SUBSCRIBE NOW! 

a m or a r o h 



asac 



Name: _ 
Address: 
City: _ 
Slate. Zip: 



*»: 



TT> > > ff *3 



Wui / (o 



^i3a 



it 



The Altertaate Source 

I8O6 Ada Street 
Unaing. Ml 48910 
Ph. 517/485-0344 

M.Mrr I htrnr \ ... mlitmr. add V"r 



-g-twr 



Introducing 

COBOL -I- FORTRAN + 
64K RAM 

FOR YOUR TRS-80' 

• Release your software chains with the NEW 
FREEDOM OPTION, a plugable change that restruc- 
tures the TRS-80* on command to perlorm like a 
large Z80 system All the TRS-80* features are re- 
tained. All TRS-80* software will run without inter- 
ference. The option Is supplied with a fully assem- 
bled & tested FREEDOM BOARD, T$fOS on a 5V." 
disk, and complete instructions. TWOS allows your 
TRS-80* to execute most software originally written 
for COOS,. TSA70S„ and CPfM, operating systems. 
Tt/OS opens the door to higher level languages and 
existing programs. 

• To further enhance your TRS-80* processing power. 
a MEMORY EXPANSION OPTION is available to re- 
place, on command, the ROM and provide A FULL 
64K RAM This option is switched into operation by 
the FREEDOM BOARD providing 57K of USER RAM 
with Tt/OS loaded Both options are fully assembled 
& tested and fit into the TRS-80* keyboard enclo 
sure Write for more details. 6 Mo. Board Warranty 

FREEDOM OPTION $245 

MEMORY EXPANSION OPTION. . . . $295 

Send Check or Money Order to: 

(MASS RESIDENTS. PLEASE I MCLUOE 5% TAX) 

FoEoCo ltd. „,<, 

P.O.Box 2388 • Weburn, MA. 01888 
(•17) 044-5320 



5360 DATA 176,187,191,191,191,191,191,191,191,191,191,1 

91,188 
5370 DATA 188,188,176,176,196 
5380 DATA 58,128,129,184,191,191,191,191,188,176,195,17 

6,188 
5390 DATA 143,131,175,191,191,191,191,188,176,17 8,131,1 

35,194 
5400 DATA 160,140,172,191,191,191,189,176,144,128,176,1 

76,190 
5410 DATA 191,135,191,191,143,191,191,191,191,191,191,1 

35,131 
5420 DATA 131,143,131,131,129,130,196 
5430 DATA 60,140,17 5,191,191,191,191,172,188,176,129,19 

4,130 
5440 DATA 128,184,190,191,175,191,191,191,191,17 8,17 9,1 

79,139 
5450 DATA 128,160,184,188,191,191,191,131,143,140,140,1 

42,179 
5460 DATA 17 9,17 9,17 9,188,140,140,128,172,17 9,143,191,1 

91,191 
5470 DATA 191,189,188,180,196,160,188,190,191 
5480 DATA 64,134,187,191,191,191,191,189,180,178,139,13 

2,176 
5490 DATA 188,183,17 9,188,188,191,191,191,191,191,191,1 

91,191 
5500 DATA 189,191,189,188,191,143,179,188,128,143,143,1 

43,17 9 
5510 DATA 179,179,188,188,188,191,191,140,143,143,143,1 

43,131,131,131,131,131,131,131,17 9 
5520 DATA 17 9,188,191,191,143,191 
5530 DATA 54,191,191,191,191,191,191,191,191,191,191,19 

1,191 
5540 DATA 191,191,191,191,191,191,191,191,191,191,191,1 

91,143 
5550 DATA 191,143,17 9,188,188,143,143,17 9,188,191,143,1 

43,131 
5560 DATA 131,131,203,176,188,191,191,191,191,191,159,1 

43,17 9 
5570 DATA 188,128,188 
5580 DATA 50,191,191,191,191,191,191,191,191,191,191,19 

1,191 
5590 DATA 191,191,143,191,191,143,143,143,17 9,17 9,17 9,1 

88,128 
5600 DATA 188,191,143,179,188,191,143,131,207,176,190,1 

91,191 
5610 DATA 191,143,131,143,179,188,190,191,143,179,128,1 

79 
5620 DATA 49,191,191,143,191,191,191,143,143,143,17 9,17 

9,179 
5630 DATA 188,188,128,188,188,191,143,143,143,17 9,17 9,1 

79,128 
5640 DATA 17 9,188,191,191,143,129,208,138,191,191,191,1 

91,191 
5650 DATA 191,128,182,131,135,137,188,191,191,191,191 
5660 DATA 45,17 9,17 9,128,188,188,188,191,191,143,143,14 

3,179 
5670 DATA 17 9,179,128,188,188,188,191,191,191,191,191,1 

91,191 
5680 DATA 191,143,135,129,212,131,191,191,191,188,176,1 

52,143 
5690 DATA 17 5,191,140,132,129,162,191 
5700 DATA 41,143,143,128,179,179,188,188,188,191,191,19 

1,191 
5710 DATA 191,191,191,191,191,191,191,143,143,143,131,1 

31,216 
5720 DATA 160,184,191,191,131,131,191,143,135,17 9,188,1 

82,139 
5730 DATA 144,162,191 
5740 DATA 32,191,191,188,159,143,143,143,143,143,131,13 

1,131 
5750 DATA 131,131,129,221,176,176,188,188,191,191,191,1 

88,194 
5760 DATA 152,143,143,167,17 9,188,191 

5770 DATA 125,14,86,37,70,6,22,15,82,31,49,9,89,43,10,2 
,72,35,64,12,42,46,108,2,6,9,63,40,81,14,50,45,56, 
17,119,6,92,33,84,3,59,1 
5780 FORA=1TO2000 

5790 X*(RND(128))-1:Y=(RND(48))-1 
5800 SET(X,Y) 

5810 X=RND(127) : Y= (RND( 23) ) +24 :SET(X, Y) :NEXTA 
5820 FOR Y*47 TO STEP -1 

Program continues 
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SAFOR 



Sales Analyst and Forecaster 



with Graphic Display 



Here is a new program from Software Etc. . . that is 
invaluable to any businessman. SAFOR is a time se- 
ries analysis and forecasting program that will pro- 
duce presentation quality graphs on your own 
printer. SAFOR will handle up to ten years of monthly 
data, provide a comprehensive analysis of past pat- 
terns and make lx>th long and short-range forecasts. 



SAFOR uses a classical time series decomposition 
model to provide both tabular and graphic presenta- 
tions of Original Data, 12 Month Forecasts, Business 
Cycle, Growth Cycle, Seasonal Pattern and 12 Month 
Moving Average. 



SAFOR can handle any type of data series measured 
on a monthly basis where no value is zero or less. 
This data may be in any unit of measure, however 



SAFOR does not adjust dollar figures for inflation. 
The trend is calculated in the same units as actual 
sales, while other factors are treated as multipliers or 
indexes. Because the irregular component is unpre- 
dictable, SAFOR ignores it. 



SAFOR is designed for ease of use, data entry is par- 
ticularly straightforward, every user action is 
prompted. The program features extensive editing, 
updating, data storage and error detection routines. 



SAFOR allows for varying levels of expertise in the 
techniques of analysis, beginner to expert. For the 
beginner, SAFOR contains standard default opera- 
tions to help prepare routine analysis and forecasts. 
For the expert, key assumptions in the program are 
readily modified without anv programming. 



SAFOR will run on your TRS-80* Level II with an expansion interface, 32K of RAM memory, a disk drive, 
TRSDOS" and optionally a 132 column printer. 

Each program comes complete with a two year set of demonstration data. Order vours now! A $200.00 value at 
this Introductory Price of only £^Q QC 

4>/i/.CfD Good through December 51, 1980 Only. 




• 42 



Software Etc. . . 

1839 Chamberlain Drive, 
Carrollton, Texas 75007. 
Phone Orders: (214) 492-0515 



Demand a Demonstration from vour local dealer, or write for a bro< hure of our t omplote line ot fine software. 

■■■■■■■■■■■■■ 



^AmMr Service— am page 274 
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THE 




QUIZ 

MOVIES 

TCI-EVIS/OA/ 
SPORTS 



NEVER EVER REPEATS 
GAMES 

HUNDREDS OF QUESTIONS 

S LEVELS- PERSONAL 
SCORE PER SAME 

ENTERTAINS ANY AGE 

TRS-80-I6K LEVEL H 

Ac o do my Avords / Fomous Movits ... $ 9.95 
Emmy /Words / Famous TV Shows ... % 9.95 
Pro Footbod / B mi do 1 1 Records $ 9.95 

ALL $19.95 



^304 (QUARP PUB'S) 
R0. BOX 7416 
OXNARD, CA. 93031 



— TRS-60 MODEL II USERS — 
Preserve — Protect — Display 

your equipment with 

CRYSTAL CLEAR 
PLASTIC COVERS 




• K»ybootdoodCRT S24.93«a 

• Llo# Print* III i 14.93 to 

pkit 1 1 30 poi tog* *ach 
(Indiono >«id*nii odd 41 ial*i lax) 

Introductory OfftXi Buy both coven b sove 



Combination price S34.95 

including postage 

MODEL I covers also ovailoble 
DEALER INQUIRIES INVITED. 

Crown Plastic Co. ■*"• 
3746 N. College 317-925-5566 
Indianapolis, IN 46225 



5830 FOR X=0 TO 127 

5840 SET (X,Y) 

5850 T=RND(127) :W=Y-2 

5860 IFW<0 THEN 5900 

5870 SET(T,W) 

5880 T=RND(127) :W=RND(47) 

5890 SET(T,W) 

5900 NEXTXiNEXTY 

5910 FORX=1TO500:NEXTX 

6000 REM SIGNATURE PAGE - ROUTINE 6 

6010 CLS:P$="*": PRINT CHR$(23) 

6020 L=LEN(B$) :L=INT(L/2) *2 

6030 S1$=STRING$(6,"*")+CHR$(212)+STRING$(6,"*") 

6040 FOR J=0 TO 950 STEP 10 

6050 PRINTS, P$: NEXT J 

6060 FOR J=l TO 75:NEXT J 

6070 FOR K=0 TO 190 STEP 10 : PRINTER, P$ :NEXT K 

6080 PRINT@192,S1$ 

6090 PRINT@256,P$ 

6100 PRINT@280,"H A P P Y n 

6110 PRINT@318,P$:PRINT@320,P$:PRINTP3 82,P$:PRINT@384,P 

$ 
6120 PRINTG402,"H L I D A Y S" 
613 PRINT@446 r P$:PRINT@448,P$:PRINT@510,P$:PRINTe512,P 

S 
6140 PRINT@540,"FROM" 
6150 PRINT@57 4,P$:PRINT@576 r P$:PRINT@63 8 r P$:PRINT@6 40,P 

$ 
6160 PRINTg(672-L) ,B$ 
6170 PRINT@702,P$ 
6180 PRINT@704,S1$ 
6190 FOR K=770 TO 950 STEP 10 
6200 PRINTER, P$:NEXT K 
6210 FOR J=l TO 2500:NEXT J 
7000 RESTORE: REM ROUTINES 3 S, 5 
7 010 GOTO 2000 : REM REPEAT ROUTINES 2 THRU 5 




Program Listing 




10 RANDOM :CLS: PRINT: PRINT 




20 PRINT" SNOWFL AXES" 




30 PRINT"COPYRIGHT 1980 BY" 




40 PRINT"VALERIE VANN" 




50 PRINT"631 G ST., DAVIS, CA . " 




60 PRINT: PRINT"LEVEL II BASIC" 




70 FOR J=l TO 800:NEXT J 




130 REM TITLE PAGE 




140 CLS 




150 PRINT CHR$(23) 




160 FOR J=2 TO 442 STEP 8 




170 PRINTgJ,"*" 




180 FOR F=1TO10:NEXT F 




190 NEXT J 




200 PRINT@450,"* * SNOWFLAKES 


* * ■ 




Program continues* 
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Toll-free order no.: 

1-800-527-4196 



ACCESS Mini-disk Systems 



TRS-80*uwners 
Save on Equipment & Software! 



^ Access Unhmited's own economy mini- 

^^^^^b disk systems store more data, are more 

! reliable Data access times are fastest 

- k \ possible with your Expansion Interface 

j-. * Heavy duty power supplies run cooler. 

^ml lasi longer Low noise three-wire ac pow- 

^^^^* er cord is safer Enclosures are finished in 

compatible silver enamel. 

AFD-100' (40-track, 102 Kbytes) $315.00 

Mention our DOUBLE DISCOUNT NUMBER when you 
order and save $20.00 on your AFD-100' 



Percom Mini-disk Systems 

TFD-100' M (40-track, 102 Kbytes/side) 

TFD-200"" (77-track, 197 Kbytes) 

Prices include Percom upgrade PATCHPAK" 



$349.95 
$634.95 



.-> 



DATA SEPARATOR™ 

This PC board plug-in adapter for 
the TRS-80" virtually eliminates 
data read errors (CRC error — 
Track locked out ! ) which occur on 
high density inner disk tracks, a 
problem that has plagued TRS 
80* systems The Percom Data 
Separator" is installed in the Expansion Interface 
without modifying the host system. Caution: Open- 
ing the TRS-80* Expansion Interface may void the 
limited 90-day warranty: $29.95 



Percom OS-80™ 

An advanced easy-to-use disk operating system that 
works with Level II BASIC commands. Resides in only 
7-Kbyte of memory. May be extended indefinitely with 
disk-resident utilities. Supplied on 5" disk with exam- 
ple programs: $29.95 with instructions. 

CIRCLE J Software 

Two extremely useful utilities for Percom's OS-80™ 
DOS: 

1 . Machine Language Save/Load Utility . On 5" disk 
with bonus patch program that allows RS Renum- 
ber Utility to run under OS-80™. $14.95. with in- 
structions. 

2. VARKEEP — Adds NAME SAVE and NAME 
KEEP commands to OS-80'". Use one set of com- 
mon data with two or more BASIC programs. Also 
runs under Radio Shack DOS. On 5 disk, with 
instructions: $14.95. 

Z80ZAP 

Super fast machine language disk modification utility. 
Read, Write, Display, and Modify sectors; remove 
passwords; apply patches, fixes; make backups and 
much more. On 5" disk with instructions: $29.95. 

Ask about Scott Adams' Adventure games! 



100% machine language word processor . . . 
SPECIAL DELIVERY ( From Software Etc.) 

Use MAILFORM to create name and address lists; EX- 
TRACT to find names by ZIP, address, gender, age, etc . 
SORT to sort an entire list on any field in seconds Print 
personalized letters written with either the Electric PencilJ 
or Scripsit* using MAILRITE. Prints labels from Mailfile cre- 
ated under MAILFORM. Runs under Percom's OS-80™, 
Radio Shack's TRSDOS* $125 (disk) 





Inexpensive Color Graphics: 
the Percom Electric Crayon™ 

Spectacular multicolor graphics, sharp 2- 
color alphanumerics with your TRS-80*. a 
color tv and the Percom Electric Crayon™ 
Up to eight colors Resolution with full display 
memory (6 Kbytes) is 256 X 192 picture ele- 
ments Microprocessor controlled the Elec- 
tric Crayon™ is not only a full color graphics system but also a 
complete, self-contained control computer with a dual bidirectional 
parallel I/O port - provision for second dual port Interface the 
TRS-80" via your Expansion Interface or Printer Cable Adapter Sup- 
plied with 1 Kbyte display RAM. EGOS™ operating system and 
comprehensive users manual with example programs $249.95. 
Optional TRS-80' interconnecting cable: $24 95. 



Percom's Speak-2-Me-2 T,( 

Give your TRS-80* the gift of speech 

Texas Instruments' Speak & Spell' is the voice of 
your TRS-80* computer with this clever interface 
module manufactured by Percom. Your own 
Level II BASIC programs announce, com- 
mand, implore with sentences and expres- 
sions formed from Speak & Spell's" voca- 
bulary The Speak-2-Me-2™ PC module 
installs in the battery compartment of your 
Speak & Spell" Power is supplied from an 
ordinary calculator power pak. Comes with in- 
terconnecting cable (for TRS-80' El or Printer 
Cable Adapter), operating software and users 
manual: $69 95 (Speak & Spell" not included.) 



the DOUBLER™ 

Percom s new plug-m adapter lor you' Expansion interlace 
stores aimost twice the data on a diskette track as a sngie 
density system You can store up to lour times more data — 
depending on the type ot dr ve — on one side ot a o skette « 
than you can store using a standard Model I m.n -disk drive 
Other features Reads wr tes and lormats either single or 
ooubie density minidiskettes • Runs TRSDOS - NEWDOS 
i Pexom OS 80 ,v o* other single density software without 
changing either software or hardware Swtch to doub e 
density when convenient • Includes DBLDOS' v a 
TRSDOS' compatible double dens ty operating system • 
lnc ; udesoncard high performance da:a separator crcut 'Installs without 
■ewiring or trace cutt ng -introductory price including DBLDOS and lormat 
conversion utility, only $219 95 Mention our DOUBLE DISCOUNT NUMBER 
when you order and save $20 00 on your DOUBLER' 

DOUBLE-ZAP — Mod lies NEWDOS 80 + »or double-density ope'ation using 
the Percom DOUBLER Permits s multaneous single or double-density opera- 
tion F'om Software Etc and C rcle J Software On mm d skette $49 95 



Use your credit card and save! 

VISA and MasterCard charges are not 
deposited until the day your order is 
shipped. 



Disk System Interconnecting Cables 

Improvement over RS cable design places drive 0, which includes 
the cable termination, at the end ofthe cable to eliminate the reflected 
noise of an unterminated cable Better data integrity Prices: 

Two-Drive Cable $24.95 

Four-Drive Cable 34 95 

Power Line Filter 

115/250 V. 50-400 Hz Instructions included for easy installation in 
standard mini-box chassis: $19.95 

Minidiskettes 

K) Disks in a convenient plastic organizer box $34 90 

Single Disk 3.49 

Disk Drive ID Tabs 

1" x 1-W self-adhering plastic drive identification tabs Compatible 
silver with engraved black drive number Two tabs (Nos 0. 1 ): $2.50; 
three tabs (Nos. 0, 1 , 2). $3 25, four tabs (0, 1 , 2, 3): $4.50. 




Order by caMing Access Unlimited toll-free on 1 -800-527-41 96t. 

Ma<i orders also accepted Orders may be charged to a VISA or Master Cnarge 
account, or paid by a easier s c tec- earthed cneck or money order We accept COD 
orders with 25% deposit Sorry, we cannot accept personal eneexs We pay sapping 
and insurance charges on orders ever Si 0O0 00 Add approximate insurance and 
snipping cnarges tor under Si 000 00 II n doubt about mese charges as* wnen you 
call m your order Texas residents include 5% sales lax Minimum order S20 00 Alio* 2 

to 4 *ee*s tor dewy tTexas residents can (214) 494-0206 

ALL PRICES AND SPFCiF. CATIONS SUBJECT TO CHANGE AND A. L OTFERS 

SUBJECT TO WITHDRAWAL WITHOUT NOTICE 

t trademark o' Apparat Corporation ™ trademark of Percorr Data Company ..inc 



DOUBLE DISCOUNT 
NUMBER: 

80M110 



ACCESS UNLIMITED 

315 N. Shiloh • Ste. D1 • Garland, TX 75042 

(214) 494-0206 



trademark o' Access Unlimiled Company 



RADIO SHACK and TRS 80 are trademarks ol Tandy Corporator 



- trademark o' Texas Instruments Corporation 
} trademark ot Michael Shrayer Software. Inc 



s Reader Service— see page 274 
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now you can'---' 

RAISI 

and tilt your^*- ^ 



«° 



^ 






** 



«*>' 



^ 



o^ 



.** 



^ 



niver-gray 
^^^rgiass module 
fits under the 
"80" monitor. 
$22.50 + $2.00 shipping and 
handling with check or money 
order. NYS residents add 7% tax. 

SYRACUSE R&D CENTER 

Box 125, DeWitt, N.Y. 13214 

"our 10th year in R&D" ^358 




■ PQt'BF'? - Since you ant an act pilot, you have 
been chotm to lly behJ.nd enemy ttntt and 
tingle-handed ly ■ju.pt Out at many munition dtmpt 
&t ycu pottibfy car.. 

T o avoid '■ting spotted, you mutt fly at tflH at 
you can xhile being ca.\elul not te crash into 
any iast approaching obstacles. 

Voua bombiA it equipped Mith a constantly "on 
scjietn" aiA speed inticatoii, at timitfi, (.uet 
gaqt and an OA.tHicia.1 horizon. 

If you aAt skillful, you thould be able to 
complete youA mission and (and the plant tartly 
btfoxt youA f,u.e( \ant out. 

PLUS 

•TCTTPCPO - It it youA mitiion to itttct tht most^ 
impoitant o{ tht $ou* different types of enemy 
ships and to destnoy than in tht lincttd tint 
that you havt before you mutt \tjcin you/x fleet. 

'oth games acith graphics and tound. 

AP-I Jl.95 

Stnd youA check 0\ monty ctdei now to: 

MS Coup ' 2 " 
Box 18083 
PltUbuAgh, Pa. 15236 



210 FOR J-514 TO 958 STEP 8 

220 PRINTeJ,"*' 

230 FOR F=l TO 10 :NEXT F 

240 NEXT J 

250 FOR J=l TO 950:NEXT J 

260 REM INITIATE & SET NO. OF REPEATS 

270 V=120/48 

280 P=3. 141592654 

290 FOR E=l TO 5 

300 CLS 

310 REM DEFINE LINE & NO. OF LINES 

320 FOR K=l TO (RND(5)+7) 

330 X*RND(24) 

340 Y=RND(24) 

350 R=SQR(X[2+Y[2) 

360 IF R>24 THEN 330 

370 T=RND(24) 

380 Z=RND(24) 

390 S=SQR(T12+Z[2) 

400 IF S>24 THEN 370 

410 GOSUB 520 

420 REM MIRROR IMAGE OF LINE 

430 Y=-1*Y 

440 Z=-1*Z 

450 GOSUB 520 

460 REM DELAY LOOP IN LEVEL 3 VERSION 

470 NEXT K 

480 FOR 1*1 TO 2000: NEXT I 

490 NEXT E 

500 GOTO 140 

510 REM SUBROUTINE-PLOT & ROTATE 

520 W*ATN(Y/X) 

530 Q«ATN(Z/T) 

540 FOR J»l TO 6 

550 W-W+P/3 

560 Q=Q+P/3 

570 X2=R*COS(W) 

580 Y2=R*SIN(W) 

590 T2=S*COS(Q) 

600 Z2=S*SIN(Q) 

610 X3=(X2*V+64) :Y3=(Y2+24) :T3= (T2*V+64) :Z3«=(Z2+24) :GOS 

UB 650 
620 NEXT J 
630 RETURN 

640 REM LEVEL II LINE PLOT SUBROUTINE 
650 IF X3=T3 THEN 810 
660 IF X3>T3 THEN M= (Y3-Z3) /(X3-T3) ELSE M* (Z3-Y3)/ (T3- 

X3) 
670 B«Y3-M*X3 

6 80 IF ABS(Z3-Y3) >ABS(T3-X3) THEN GOTO 7 50 
690 IF X3>T3 THEN D=-l ELSE D=l 

7 00 FOR H=X3 TO T3 STEP D 
710 Y3=M*H+B 

720 SET (H,Y3) 

730 NEXT H 

7 40 RETURN 

750 IF Y3>Z3 THEN D=-l ELSE D=l 

760 FOR H=Y3 TO Z3 STEP D 

770 X3-(H-B)/M 

780 SET(X3,H) 

790 NEXT H 

800 RETURN 

810 IF Y3>Z3 THEN D=-l ELSE D=l 

820 FOR H=Y3 TO Z3 STEP D 

830 SET(X3,H) 

840 NEXT H 

850 RETURN 



Program Listing 



>*<*< SNOWFLAKES ****** 

■Tor- TRS-8 Mod«-l I 1 «£.K 

w ± T K MICROSOFT l—EMEU III Es 

10 CLS: PR I NT "THIS PROGRAM RUNS UNDER LEUEL III BASIC 
20 PRINT" (MICROSOFT CONSUMER PRODUCTS/ BELLUUE, Uft . > 
30 PRINT" IF YOU HflUE NOT LOADED LEUEL III," 
40 PRINT"D0 SO NOW, AND THEN RE-LOAD THIS PROGRAM." 



FlS I C 
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FLAKES 



OF REPEATS 



50 PR I NT "TO RUN THE PROGRAM. PRESS ENTER. 

60 INPUT Q* 

70 CLS: PRINT: PRINT 

80 PRINT"SNOWFLAKES" 

90 PR I NT "COPYRIGHT 1980 BY" 

100 PR I NT "MAI-ERIE UANN" 

110 PRINT"631 G ST., DAUIS, CA. " 

120 FOR J-l TO 800: NEXT J 

130 REM TITLE PAGE 

140 CLS 

150 PRINT CHR*<23> 

160 FOR J«2 TO 442 STEP 8 

170 PRINT&J,"*" 

180 FOR F=1TG10:NEXT F 

190 NEXT J 

200 PRINT9450, "* * SNOW 

210 FOR J-514 TO 958 STEP 8 

220 PRINTGJ, "*" 

230 FOR F-l TO 10 : NEXT F 

240 NEXT J 

250 FOR J=l TO 950: NEXT J 

260 REM INITIATE A SET NO, 

270 RANDOM :U- 12 0/48 

280 P=3. 141592654 

290 FOR E=l TO 5 

300 CLS 

310 REM DEFINE LINE & NO. OF LINES 

320 FOR K*l TO <RND<5>*7> 

330 X=RND>'.24> 

340 Y-RND<!24> 

350 R=SQRvXC2+YC2> 

360 IF R>24 THEN 330 

370 T«RND<24> 

380 2*RND<24> 

390 S=S0R<TC2+2l'2> 

400 IF S>24 THEN 370 

410 GO-SUB 520 

420 REM MIRROR IMAGE OF LINE 

430 Y— 1*Y 

440 2—1*2 

450 G03U6 520 

460 FOR L»l TO 80: NEXT L 

470 NEXT K 

480 FOR 1=1 TO 2000: NEXT I 

490 NEXT E 

500 GOTO 140 

510 REM SUBROUTINE-PLOT A ROTATE 

520 W=*ATN<:Y'X> 

530 Q=ATN(2 T> 

540 FOR J-l TO 6 

550 W=W+P '3 

GNQ+P - 3 

X2=R *COS •. UL- 

Y2=R*SIN<W> 

T2=S*C0SO2> 

Z2»8*SIN<Q> 

LINE':x2+U+64,Y2+24>-i:T2*U+64,Z2+24;-,SET 



560 

570 

580 

590 

600 

610 

620 NEXT 1 

630 RETURN 




MORE FOR YOUR 1 

RADIO SHACK 
TRS-80 MODEL I ! 

THE DATAHANDLER 

DATABASE MANAGEMENT 
SYSTEM IN MMSFORTH 

Now the power, speed and compactness of 
MMSFORTH drive a major applications pro- 
gram tor many of YOUR home, school and 
business tasks! Imagine a sophisticated 
database management system with flexibili- 
ty to create, maintain and print mailing lists 
with multiple address lines, Canadian or the 
new 9-digit U.S. ZIP codes, and multiple 
phone numbers, plus the speed to load hun- 
dreds of records or sort them on several 
fields in S seconds! Manage inventories with 
selection by any character or combination 
Balance checkbook records and do CONDI- 
TIONAL reporting of expenses or other cal- 
culations File any records and recall 
selected ones with optional upper/lower 
case match, in standard or custom formats 
Personnel, membership lists, bibliographies, 
catalogs of record, stamp and coin collec- 
tions— you name it! ALL INSTANTLY, with 
out wasted bytes, and with cueing from 
screen so good that non-programmers quick- 
ly master its use! With manual, c r ole data 
files and custom words for man list and 
checkbook use. 

Technical Handles data as compressed In- 
dexed sequential subfiles of up to 25K char 
acters (9K in 32K RAM) Access 14 data 
diskettes Modified Quicksort Optionally 
precompiies for 5-second program load Self 
adjusts for many routine mods. Structured 
and modular MMSFORTH source code ideal 
for custom modifications 

THE DATAHANDLER V1.1. a very soph 
isticated database management system 
operable by non-programmers (requires Disk 
MMSFORTH, 1 drive 8 32K RAM), with 
manuals. $59.95* 

• 112 




FORTH 



THE PROFESSIONAL FORTH 
FOR TRS-80 MODEL I 

(Over 1,000 systems in use) 

MMSFORTH Disk System V1 9 (requires 1 
disk drive & 16K RAM) . . |ust S79.95* 

MMSFORTH Cassette System VI 8 (requires 
Level II BASIC & 16K RAM) $59.95* 

AND M MS GIVES IT 
PROFESSIONAL SUPPORT 

Source code provided 
MMSFORTH Newsletter 
Many demo programs aboard 
MMSFORTH User Groups 
Programming staff can adapt 
THE DATAHANDLER to YOUR needs 
MMSFORTH UTILITIES DISKETTE: includes 
FLOATING POINT MATH (L 2 BASIC ROM 
routines plus Complex numbers. 
Rectangular-Polar coordinate conversions. 
Degrees mode. more), plus a full Forth-style 
Z80 ASSEMBLER, plus a powerful CROSS 
REFERENCER to list Forth words by block 
and line. All on one diskette (requires 
MMSFORTH. 1 drive & 16K RAM). . $39.95* 

FORTH BOOKS AVAILABLE 

MICROFORTH PRIMER (comes with 

MMSFORTH) separately $15.00* 

USING FORTH — more detailed and advanc 
ed than above . . . $25.00* 

URTH TUTORIAL MANUAL - very readable 
Intro, to U/Rochester Forth $19.95* 

CALTECH FORTH MANUAL — good on 
Forth internal structure, etc $4.95* 

* — Software prices include manuals and re- 
quire signing of a single-system user 
license Add $2 00 S/H plus $1.00 per addi 
tional book; Mass. orders add 5% tax 
Foreign orders add 15%. UPS COD, VISA & 
M/C accepted; no unpaid purchase orders. 
please. 
Send SASE lor tree MMSFORTH information 
Good dealers sought 

Get MMSFORTH products from your 
computer dealer or 

MILLER MICROCOMPUTER 
SERVICES (M12) 

61 Lake Shore Road. Natick. MA 01760 
(617)653-6136 
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The gift that keeps on giving all year long. 



CAL81 



John F. Strazzarino 

150 Dundee Drive 

South San Francisco, CA 94080 
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Editor's Note: Here is a complete program for a 1981 calendar called CAL61. It includes a personal- 
ized option as well as a picture option. The first one lets you select from five pictured calendar 
heads: Mickey Mouse, butterfly, seal with a ball on its nose, airplane or penguin. 

The second option lets you put in a personalized phrase at the bottom. The program has five phrases 
from which you can choose— or allows you to write your own. 

When the author shows off his TRS-80 to friends, he likes to hand out a calendar with a personal mes- 
sage. 

So, here is a program listing with samples of calendar graphics to go with the months. Merry Christ- 
mas!! 



7777777777 
xxx xxxx 
xx nxitx xxxxx 
XX XXX xxxxx 



xxxxxxxxxx 

xxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxx xxxxxxx ■-. : 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxpxxxxxxxxx 

yJrxxxxxxxxxxxx:^ 
x:irxxxxxxxxxxx>~cxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxx 

xxxxxxxxxx 

X 

XXX 

xxxx 
xxxxxxx 
XXX xxxx 
XXXXXXXXX 

xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxxxx 
xxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxx 



xxxxxxxxxxxxxxxxxxxxxxxxxx 

XXXJCXXXXXXXXXXXXXXXXXXXX-CiXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxy/xxxy/xyrxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxx xxxxxxxxxxxxxxxxxxxxxxx 

XXXXXXX XXXXXXXXXXXXXXXXXXXX XXX 

XXXXX XXXXXXXXXXX xxxx 

XXX XXXXXX xxxxxxxx 

XXXXXX xxxxx 

XXXXXX 

xxxxx 

xxxxx 



X X 

.7 •. 



■:::■::.::-:•::.: 

xxxxx -77777 77 
XXXXX XXX 



x: xxx xx:: xxxx:: :::::: :■: :■: xxr: xxxxx xxx xxx xx 

.7.7 XXXX .777 7777.7 7777.77777 777.77 .7.7.7 .7.7.77 7.7 

XX XXXX XXX XXXXXX XXXXXXX XXXXXX XXX XXXX XX 

7777 777777 77777.77 XXXXXX XXXX XX 

XXX XXXX XXXXXX XXXXXXX XXXXXX XXXX XXX 

xxxxxxxxxxxx -xxxxxx xxxxxxxxxxxx 

XXXXXX XXXXX>. XXXXX XXXXXX 777777 

XXX XXXXXX \ XXXXX X XXXXXX XXX 

xxxxx xxx xxxxx xxx xxxxx 
xxxxx xxxx: x xxxxx x xxxxx xxx:: 
xxxx xxxxxx xx xxxxx x: :oxxxx xx:: 

XXX XXXXX /.". XXX XX XXXXX XXX 





x:r: 


XXX. xxxxx 


■xxxx xxxx 


777 


XXXX xxxxx 


xxxx xxxx 


7,7.7 


xxxx xxxx 


XX xxxx 


.777 


XXXX XX 


x:cx 


777 


xxxx 



1 1030113012201320133013401450146015102690 

2 13502650 

3 1330 1360 

4 1370 

5 1130 1380 

6 1320 1390 
32 1530 

78 1400 

80 11402650 

99 1500 

500 1000 

1000 2690 

1010 1020 

1120 1130 

1160 1180 

1190 1170 

1200 1030 1210 1400 1450 

1310 1320 

1330 1330 

1430 1440 

1460 1220 

1490 1510 1540 

2310 1460 1500 

2670 2680 

2710 2380 2440 2510 2590 

A 1200/$ 1210/$ 1220/* 2670/$ 2680/$ 2690/$ 

B 1 330($2 134CVS 1360/S 

C 1010/* 1020/$ 1030/S 1460/S 

D 11601170 1220/S 1340/* 1 350/S 1360/* 1370/* 1380*1 390/* 1400/* 1420/$ 
2650/$ 2660/$ 

E 14307$ 1440/$ 1450/$ 1470 1510 

F 1120 1130/2 1140 1150 1190 1490 15001510 1530 

G 1310 1320/2 1330/2 1340 1350 1360 1370 1380 1390 1520 1530 

H 1470 1530 

I 26502660 

T 1140 1170 

Program Listing 2. CAL81 Cross references 
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XXXX 
XXXXXXXXXX moot 

xxxxxxxxxxxxx xxx 
xxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxx 

XXXXXXXXXXXXXX 
XXXXXXXXXXXXXX 
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xxxxxx 

XXXXXXXXXXXX.YXX 

XXXXXXXXXXXXXXXXXX 

XX XX XXXX XXXXXXXXXX 

XXX X XX xxxxxxxxxxx 

XXXXXX XXXX XXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXVXXXXX xxxxxxxx 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxvxxvxxxxxxxxxxxxx 

X'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.XXXX 

xxxxxxxxxxxxx xxxxxxxxxxx xxxxxxx 
xxxxxx x xtocxxv xxxxx 

XXXX XXXX .XXXX' 

XXX XXXXXXXXXXXXXX' 

XXXXXXXXXXX.XXXXXXXXXXX 

X.XXXXXXXXXXX XXXX 

XXXXXXXXXXXXX XXXX 

XXXXXXXXXXXXXXX XXXX 

XXXXXXXXXXXXXXXXXX XXXX 

xxxxxxxxxxxxxxxxxxxx xxxxxxx 

.XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX XX 

XX xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
XXX XXXX xxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxx xxxxxxxxxxxxx xxxxxxxx 
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XXX XXXX 
XXXX XXX XXX 
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XXXXXXX XXX XX 
XXXXXXXXX XXX 
XXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXX* 
XXXXXXXXXXXXXXX?. 
XXXXXXXXXXXXXXXX 



xxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxx 

XXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxx 

XXXXXXXXXXXXXXX xxxxxx 
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Program Listing 1 



1000 RESTORE: CLEAR 500 :CLS : PRINT"WELCOME TO THE CALENDA 

R MAKER": PRINT 
1010 INPUT "DO YOU WANT A PICTURE ON YOUR CALENDAR" ;CS 
1020 IF C$-"" THEN 1010 
1030 IF LEFT$(C$,1)<>"Y" THEN 1200 
1040 PRINT: PRINT'WE HAVE FIVE PICTURES FROM WHICH TO CH 

COSE:" 
1050 PRINT 

1060 PRINT" 1) MICKEY MOUSE" 
1070 PRINT" 2) BUTTERFLY" 
1060 PRINT"3) SEAL AND BALL" 
1090 PRINT"4) AIRPLANE" 
1100 PRINT'S) PENGUIN" 
1110 PRINT 

1120 INPUT "WHICH NUMBER PICTURE DO YOU WANT";F 
1130 IF F<1 OR F>5 THEN PRINT "MUST BE FROM 1 TO 5":GOT 

1120 
1140 T=80+F 

1150 PRINT: PRINT "LOOKING FOR PICTURE t";F 
1160 READ D 
1170 IF D-T THEN 1190 
1180 GOTO 1160 

1190 PRINT"PICTURE #";F?" FOUND" 

1200 PRINT: INPUT" DO YOU WANT PERSONALIZATION" ; AS 
1210 IF AS-*"THEN 1200 

1220 IF LEFT$(A$ r lX>"Y" THEN D$«"":GOTO 1460 
1230 PRINT: PRINT" THE FOLLOWING PERSONALIZATIONS ARE AVA 

ILABLE:" 
1240 PRINT 
1250 PRINT'l) THIS CALENDAR MADE ESPECIALLY FOR (YOUR N 

AHE)" 
1260 PRINT"2) THIS CALENDAR WAS MADE BY A HOME COMPUTER 

1270 PRINT"3) PRODUCED FOR (YOUR NAME) BY A TRS-80 MODE 

L I" 
1280 PRINT"4) MERRY CHRISTMAS ** HAPPY NEW YEAR" 
1290 PRINT"5) BEST WISHES FOR A HAPPY AND PROSPEROUS NE 

W YEAR" 
1300 PRINT"6) MAKE YOUR OWN PHRASE" 

1310 PRINT: INPUT "WHICH PERSONALIZATION NUMBER" ;G 
1320 IF G<1 OR G>6 PRINT "MUST BE BETWEEN 1 AND 6":GOT0 

1310 
1330 IF G«l OR G-3 LINEINPUT "NAME? ";BS:IF B$-""THEN 1 

330 
1340 IF G=l THEN D$»"THIS CALENDAR MADE ESPECIALLY FOR 

"+BS 
1350 IF G»2 THEN DS="THIS CALENDAR WAS MADE BY A HOME C 

OMPUTER" 
1360 IF G=3 THEN D$«*PRODUCED FOR "+BS+" BY A TRS-80 MO 

DEL I" 
1370 IF G-4 THEN D$»"MERRY CHRISTMAS ** HAPPY NEW YEAR" 
1380 IF G-5 THEN D?="BEST WISHES FOR A HAPPY AND PROSPE 

ROUS NEW YEAR" 
1390 IF G«6 THEN LINE INPUT "WHAT IS YOUR PHRASE? ";D$ 
1400 IF LEN(DS)>78 THEN PRINT "LINE TOO LONG":GOTO 1200 
1410 PRINT: PRINT" YOUR PERSONALIZATION WILL BE AS FOLLOW 

S:" 
1420 PRINT : PRINT D$ :PRINT 

Program continues 
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GIN FOR CHRISTMAS 

AND OTHER 16K GAMES & APPLICATIONS 

GIN RUMMY 2.0 Sit down with a really tough opponent, 
ana try not to get schneidered. Hundreds of happy Gin 
players keep trying to beat this program — some do, and 
some don't. Plays a regulation game, keeps score, changes 
strategy to counter your play. Can you beat Gin Rummy 
2.0? MGR-1 $14.95 

CRIBBAGE MASTER plays a strong game, too, making the 
most of every play, hand and crib, it'll Muggins you for 
the smallest mistake, but try to catch It counting wrong! 
Excellent card graphics. mcm-1 $12.95 

LABYRINTH RUN Race through sharp turns, slaloms and 
narrowing passages. A fascinating /frustrating test of skill. 
High speed graphics. MLR-1 $9.95 

E.S.P. LAB Psychic? Find out with these tests based on the 
famous Duke university experiments. Keeps trial records, 
analyzes for telepathy, clairvoyance, precognition. 
Special test for telekinesis. MPM $9.95 

THE USTMAKER Pull any category from a list in seconds 
with this powerful, versatile program. Enter up to 400 
names or items, with codes, in 16K. Sort, edit, dump, load, 
print or display lists on-screen. MLM-1 $9.95 

CALCULATOR PLUS makesyourTRS-80a printing calculator. 
Chain and mixed calculations, constants, memories. On- 
screen review of long additions. MPC-1 $9.95 

CHECKBOOK PUIS Never agonize over a bank statement 
again! Put the figures in and let Checkbook Plus handle all 
the calculations and find the errors. mcb-1 $9.95 

calculator & checkbook on one cassette. MC-1 $14.95 

California residents add 6^ sales tax 

Credit card orders (21 3) asa-8290 

^90 MANHATTAN SOFTWARE 
post Office BOX 35 
pacific Palisades, CA 90272 



DISK DRIVE WOES? PRINTER INTERACTION? 

MEMORY LOSS? ERRATIC OPERATION? 

DON'T BLAME THE SOFTWARE! 





ISO-1 '"fj ISO-2 

Power Line Spikes, Surges & Hash could be the culprit! 
Floppies, printers, memory & processor often interact! 
Our unique ISOLATORS eliminate equipment interaction 
AND curb damaging Power Line Spikes, Surges and Hash. 
'ISOLATOR (ISO-1 A) 3 filter isolated 3-prong sockets; 
integral Surge/Spike Suppression; 1875 W Maximum load. 

1 KW load any socket $56.95 

•ISOLATOR (ISO-2) 2 filter isolated 3-prong socket banks; 

(6 sockets total); integral Spike/Surga Suppression; 

1875 W Max load, 1 KW either bank $56.95 

'SUPER ISOLATOR OSO-3), similar to ISO-1A 

except double filtering & Suppression .... $85.95 
•ISOLATOR (ISO-4), similar to ISO-1 A except 

unit has 6 individually filtered sockets .... $96.95 
•ISOLATOR (ISO-5). similar to ISO-2 except 

unit has 3 socket banks. 9 sockets total . . . $79.95 
•CIRCUIT BREAKER, any model (add^B) Add $ 7.00 
•CKT BRKR/SWITCH/PILOT any model 

(-CBS) Add $14.00 

feA PHONE ORDERS 1617-655-1532 

L3ZJ Electronic Specialists, Inc. 



171 South Main Street. Natick. Mast. 01760 



Dept.8M 



1430 INPUT "IS THIS 0K";E$ 

1440 IF ES«"" THEN 1430 

1450 IF LEFT$(ES,1)<>"Y" THEN 1200 

1460 IF LEFTS(CS,1)<>"Y" THEN 2310 

1470 READ E.H 

1480 LPRINT" ":LPRINT" ":LPRINT" " 

1490 READ F 

1500 IF F«99 THEN 2310 

1510 IF F= -1 THEN LPRINT" ":LPRINT TAB ( E );: GOTO 1490 

15 20 READ G 

1530 LPRINT STRINGS(F,32) ; STRINGS (G, H) ; 

1540 GOTO 1490 

1550 'MOUSE DATA 

1560 DATA 81,10,88 

1570 DATA -1,43,6,-1,42,8,-1,41,10,-1,41,10,-1,3,4,34,1 

0,-1,1,10,4,4,23,8,-1 
1580 DATA 0,13,1,3,26,6,-1,0,16,17,15,-1,1,15,14,18,-1, 

2,14,7,2,3,2,2,4,2,10,-1 
1590 DATA 4,14,4,3,2,1,4,2,4,11,-1,8,11,3,6,2,4,2,14,3, 

6,-1 
1600 DATA 13,7,2,29,1,8,-1,18,42,-1,20,40,-1,21,39,-1,2 

4,13,3,11,1,7,-1 
1610 DATA 25,6,6,1,2,7,6,5,-1,28,4,2,4,2,4,-1,30,3,5,14 

,-1,31,22,-1 
1620 DATA 29,12,10,4,-1,27,13,11,4,-1,25,15,11,4,-1 
1630 DATA 24,18,7,4,-1,23,20,4,7,-1,22,2,2,29,1,2,-1 
1640 DATA 21,2,3,31,-1,21,3,2,4,2,23,-1,20,9,3,13,1,8,- 

1,20,10,2,12,2,2,4,4,-1 
1650 DATA 6,4,10,24,2,3,4,2,-1,4,8,6,23,-1,3,10,4,5,14, 

4,-1,3,10,3,4,18,2,7,2,-1 
1660 DATA 3,15,21,12,-1,4,13,24,10,-1,5,13,25,9,-1,7,11 

,25,10,-1,8,9,24,12,-1 
1670 DATA 9,7,23,13,-1,10,5,23,13,-1,99 

16 80 'BUTTERFLY DATA 
1690 DATA 82,16,37 

1700 DATA -1,20,1,7,1,-1,21,1,5,1,-1,21,1,5,1,-1 

1710 DATA 21,1,5,1,-1,22,1,3,1,-1,22,1,3,1,-1 

1720 DATA 22,1,3,1,-1,22,1,3,1,-1 

1730 DATA 0,10,13,1,1,1,13,10,-1,0,3,6,4,10,1,1,1,10,4, 

6,3,-1 
1740 DATA 0,2,1,6,1,5,8,1,1,1,8,5,1,6,1,2,-1 

17 50 DATA 0,2,6,3,2,5,5,1,1,1,5,5,2,3,6,2,-1 

1760 DATA 1,2,1,3,2,3,1,5.1,3,1,1,1,1,1,3,1,5,1,3,2,3,1 

,2,-1 
1770 DATA 1,2,1,4,2,3,1,5,1,9,1,5,1,3,2,4,1,2,-1 
1780 DATA 1,2,1,4,2,3,1,6,1,7,1,6,1,3,2,4,1,2,-1 
17 90 DATA 2,2,4,4,2,6,1,7,1,6,2,4,4,2,-1 
1800 DATA 2,3,1,4,4,6,1,7,1,6,4,4,1,3,-1 
1810 DATA 3,12,6,7,6,12,-1,4,6,4,6,2,5,2,6,4,6,-1 
1820 DATA 5,3,3,6,3,1,1,5,1,1,3,6,3,3,-1,9,5,3,3,2,5,2, 

3,3,5,-1 
1830 DATA 7,5,2,5,1,1,1,5,1,1,1,5,2,5,-1 
1840 DATA 7,4,1,6,1,2,1,5,1,2,1,6,1,4,-1 
1850 DATA 8,3,1,5,1,2,3,3,3,2,1,5,1,3,-1 
1860 DATA 9,1,1,5,1,3,3,3,3,3,1,5,1,1,-1 
1870 DATA 10,5,1,4,3,3,3,4,1,5,-1,11,4,1,4,3,3,3,4,1,4, 

-1 
1880 DATA 12,2,1,4,4,3,4,4,1,2,-1,15,4,4,3,4,4,-1 
1890 DATA 17,2,5,1,5,2,-1,99 
1900 'SEAL AND BALL DATA 
1910 DATA 83,16,37 

1920 DATA -1,11,10,-1,8,16,-1,5,22,-1,3,26,-1,2,28,-1 
1930 DATA 1,30,-1,0,32,-1,0,32,-1,0,32,-1,0,32,-1,0,32, 

-1 
1940 DATA 0,32,-1,1,30,-1,2,28,-1,3,26,-1,5,22,-1,8,16, 

-1 
1950 DATA 11,10,-1,15,1,-1,14,3,-1,14,4,-1,13,7,-1,13,3 

,1,4,-1 
1960 DATA 13,9,-1,13,10,-1,13,10,-1,12,10,-1,11,10,-1,1 

0,12,-1 
1970 DATA 9,14,-1,9,17,-1,8,21,-1,8,24,-1,8,26,-1,8,28, 

-1 
1980 DATA 8,30,-1,8,31,-1,8,32,-1,9,32,-1,9,32,-1,10,32 

,-1 
1990 DATA 10,32,-1,8,8,1,25,-1,6,8,5,23,-1,4,7,11,20,2, 

3,-1 
2000 DATA 4,5,22,11,1,4,-1,3,3,26,6,1,8,-1 
2010 DATA 32,6,2,5,-1,31,6,-1,30,5,-1,29,5,-1,99 
2020 'AIRPLANE DATA 
2030 DATA 84,10,37 
2040 DATA -1,45,5,-1,43,8,-1,41,10,-1,40,3,3,5,-1,39,3, 

1,3 
2050 DATA 1,4,-1,39,2,1,5,1,3,-1,38,3,1,5,1,2,-1,37,5,1 

,3,1,3,-1 
2060 DATA 36,7,3,3,-1,35,13,-1,35,13,-1,26,5,3,13,-1,26 

,6,1,14,-1 
2070 DATA 27,19,-1,27,19,-1,28,17,-1,29,16,-1,22,5,2,15 

,-1,22,6,1,15,-1 
2080 DATA 13,4,6,20,-1,11,8,4,19,-1,10,10,4,18,-1,10,12 

,3,16,-1,10,14,1,15,-1 
2090 DATA 10,29,-1,11,27,-1,13,25,-1,14,23,-1,16,21,-1, 

18,18,-1,11,4,3,20,-1 
2100 DATA 10,7,1,22,-1,10,31,-1,11,31,-1,12,31,-1,13,32 

,-1,6,4,3,33,-1 
2110 DATA 6,6,1,15,2,18,-1,6,21,6,16,17,2,-1,7,19,10,15 

,14,3,-1 
2120 DATA 8,17,14,13,11,5,-1,8,16,17,13,6,7,-1,7,16,20, 

13,1,9,-1,6,16,23,20,-1 
2130 DATA 5,16,26,17,-1,4,16,29,14,-1,3,16,32,11,-1,3,1 

5,34,9,-1,2,15,34,11,-1 

Program continues 
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2140 


DATA 1,3,3,9 
,1,5,38,6,2,: 


35,11,-1,1,2,1,3,1,7 
,-1 


,36,11 


,-1,0,2,1,5 


2150 


DATA 0,2,1,5 
,3,41,5,-1,0, 


1,4,38,7,-1,0,3,1,3, 
9,42,4,-1 


1,4,39 


,6,-1,0,4,3 


2160 


DATA 1,7,43,3 


,-1,2,5,44,2,-1,51,1 


,99 




2170 


'PENGUIN DATA 






2180 


DATA 85,25,37 






2190 


DATA -1,12,8, 


-1,9,13,-1,8,6,2,6,- 


1 




2200 


DATA 5,18,-1, 

-1 

DATA 5, 2, 6, IB 


3,20,-1,2,2,4,15,-1, 


8,15,- 


1,6,2,3,12, 


2210 


,-1,4,2,8,10,-1,3,2, 


10,5,1 


,3,-1 


2220 


DATA 2,2,11,6 


,2,3,-1,1,2,12,8,-1, 


0,2,13 


,11,-1 


2230 


DATA 0,2,13,14,-1,0,2,13,17,-1,0, 


2,13,19,-1 


2240 


DATA 0,2,13,21,-1,0,2,13,22,-1,0, 


2,13,13,3,7,-1 


2250 


DATA 0,2,13,14,4,6,-1,1,2,13,13,5 

,5,-1 

DATA 1,2,14,12,7,4,-1,1,2,15,11,8 


,5,-1, 


1,2,13,13,6 


2260 


,3,-1, 


1,2,16,9,10 




,1,-1 








2270 


DATA 2,2,16,8,-1,2,2,16,8,-1,3,2, 


16,7,- 


1,3,2,17,6, 


2280 


DATA 4,2,16,6 

-1 

DATA 10,3,10 


,-1,5,2,15,5,-1,6,2, 


15,4,- 


1,8,2,13,3, 


2290 


2,-1,12,11,-1,12,2,7 


,2,-1, 


7,7,7,2,-1 


2300 


DATA 6,6,7,4 


-1,17 ,5,-1,16,4,-1,99 




2310 


LPRINT " ":LPRINT " ":LPRINT" " 






2320 


LPRINT" 
88 1" 




1 


9999 88 


2330 


LPRINT" 

8 1" 
LPRINT" 




1 


9 9 8 


2340 




1 


9999 88 




88 1" 








2350 


LPRINT" 

8 1" 
LPRINT" 




1 


9 8 


2360 




1 


9999 88 




88 1" 








2370 


LPRINT" ":LPRINT" ":LPRINT" " 






2380 


LPRINT" 


JANUARY 




FEBRUAR 




Y 


MARCH": GOSUB 2710 


2390 


LPRINT" 


12 3 


1 


2 3 4 5 




6 7 


12 3 4 5 6 


7" 




2400 


LPRINT" 4 5 


6 7 8 9 10 


8 


9 10 11 12 




13 14 


8 9 10 11 12 13 


14" 




2410 


LPRINT'll 12 


13 14 15 16 17 


15 


16 17 18 19 




20 21 


15 16 17 18 19 20 


21" 




2420 


LPRINT'18 19 


20 21 22 23 24 


22 


23 24 25 26 




27 28 


22 23 24 25 26 27 


28" 




2430 


LPRINT"25 26 


27 28 29 30 31 

29 30 31":LPRINT" 


. 




2440 


LPRINT" 


APRIL 




MAY 






JUNE":GOSUB 2710 


2450 


LPRINT" 


12 3 4 








1 2 


12 3 4 5 


6" 




2460 


LPRINT" 5 6 


7 8 9 10 11 


3 


4 5 6 7 




8 9 


7 8 9 10 11 12 


13" 




2470 


LPRINT"12 13 


14 15 16 17 18 


10 


11 12 13 14 




15 16 


14 15 16 17 18 19 


20" 




2480 


LPRINT"19 20 


21 22 23 24 25 


17 


18 19 20 21 




22 23 


21 22 23 24 25 26 


27" 




2490 


LPRINT"26 27 
29 30 


28 29 30 
28 29 30" 


24 


25 26 27 28 


2500 


LPRINT" 




31":LPRINT" " 


2510 


LPRINT" 


JULY 




AUGUST 






SEPTEMBER" :GOSUB2710 


2520 


LPRINT" 


12 3 4 








1 


12 3 4 


5" 




2530 


LPRINT" 5 6 


7 8 9 10 11 


2 


3 4 5 6 




7 8 


6 7 8 9 10 11 


12" 




2540 


LPRINT"12 13 


14 15 16 17 18 


9 


10 11 12 13 




14 15 


13 14 15 16 17 18 


19* 




2550 


LPRINT"19 20 


21 22 23 24 25 


16 


17 18 19 20 




21 22 


20 21 22 23 24 25 


26" 




2560 


LPRINT"26 27 
28 29 


28 29 30 31 
27 28 29 30" 


23 


24 25 26 27 


2570 


LPRINT" 




30 


31 ".-LPRINT" 


2580 


LPRINT" 
R 


OCTOBER 

DECEMBER" 




NOVEMBE 


2590 


GOSUB 2710 








2600 


LPRINT" 


12 3 


1 


2 3 4 5 




6 7 


12 3 4 


5" 




2610 


LPRINT" 4 5 


6 7 8 9 10 


8 


9 10 11 12 




13 14 


6 7 8 9 10 11 


12" 




2620 


LPRINT'll 12 


13 14 15 16 17 


15 


16 17 18 19 




20 21 


13 14 15 16 17 18 


19" 




2630 


LPRINT"18 19 


20 21 22 23 24 


22 


23 24 25 26 




27 28 


20 21 22 23 24 25 


26" 




26 40 


LPRINT"25 26 


27 28 29 30 31 

27 28 29 30 31" 


29 


30 


2650 


I=(80-LEN(DS) )/2 






2660 


LPRINT" ":LP 

T" " 

PRINT: INPUT 


*INT" " :LPRINTTAB( I) D$: LPRINT" ":LPRIN 


2670 


DO YOU WANT TO MAKE 


ANOTHER CALENDAR" 




;AS 








26 80 


IF AS-" THEN 2670 






26 90 


IF LEFTS(AS,1)="Y" THEN 1000 






2700 


PRINT: PRINT'END OF PROGRAM" : PRINT: END 




2710 


LPRINT" " 








2720 


LPRINT" S M 


T W T F S 


S 


M T W T 




f S 


S M T W T F 


S" 




2730 
27 40 










RETURN 




„ 










Don't be misled by more expensive imitations! 

This is the original Photo point light pen pre- 
ferred and supported by some of the leading 
software sources like, "Quality Software"— "In- 
stant Software" — "Level IV'products and so on. 

Just imagine . . . 

In playing backgammon, (included) when you 
want to move a man, you just point at where you 
want to move from, then point at where you 
want to move to, and your man moves!!! No 
more fumbling with keyboards— YEA! 

Your Photo Point package comes complete; 

• 1 Photo point light pen (of course) 

• Info sheets on how to connect the pen and 
how to write your own programs 

ALL IN BASIC 

• Two apertures 

• AND two sensitivity settings 

• A cassette tape with 4 informative programs 
and games 

• Ready to connect to your TRS-80 System. 
(DOS too!) 

• Does not void any Radio Shack warranties 

Requirements: 

• Level II basic 

• And a little imagination" 

For fast real time programming it is your lowest 
cost peripheral at S19. 95 



Announcing 



u 

< 
—i 
m 

08 

rx 

UJ 

> 
_j 

C/5 



- 



NEW PEN BASIC by Steve Bjork 

Steve is one of the Best Assembly Lang, pro- 
grammers around, and he has come up with PEN 
BASIC. This low memory routine will add 10 more com 
mands to Level II such as PENGET which searches the 
entire screen for the pen and returns a number between 
0-1024 in about 1 sec Plus 9 other commands Perfect for 
you lightware authors and NEW light pen owners 
too! only *14.95 



(COUPON) 

Micro Matrix ^ea 

P.O. Box 938 • Pacifica CA °4044 

Send for yours NOW: (415)355-4635 

Name _. 



Address 
City 
Z'P _ 



St 



Photopoint 
$19.95 

Pen Basic 
$14.95 



Card* 
Ex. 

Date 



Money 
CK. Order Visa MC 



*> R»ad»r Servtci—s— psge 274 
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GENERAL 



Be different! 

Send an electronic Christmas card with an 80 hallmark this year. 



Holiday Cheer 



Norman S. Kerr 
1571 Burton St. 
St. Paul, MN 55108 

Last Christmas, I decided to 
let Max, my friendly TRS-80, 
write personalized holiday let- 
ters. You can do the same! The 
two programs you need are a 



computerized address list and a 
letter writing program. 

I have written an address list 
program that stores information 
in a two-dimensional array 
(Table 1). I have used a saluta- 
tion entry permitting you to use 
"Norman S." in the mailing ad- 
dress while using "Sylvia and 



CHR I KTMAfi 



DEAR UNCLE WAYNF, 

MERRY CHRISTMAS. THE KLRRS ASKED ME TO WRITE THEIR 
WINTER SOLSTICE LETTtR FOR TMEM THIS YEAR. 

I OPE YOU HAVE '<AD AS MH)D A YEAR AT SO PINE STREET 
AS WE HAVE HAIi AT 1}71 BURTl'N STREET. I DO NOT WISH ON YOU 
IN PETERBOROUGH. NEW HArtPSH'i«F AS MUCH COLD WEATHER AS WE 
HAVE HAD. 

NOTE THAT 1 HAVE LEFT SPACE!; TO INDICATE A NEW PARAGRAPH. 
IF YOU WRiTE LK'FS THAT ARE APPROXIMATELY THE WIDTH TO BE 
PRINT! D YOU WILL SAVE A GOOD DEAL OF TIME PRINTING OUT YOUR 

'"HRISTHAS LETT'.R. AS THE COMPUTER WILL NOT HAVE TO 
EXTENSIVELY FROCI SS EACH LINE BEFORE IT SENDS IT TO THE 
LINE PRINTER. 

BE CERTAIN TO MENTION NEWS ABOUT EACH MEMBER OF THE FAMILY: 
NORMAN HAS HAD AN ARTICLE PUBLISHED IN BO- MICROCOMPUTING. 
WE :*3PE YC'J :iAVF '<EEN ENJOYING YOUR P"PLISHING 

MAGAZINES DURING THE FAST YEAR'. 

HERE'S HOPING YOU HAVE HAPPY HOLIDAYS AT PETERBOROUGH 

AND A HAPPY AND PROSPEROUS NEW YEAR. 

MAX 



Norman" in the salutation of 
your yuletide letter. "Special in- 
terests" allows you to include a 
statement about each person's 
hobby or profession. (If you 
can't think of anything to say 
here, the letter writing program 
will substitute "leisure time" 
whenever this statement is 
missing). 

The subroutine in lines 
6140-6190 permits you to 
remove names from your ad- 
dress list. 

Program Listing 1 produces a 
copy of the address list on your 
line printer. It also allows you to 
record your receipt of cards at 



the end of the season. 

Updating 

Once you have your Christ- 



VALUE OF J 


LISTED PROGRAM 


1 


LAST NAME 


2 


FIRST NAME 


3 


STREET ADDRESS 


4 


CITY 


5 


STATE 


6 


ZIP CODE 


7 


CARD RECEIVED? 


8 


SALUTATION 


9 


SPECIAL INTEREST 




Table 1 



Program Listing 1 




1 REM CHRISTMAS ADDRESS PROGRAM 

2 REM BY NORMAN S. KERR 

3 REM 1571 BURTON STREET 

4 REM ST. PAUL, MINNESOTA 55108 

5 REM TO BE USED TOGETHER WITH CHRISTMAS 


LETTER PROGRAM 




Program continues 
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RACET SORTS — RACET UTILITIES - RACET computes — RACET SORTS — RACFT UTILITIES — RACET computes — RACET SORTS — RACET UTILITIES RACET computes - 

i 2 

I FROM THE LEADER IN UTILITY SOFTWARE FOR THE TRS* COMPUTERS § 

1 8 
8 ** NEW ** HARD/SOFT DISK SYSTEM (MOD II) $400 3 

5 The Hard Disk Software Implementation You Have Been Waiting For!! MOD II TRSDOS compatible — 

i using Cameo controller interface to popular large hard disk fixed/removable combinations (Ampex, CDC, > 

J, Diablo, Pertec, Wanco, etc.). Compatible with your existing programs — change only 'filename'. All disk § 

p BASIC statements identical. Improved dynamic file allocation. A single file can be as large as one disk — § 

^ 20 megabytes or larger. Alternate mode allows 24-million byte record range. Directory expandable to =j 

^ handle thousands of files! Includes special XCOPY, DCS, and SZAP utilities for use with hard or soft disks. E 

q Parameterized FORMAT utility includes options for specifying the number of sectors/track, platters/drive, 

■ sectors/granule, sectors/directory, etc. > 

£ *• NEW ** BASIC LINK FACILITY 'BLINK' (Mod I Mln 32K 1-disk) $25 Mod I, $50 Mod II IS 

§ Link from one BASIC program to another saving all variables! The new program can be smaller or larger I 

g than the original program in memory. The chained program may either replace the original program, or can | 

2 be merged by statement number. The statement number where the chained program execution is to begin 

i may be specified! > 

| INFINITE BASIC $49.95 (Mod I Tape or Disk) j 

| Extends Level II BASIC with complete MATRIX functions and 50 more string functions. Includes RACET § 

£ machine language sorts! Sort 1000 elements in 9 seconds!! Select only functions you want to optimize f 

< memory usage. x 

J, INFINITE BUSINESS $29.95 (Requires Infinite BASIC) § 

£ Complete printer pagination controls — auto headers, footers, page numbers. Packed decimal arithmetic — 5 

p 127 digit accuracy + , -,*,/. Binary search of sorted and unsorted arrays. Hash codes. 5 

t COMPROC $19.95 (Mod I — Disk only) » 

< Command Processor. Auto your disk to perform any sequence of instructions that you can give from the x 
i keyboard. DIR, FREE, pause, wait for user input, BASIC, No. of FILES and MEM SIZE, RUN program, £ 
£ respond to input statements, BREAK, return to DOS, etc. Includes lowercase driver software, debounce g 
S and screenprint! | 

S GSF $24.95 Mod I, $50.00 Mod II (Mod I Tape or Disk — Specify Memory Size) I 

°f Generalized Subroutine Facilities. The STANDARD against which all other sorts are compared! Machine x 

» language — fast and powerful! Multi-key multi-variable and multi-key character string. Zero and move o 

I arrays. Mod II includes USR PEEKS and POKES. Includes sample programs. 2 

8 DSM $75.00 Mod I, $150.00 Mod II. (Mod I Min 32K2-drive system. Mod II 64K 1-drive) 3 

u Disk Sort/Merge for RANDOM files. All machine language stand-alone package for sorting speed. Establish x 

* sort specification in simple BASIC command File. Execute from DOS. Only operator action to sort is to & 

<2 change diskettes when requested! Handles multiple diskette files! Super fast sort times — improved ™ 

| disk I/O times make this the fastest Disk Sort/Merge available on Mod I or Mod II. | 

| UTILITY PACKAGE $150.00 (Modll64K) I 

§ Important enhancements to the Mod II. The file recovery capabilities alone will pay for the package in even ^ 

7 one application! Fully documented in 124 page manual! XHIT, XGAT, XCOPY and SUPERZAP are used to £ 

£ reconstruct or recover data from bad diskettes! XCOPY provides multi-file copies, 'wild-card' mask select, J 

absolute sector mode and other features. SUPERZAP allows examine/change any sector on diskette § 
t including track-0, and absolute disk backup/copy with I/O recovery. DCS builds consolidated directories I 
§ from multiple diskettes into a single display or listing sorted by disk name or file name plus more. Change 8 

1 Disk ID with DISKID. XCREATE preallocates files and sets 'LOF' to end to speed disk accesses. DEBUGII x 
j adds single step, trace, subroutine calling, program looping, dynamic disassembly and more! ! * 

I BASIC CROSS REFERENCE UTILITY $50.00 (Modll64K) § 

1 SEEK and FIND functions for Variables, Line Numbers, Strings, Keywords. 'All' options available for line 5 
u numbers and variables. Load from BASIC — Call with 'CTRL'R. Output to screen or printer! 

f DEVELOPMENT PACKAGE $125.00 (Modll64K) | 

ijj Includes RACET machine language SUPERZAP, Apparat Disassembler, and Model II interface to the c 

j Microsoft 'Editor Assembler Plus' software package including uploading services and patches for Disk I/O. f 

= Purchase price includes complete copy of Editor Assembler-*- and documentation for Mod I. Assemble = 

5 directly into memory, MACRO facility, save all or portions of source to disk, dynamic debug facility " 

2 (ZBUG), extended editor commands. ^ 41 El d*pct computes ^ > 

I CHECK VIS* M/C. C ru*CM*$£ 0»0E« ' ' B V 5-. 5 a -r 3 Vf •»; • ict~l • -■ C J C 

« Circle reader request for free 24-page catalog i*»»*mon«t*cf9*tm*) 137-501* :-.■-.■*■*■■:■■ to pihm«i« or»»«e ca vm> z 

£ DEALER INQUIRIES INVITED 

« RACET SORTS - RACET UTILITIES - RACET computes - RACET SORTS - RACET UTILITIES - RACET computes - RACET SORTS - RACET UTILITIES - RACET computes - 
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1141 
1151 



I86 
1070 



10 CLEAR 10000 

20 DIN ASU00.9) , ZS(9) 

30 ZS(1)-"LAST NAME": Z$(2)« "FIRST NAME* 

40 ZS(3)-'STREET ADDRESS': ZS (4) -"CITY" : Z$(5)- "STATE" 

SB ZS(6)- "ZIP CODE": Z$(7)- "CARD RECEIVED" 

60 Z$(8)- "SALUTATION": Z$ (9) ""SPECIAL INTERESTS" 

100 CLS 

110 PRINT: PRINT'NENU - " 

120 PRINT,, "1 RETRIEVE LIST FROM CASSETTE" 

130 PRINT, ,"2 SAVE LIST ON CASSETTE" 

140 PRINT,, "3 DISPLAY LIST" 

150 PRINT, ,"4 ADD NAMES TO LIST" 

160 PRINT,, "5 EDIT LIST" 

170 PRINT,, "6 ALPHABETIZE LIST" 

17 5 PRINT,, "7 PINISHED WITH PROGRAM' 

180 INPUT "MAKE YOUR CHOICE"; A 

190 ON A GOTO 1000,2000,3000,4000,5000,6000,7000 

1000 REM RETRIEVE LIST FROM CASSETTE 

1010 CLS: PRINT* 320, "LOAD TAPE AND PRESS 'PLAY'" 

1020 PRINT: INPUT "HIT 'ENTER' TO CONTINUE" ;D 

1030 IN-0 

I-IM:PRINT:PRINT"TAPE READ IN PROGRESS." 

1-1*1: INPUT»-1,A$(I,1), A5(I,2),AS(I,3),AS(I,4),A 

$(I,5),AS(I,6) ,A$(I,7),A$(I,8),AS(I,9) 

IF A$(I,1)<>"END OF FILE" THEN GOTO 1050 

I-I-l 

1080 PRINT: PRINT I " RECORDS READ" 

1090 INPUT "HIT 'ENTER' TO CONTINUE" jD 

1100 GOTO 100 

2000 REN STORE LIST ON CASSETTE 

2010 CLS:PRINT0320, "LOAD TAPE - PRESS 'PLAY' AND 'RECO 
RD'" 

2020 INPUT "HIT 'ENTER' WHEN READY TO CONTINUE" ;D 

2030 II-I 

2040 A$( I 1+1,1) -"END OF FILE" 

2050 FOR 1-1 TO II + l 

2060 PRINTI-1,A$(I,1),A$(I,2),A$(I,3),A$(I,4),A$(I,5),A 
S( I, 6), AS (I, 7), AS (I, 8). AS (I, 9) 

2070 NEXT I 

2080 I'll 

2090 PRINT: PRINT I "RECORDS SAVED ON TAPE* 

2100 INPUT 'PRESS 'ENTER' TO CONTINUE" ;D 

2110 GOTO 100 

3000 REM DISPLAY LIST 

3010 PRINT: PRINT "-1 DISPLAY LIST ON CRT" 

3020 PRINT"-2 PRINT LIST ON LINE PRINTER" 

3030 PRINT"-3 RETURN TO MAIN MENU" 

3040 INPUT "HAKE YOUR CHOICE (1, 2, OR 3)";A 

3050 ON A GOTO 3100,3200,100 

3100 REM DISPLAY LIST ON CRT 

3120 FOR 1-1 TO II 

3130 FOR J-l TO 9 

3140 PRINT Z$(J)":*; 

3150 PRINT,A$(I,J) 

3160 NEXT J 

317 INPUT "PRESS 'ENTER* TO CONTINUE" ;D 

3180 CLS: NEXT I 

3190 I-II:GOTO 100 

3200 REM PRINT ON LINE PRINTER 

3210 II-I 

3220 CLS: PRINT" MAKE CERTAIN LINE PRINTER IS TURNED ON." 

3230 INPUT "PRESS 'ENTER' TO CONTINUE" ;D 

3240 FOR J-l TO 9 

3250 LPRINT ZS(J) 

3260 NEXT J 

3270 LPRINT 

3280 FOR 1-1 TO II 

3290 FOR J-l TO 9 

3300 LPRINT AS (I, J) 

3310 NEXT J 

3320 LPRINT 

3330 NEXT I 

3340 I-II 

3350 LPRINT CHR$(11) 

3360 GOTO 3000 

4000 REM ADD NAMES TO LIST 

4010 CLS: I-I+l 

4020 FOR J-l TO 9 

4030 PRINT Z$(J)i 

4040 INPUT AS (I, J) 

4050 NEXT J 

4060 PRINT: PRINT, "-1 SAVE THIS ENTRY" 

4070 PRINT, "-2 EDIT THIS ENTRY" 

4080 PRINT, "-3 DISCARD THIS ENTRY" 

4090 INPUT "CHOOSE 1, 2, OR 3"; A 

4100 ON A GOTO 4200,4300,4400 

4200 REM SAVE THIS ENTRY 

4210 CLS: PRINT: PRINT, "-1 MAKE AN ADDITIONAL ENTRY" 

4220 PRINT, "-2 RETURN TO MAIN MENU" 

4230 INPUT "CHOOSE 1 OR 2"; A 

4240 ON A GOTO 4100,100 

4300 REM EDIT THIS ENTRY 

4310 GOTO 5400 

4400 REM DISCARD THIS ENTRY 

4410 I-I-l: GOTO 4200 

5000 REM EDIT ENTRIES 

5010 PRINT: PRINT, "-1 EDIT ENTIRE LIST" 

5020 PRINT, "-2 EDIT ONE ITEM 

5030 INPUT "CHOOSE 1 OR 2"|A 

5040 ON A GOTO 5100,5300 



5100 REM EDIT ENTIRE LIST 



5110 

5120 

5130 

5140 

S150 

S160 

5165 

5170 

5180 

5185 

5190 

5200 

5300 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5400 

S490 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6880 

6090 

6100 

6110 

6120 

6125 

6130 

6140 

6150 

6160 

6170 

6180 

6190 

7000 

7010 

7020 

7030 

7040 

7850 



CLS: II-I 

FOR 1-1 TO II 

FOR J-l TO 9 

PRINT J; ♦ " "+ZS(J)+": "+AS(I,J) 

NEXT J 

PRINT"10 FINISHED EDITING' 

PRINT" 11 EDIT NEXT ITEM" 

INPUT "WHICH ITEM DO YOU WISH TO CHANGE"; A 

IF A-10 GOTO 100 

IF A-ll THEN NEXT I 

INPUT AS (I, A) 

GOTO 5130 

REM EDIT ONE ITEM 

CLS: INPUT "LAST NAME OF ITEM TO BE EDITED"; BS 

II-I 

FOR 1-1 TO II 

IF A$(I,1)-B$ THEN GOTO 5400 

NEXT I 

I-II 

PRINT" SORRY THAT ITEM NOT FOUND" 

INPUT "PRESS 'ENTER* TO CONTINUE" ;D 

GOTO 100 

REM EDIT ONE ITEM 

FOR J-l TO 9 

PRINT J" "+Z$(J)+": "+A$(I,J) 

NEXT J 

PRINT "10 - FINISHED EDITING" 

INPUT "MAKE YOUR CHOICE" ;A 

IF A-10 THEN GOTO 100 

PRINT "REENTER LINE "A 

INPUT AS (I, A) 

GOTO 5410 

REM ALPHABETIZE LIST 

CLS : PRI NT : PRI NT" ALPHABETI Z I NG 

IH-I 

FOR 1-1 TO IM-1 

FOR J-l TO 9: AS (0, J) -AS (I, J) :NEXT J:IL-I 

FOR 11-1*1 TO IM 

IF A$(0,1)<-A$(II,1) THEN GOTO 6080 

POR J-l TO 9: AS(0,J)-AS(II,J) :NEXT J: IL-II 

NEXT II 

FOR J-l TO 9: A$(0,J)-A$(IL,J) : NEXT J 

FOR J-l TO 9: AS(IL,J)-AS(I,J) :NEXT J 

FOR J-l TO 9: AS (I, J) -AS (0, J) : NEXT J 

NEXT I 

I-IM 

II-Il 1-1 

IF A$(I,1)<>"" THEN I-II: GOTO 100 

POR 1-1 TO II 

POR J-l TO 9: A$(I,J)-AS((I+1),J): NEXT J 

NEXT I 

I-II-l 

GOTO 6130 

REM EXIT PROGRAM 

PRINT'HAVE YOU SAVED YOUR LIST ON CASSETTE" 

PRINT"-1 YES -2 NO" 

INPUT "ENTER 1 OR 2"; A 

IF AOl THEN GOTO 100 

PRINT "GOODBYE FOR NOW. hOPE I CAN WORK WITH YOU 

LATER". 



Program Listing 2 



1 REM CHRISTMAS LETTER PROGRAM 

2 REM BY NORMAN S. KERR 

3 REM 1571 BURTON STREET 

4 REM ST. PAUL, MINNESOTA 55108 

5 REM TO BE USED TOGETHER WITH CHRISTMAS ADDRESS LIST 
10 CLEAR 10000: DEFINT A-Z : DIM A$(100,9>, B$(50) 

20 CLS: PRINT? 320, "LOAD CHRISTMAS LIST ADDRESS TAPE A 

ND PRESS 'PLAY" 
30 INPUT "HIT 'ENTER' TO CONTINUE"; D 
40 IM-0 

50 I-IM: PRINT: PRI NT "TAPE READ IN PROGRESS." 
60 I-I+l: INPUT#-1,AS(I,1), AS(I,2), A$(I,3), AS(I,4), 

A$(I,5), A$(I,6), A$(I,7), A$(I,8), A$(I,9) 
70 IF A$(I,1><> "END OP FILE" THEN 60 
75 I-I-l 

80 PRINT: PRINT I "RECORDS READ* 
90 INPUT "HIT 'ENTER' TO CONTINUE" ;D 
100 CLS: GOTO 10000 

1000 IF AS(I,9)-" " THEN AS(I,9)-"LEISURE TIME" 
1010 B$(0) - "DEAR " + AS(I,8) ♦"," 
1020 BS(1) - " " 
1030 B$(2)-" MERRY CHRISTMAS. THE KERRS ASKED HE T 

WRITE THEIR" 
1040 BS (3) -"WINTER SOLSTICE LETTER FOR THEM THIS YEAR." 
1050 BS(4)«" I HOPE YOU HAVE HAD AS GOOD A YEAR AT 

•+AS(I,3) 
1060 B$(5)-'AS WE HAVE HAD AT 1571* BURTON STREET. I DO 



Program continues 
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I'M fl BELIEUER !! 



I Love it !!. . .It's really a incredible O/S. It' just great! 
Now I see why people who have seen it say they are now 
believers. I know I am." lance micklus 



1) Lar9e <S") drive support. 
2> Doubi* S.ded drive support,. 
3> Double Density drive support. 
4) E0 Track drive support. 

*NOTE a I I above drives may be 
i xed on any one system and can 



be 

at Sys9en time or durin* 



M 

conf i su red 
any Backup 1 

5 ■■ W.nc Hester technology f i wed drive 
support. 

any combination of the 
up to a max. of S 



6> Suppoi ts 
above dr > ves 
dr i ves. 

7' Supports 



doub i e-SPeed process* 



f i cations. ifirchboid for 



Improved overlay 
ISAM acctssina 

MP roves loading times by 

purpose output spoolers 

syif.b i ont des 1 sri prov i de 

output and program 

without any user 



Clock mod i 
examp I e I 

8 FASTER' 

structure usms 
techn i Ques 
up to 1600%. 

9> Genera: 
of a true. 
s i mu I taneous 
exec ut i on 
i ntervent i on. 

18> Keyboard Type-Ahead feature 
permits you to enter Keystrokes before 
your programs need them. 

11> User definable keys. ail. 26 
letters. 

12) Built i n Graphic string packer 
lets you enter iraPhiC symbols into a 
BASIC program from the keyboard 
through the use of the (Clear) key. 
The (Clear) key is s imply held down 
(JUSt like the (Shift) keys) during 
other keystrokes and 

v i oi a. . . g raph i cs ' 

13> Dated files. All files are 

accompanied by the date of their last 
modification (creation or write*. 

14) Marked f.ies. Ai i files are 

accompanied by a 'mark' if they have 
been modified Since they were last 
backed up. This Permits the BACKUP 
ut i i i ty to copy on i y those f i I es wh i ch 
have actual ly been updated since a 
previous backup. 

15) File transfer by class. Ai lows 
transferring of all files of a similar 
directory classification such as /CMD. 
/BAS. /PCL. etc. 



VTOS 
4.0 

VTOS 4.0 

Operating System 

Diskette with 
Operator's Guide 

$99.95 

VTOS 4.0 

Master 

Reference Manual 
$29.95 

VTOS 4.0 

Combination - 

4 .0 disk. 

Operator's Guide, 

and Master 
Reference Manual 

$125.00 



16) Built-in SYSTEM command contains 
lower case display driver. screen 
prmt. break key disable. blinking 
cursor, disk drive stepping rate and 
motor-on delay modifications. and 
more. 

17» User may SYSGEN a custom VTOS 
system configuration containing 
special I/O drivers. device LINKmg 
and ROUTE, ng. SPOOL , r,g and DEBUG 
tasks. etc. which Mill be 
automat i ca i i y i oaded du r i ng the BOOT 
process without ream r ins a more 
lengthy AUTO and CHAIN procedure. 

18'' Non-BREAKabie AUTO and CHAIN 
commands. 

19) Wild-card DIRectory. Permits you 
to locate aii files of a certain 
classification such as '/BAS'. 
Uniformly indicates file s i ze in K 
i 1024 bytes) regardless of drive type. 
"DIP. D" would give you all your files 
that start with "D". 

28> Dynamic file name defaults in 
APPEND. COPY, and RENAME commands 
a I I ow you to spec i f y on I y in i n i ma I 
information about f i le names. 

21) COPY and APPEND commands execute 
up to 300% faster. 

22> ALLOCate command for 
pre-a I I ocat i on and non- re I eas i b i I i t y 
of file space. File space mil never 
shrink if this OPtion used. 

23) MEMORY command for directly 
setting upper memory iim.t. 

24) Variable Length file support is 
incorporated which automatically 
blocks short user data records both 
within a sector and across sector 
boundaries thereby taking maximum 
advantage of d i sk file space. 

25) No security d ■ sk needed to make 
backups or to run the system' 

26) Though many 0/S bear his des.sn 
and code VTOS 4.0 is the only Fu i i y 
Op roved Operating System by Randy 
Cook' And it is FANTASTIC 

27) Endorsed by Scott Adams and Lance 
Mi ck I us! 



VTOS and VTOS 4.0 are registered trademarks of VIRTUAL TECHNOLOGY, INC. - Dallas, Texas 75234 

Available from the following distributors or 
your local computer store, dealer inquiries invited 

5% Discount Just For Mentioning This Ach (Valid month of this publication ONLY) 



QUALITY 

SOFTWARE 

DISTRIBUTORS 

11234 Park Central PI Suite C 
Dallas Texas 75230 

(214) 692-1055 

Micronet - 70130,203 

SOURCE - TCC293 



/^Adventure 

^^#^ INTERNATIONAL ' 91 

ADVENTURE INTERNATIONAL 

Box 3435. Longwood, Fla. 32750 

(305) 862-6917 - Voice 

after 8:00 - same number 

as FORUM 80. (SOURCE - TCC957) 



ft 



SMALL BUSINESS 

SYSTEMS 

GROUP 



Carlisle Rd. 
Westford, Mass 01886 

(617) 692-3800 - Voice 

(617) 692-3973 - FORUM 80 

Micronet - 70310,236 



Prices subject to change without notice. 



NOT WISH ON YOU" 
1B70 B$(6)-"IN "+A$(I,4)+", "+A$(I,5)+" AS MUCH COLD WE 

ATHER AS WE HAVE HAD." 
1080 BS(8)»" NOTE THAT I HAVE LEFT SPACES TO INDICA 

TE A NEW PARAGRAPH." 
1090 B$(9)«"IF YOU WRITE LINES THAT ARE APPROXIMATELY T 

HE WIDTH TO BE" 
1100 BS(10)="PRINTED YOU WILL SAVE A GOOD DEAL OF TIME 

PRINTING OUT YOUR" 
1110 B$(ll)=" CHRISTMAS LETTER, AS THE COMPUTER WILL NO 

T HAVE TO" 
1120 B$ (12) «" EXTENSIVELY PROCESS EACH LINE BEFORE IT SE 

NDS IT TO THE LINE PRINTER." 
1130 B$(13)=" " 
1140 B$(14)=" BE CERTAIN TO MENTION NEWS ABOUT EACH 

MEMBER OF THE FAMILY:" 
1150 BS(15)=" NORMAN HAS HAD AN ARTICLE PUBLISHED I 

N 80-MICROCOMPUTING." 
1160 B$(16)«" WE HOPE YOU HAVE BEEN ENJOYING YOUR " 

+ AS (I, 9)+" DURING THE PAST YEAR." 
1170 BS(17)=" HERE'S HOPING YOU HAVE HAPPY HOLIDAYS 

AT "+A$(I,4)+" AND A HAPPY AND PROSPEROUS NEW YEAR 

1180 B$(18)=" " 

1190 BS(19)=" MAX" 

2000 RETURN 

10000 REM PRINT ON LINE PRINTER 

10020 11*1 

10030 FOR I«l TO II 

10040 GOSUB 1000 

10050 LPRINT CHRS114)" CHRISTMAS 1980" 

10060 LPRINT CHR$(1S): LPRINT: LPRINT 

1007 FOR N=0 TO 19: REM CHANGE TOP NUMBER TO NUMBER IN 

B$(X) 
10080 LA=LEN(BS(N) ) 

10090 IF LA<65 AA$=B$(N): GOTO 10250 
10100 X=60 

10110 AA$=LEFT$(B$(N) ,X) 

10120 IF RIGHTS (AA$,1)<>CHR$ (32) X-X-l: GOTO 10110 
10130 LB=LA-LEN(AAS) 

10140 IF LB<60 AB$-MID$(B$(N) , (Xtl) ,LB) : GOTO 10250 
10150 Y=60 

10160 AB$=MID$(BS(N) , (Xtl) ,Y) 

10170 IF RIGHT$(AB$,l)OCHR$(32) Y-Y-l: GOTO 10160 
10180 LC=LB-LEN(ABS) 

10190 IF LC<60 AC$=MID$(B$(N) , (X+Y+1),LC) : GOTO 10250 
10200 Z=60 

10210 ACS = MIDS(B$(N) , (X + Y+l) ,Z) 

10220 IF RIGHT$(AC$,l)OCHR$(32) Z-Z-l: GOTO 10210 
10230 LD=LC-LEN(ACS) 

1024 AD$=MIDS(B$(N) , (X + Y-tZ + 1) ,LD) 
10250 LPRINT" "+ AAS 

10260 IF LEN(ABS)>1 LPRINT " 
10270 IF LEN(AC$)>1 LPRINT " 
10280 IF LEN(AD$)>1 LPRINT" 



"+ABS 
"+ACS 

'+ AD$ 



10290 AAS="": AB$="": ACS=" 

10300 NEXT N 

10310 LPRINT CHRS(ll) 

10320 NEXT I 

10330 I'll 

10340 END 



ADS' 



mas mailing list stored on a 
computer file, you need to up- 
date this file only once a year. 
As you receive cards from your 
friends, check their mailing ad- 
dresses and make any neces- 
sary corrections. Then on a cold 
night in January transfer the 
necessary corrections to your 
computer file. If you wish, you 
can record the receipt of a card 
while in the 'edit entire file' 
mode. 

Letter-writing (Program List- 
ing 2) is quite simple. The ad- 
dress list is stored in the two-di- 
mensional string array A$(I,J). 
The message to be printed is 
stored in the string array B$(W). 
Elements of the A$(I,J) array 
should be incorporated into 
B$(W) as often as possible— 
this is what personalizes your 
Christmas letters. 

Once you have finished 
writing your letter, you will know 
the value of W, which must be 
changed in the line-print routine 
in line 10070. It is important that 
B$(W) arrays be reloaded after 
each letter has been printed and 
I has been incremented, so that 
the new elements from A$(I,J) 
will be printed with each letter. 

Margin Routine 

An important feature of the 
line printer routine, which may 
be useful in other programs, is 
included between lines 10080- 
10290. These lines prevent 
words from being split at the 
end of the printer's line. I arbi- 



trarily set the margins at 10 
spaces (lines 10260-10280) and 
set the printer's line at 60 char- 
acters and spaces in lines 
10100, 10150, and 10200. 

When typing in your B$(W) 
statements, you should try to 
cut down the use of this sub- 
routine by keeping most lines at 
less than 60 characters. If you 
make too frequent use of this 
feature, you will think that your 
computer has crashed when the 
printer pauses (an understate- 
ment) in the middle of a letter. 
The program as presented in the 
Sample Letter causes no such 
hang-ups. 

My TRS-80 is named Max. 
Substitute your computer's 
name here, or reword this por- 
tion of the letter to your taste. 
Max is a TRS-80, LEVEL II. with 
32K RAM and an Anadex DP- 
8000 printer. The CHR$(14) in 
line 10050 causes the Anadex to 
print in boldface. The CHR$(15) 
in line 10060 restores it to nor- 
mal printing. 

Before attempting to produce 
individualized letters for your 
entire list, construct a dummy 
list containing, say. three en- 
tries. This will enable you to be 
certain your program is de- 
bugged, and allow you to set the 
top of page at the appropriate 
place on your printer. 

I hope you will enjoy the pro- 
gram. If you don't send Christ- 
mas letters, send them out on 
Valentine's Day!B 
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TRSSO* 

CANADIAN INCOME 

TAX 1980 

CAN TAXI Disk 

A complete Tl lorm including schedules 1 to 10 and Provincial 
forms Formulated printouts tor aM torms Requires 32K ano I 
DM D'.ve 

H5O0O 

CAN TAXI Tape 

A complete Tl form only No schedules Requires 16K 

MUM 
TAX COURSE 

A complete income lai covse 'or home study plus a complete 
listing of the tai program 

1200 0C 

NEW OLIVITTI ET-UI 

Daisey wheel letter quality typewriter printer compteteiy MM 
laced *dh any TRS 80" No hardware required 16* minimum 

J2799 00 
A'i orders shipped r<)B Warehouse 
Ontario Residents add '••. SALE S TAX 
Terms Cheque Money Oder visa NO COD 

J R Software ^ 155 

910 Wilson Ave 

Doons.ie. CM MJK lb 7 

4 - 61 Mt> H690 



Football Pool Program 

Use your TRS-80 disk system Hun your weekly oHice 
lootbali pool witn this menu driven p'ogram This pto 
g-arn includes a pre p-ogrammed 1980 Nfl football 
schedule Options include Monday 'vght tootbal'. do it 
spreads pre-programmed NFL games or your own col- 
ege selections Program automatically computes win- 
ners 5 35 00 Inc'udmg d'Sk 

Truss Industry Software 

Requires 3?k one disk drive, and printer Complete 
Cutting bill package mc'udes special program Cassette 
Systems also available Software computes all truss 
configurations w>th many ncludmg material costs 
System currently "-i use by mate truss manufacturer 
call or write for details 

Both programs av atmb* from: 

DATA TRUSS, INC 

p O Box 14642 

Gainesville Florida 32 604 

1904) 372 1660 



►^453 



^^^ 
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A new enhonced NEWDOS for the TRS-60. 

The mosr powerful Disk Operating System for rhe TPS60. 
designed for the sophisticated user ond professional program- 
mer who demonds the ultimote 

NEWDOS/fiO is rhe plonned upgrode from NEWDOS 2 1 
Some of rhe feotures ore 

• New BASIC commonds for files wirh vorioble record 
lengths up to 4095 

• Mix or march drives Use 35 40 or 80 track 5" disk 
drives or 8" disk drives, or combo 

• Security boor-up for BASIC or mochine code opplico 
non programs 

• New edirmg commands 

• Enhonced fXENUMber that ollows relocation 

• Commond choming 

• Device handling for routing ro display and printer 
simultaneously 

• DFG function, striking of D F ond G keys allows user ro 
enter a mini-DOS without disturbing program 

• Compatible with NEWDOS o TRSDOS 

• Machine longuoge Superzap/80 2 1 J, A >f Q 
utihries and enhanced debug and copy 

NEW 

TF-8 80 TRACK DISK DRIVE 

Double Your Capacity Ov7 

TF-9 DUAL 80 TRACK DISK DRIVE J70A 
Quadruple Your Capacity / 0# 



Disk Drive Sole! 

Ccynpiete wtrh pover supply ond chassis 

TF 3 Shugort SA400 % 309 

Pertec FD200. 40 rrock $379 

TF5MPIB51. 40 track $369 

TF7 Micropolis 77 rrock $574 

TDH 1 Dual S.ded drive 35 rrock $499 

TF-3M Drive Sys 2 Shugort $698 

NEWDOS* 

40 rrock $ 1 1 35 rrock $99 

Microconducror Data Base Mgr 

Modi $249 Mod II $399 

AJA Business Pgk $359 

TheSource $100 

Basic Compiler $ 1 9 5 

Drives for any Microcomputer 

Does not include power supply & cabinet. 
PenecFD200 1282 FD250 S359 

Shugon SA400 $279 SAflOO/801 S479 

MPID51 S279 052 $049 

Mf* 091 $399 092 $525 

Printers 

CenrronK: 779 $1,069 

Dose 2 $649 

Centronics 737 $939 

Centronics 702 9 $1,995 _ • 

Anodex9501 $1,549 

Mol.bu $2,495 m. __^ 

Spinwnrer $2,549 Daisy Wheel #1,779 



add-ons for TRS-80® 
Software and Hardware 



FACTORY 

CLEARANCE 



Apparatlnc. 



Demo single or duol heod MP1 disc 
drive complete with Power Supply 
ond Chassis Full warranty 



$ 279 




TF5D40TK 

TDH-1DDuoI35TK *41 9 

limited quantities 

[Announcing 
Floppy Disk Drive System 

for Model I 

• One SA801 Floppy 

• NEWDOS 80 

• Coble & Adopter 

M095 



Disk Exponsion System 

• 2 ShugorT SA400 TF-3 S716 

• 1 Two- Drive Coble $ 25 

• 1 Exponsion Interface 32K S469 

• 1 35-rrackDOS* % 99 
TOTAL LIST PRICE $1331 

SPECIAL PRICE ONLY jl f I 4 V 

Some os above bur 

includes TRS 80* tAr\*r\ 

Levelll $1949 

MOD II 8" Disk System 

• 1 Orve System $949 

• 2 DV've Exponsior. Syve— $ 1 ,445 

More Savings 

INTRODUCTORY OFFER 

SAVE $300 

TRS-60 Graphics 
"•» ; Ust $949 

OKIDATA %AAQ 

MICROUNE80 Q*fl 

ryKit(16K) 
otor (6 socket) 
?od Cleaner 
es(10) 

M" 1 l > fitiW$i 



Memory Kit (16K) 


$49.00 


AC Isolator (6 socket) 


$49.95 


Disk Head Cleaner 


$19.95 


Diskettes (10) 


$30.00 



/VHCROCOVPUTER 
TKHKXOGY 



4401 South lomaroc Parkway • Denver. CO 80237 • (303) 741-1 778 / 3304 W MacArthgi • Santa Ana. CA 92704 • ( 714) 979-9923 

AM prices aahdkcoiMted/Frcfclrt: FOt factory. Ask for omt free catalog. 



TELEX 
676-401 

TAINUN 



^Reader Service— see page 274 
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• ••EVERYTHING FOR YOUR TRS-80 ••• 

TRS-SO Is a trademark of the Radio Shack Division of Tandy Corporation 



100 supe* j MASTER PAC 100 

UttOG^^ [ Jtad EPITION^OMPLETELY REVISED) \ 

FOR YOUR TRS-80™ LEVEL II MICROCOMPUTER 



ALL ON CASSETTE OR DISKETTE 



BUSINESS AND PERSONAL FINANCE 



CHECKBOOK MAINTENANCE 

TIME FOR MONEY TO DOUBLE 

FEDERAL F1CA & WITHHOLDING TAX 

COMPUTATIONS 

HOME BUDGET ANALYSIS _ — 

ANNUITY COMPUTATION .,clUt,S' 

UNIT PRICING ttVJ^* 1 ^ 

CHANGE FROM PURCHASE wm 

8 NEBS CHECK PRINTER 

9 DAYS BETWEEN DATES 

10 MORTGAGE AMORTIZATION TABLE 

11 INVENTORY CONTROL 

12 PORTFOLIO VALUE COMPUTATIONS 

13 VALUE OF A SHARE OF STOCK 

14 SALES RECORD KEEPING SYSTEM 

15. FUTURE VALUE OF AN INVESTMENT 

16. EFFECTIVE INTEREST RATE (LOAN) 

17. PRESENT VALUE OF A FUTURE AMOUNT 
18 RATE OF RETURN VARIABLE INFLOW 

19. RATE OF RETURN CONSTANT INFLOW 

20. REGULAR WITHDRAWAL FROM INVESTMENT 

21. STRAIGHT LINE DEPRECIATION 

22. SUM OF DIGITS DEPRECIATION 

23. DECLINING BALANCE DEPRECIATION 

24. BREAK EVEN ANALYSIS 

25. SALVAGE VALUE OF INVESTMENT 

26. PAYMENT ON A LOAN 

27 FUTURE SALES PROJECTIONS 

28 CREDIT CARD FILE 

29. ECONOMIC ORDER QUANTITY (EOQ) 
INVENTORY MODEL 

30. VALUE OF HOUSE CONTENTS 

31 TEXT EDITOR 

32 MONTHLY CALENDAR 

33 DAY OF WEEK 

34 CASH FLOW VS DEPRECIATION 

35. COMPLETE MAIL SYSTEM 

36. INTEREST RATE ON A LEASE 



TfST ics 



T ^E*SO*Al< 



STATISTICS AND MATHEMATICS 

37. RANDOM SAMPLE SELECTION 

38 ANGLO METIC CONVERSION 

39 MEAN. STANDARD DEVIATION. 
MAXIMUM AND MINIMUM 

40 SIMPLE LINEAR REGRESSION 

41 MULTIPLE REGRESSION ANALYSIS 

42 GEOMETRIC REGRESSION 

43 EXPONENTIAL REGRESSION 

44 SIMPLE MOVING AVERAGE 
45. SIMPLE T TEST -,— » * ' 
46 CHI SQUARE TEST 5 I *• 
47. NORMAL PROBABILITIES 

48 BINOMIAL PROBABILITY 

49 POISSON PROBABILITY 

50 MATRIX ADDITION AND SUBTRACTION 

51 MATRIX TRANSPOSE 

52. MATRIX INVERSE 

53. MATRIX MULTIPLICATION 

54. SOLUTION OF SIMULTANEOUS EQUATIONS 

55. QUADRATIC FORMULA 

56. LINEAR EQUATION SOLUTIONS 

57. ROOT HALF INTERVAL SEARCH 

58. ROOTS OF POLYNOMIALS 

59. ROOTS NEWTON'S METHODS 

60. PRIME FACTORS OF INTEGER 

61. LEAST COMMON DENOMINATOR 
62 RADIAN DEGREE CONVERSION 
63. NUMERICAL INTEGRATION 

UTILITIES 

64 QUICK SORT ROUTINE 

65 PROGRAM STORAGE INDEX 

66 MULTIPLE CHOICE QUIZ BUILDER 

67 FORM LETTER WRITER 

68 SHELL SORT 

69 CASSETTE LABEL MAKER 

70 CODES MESSAGES 

71 MERGE TWO FILES 

72 SORT WITH REPLACEMENT 



MATH 



GRAPHICS 

73 DRAWS BAR GRAPH 

74 DRAWS HISTOGRAM 
75. MOVING BANNER DISPLAY 

GAMBLING AND GAMES 

76 RANDOM SPORTS QUIZ 

77 GOVERNMENT QUIZ 

78 HORSE RACE 

79 MAGIC SQUARE 

80 ARITHMETIC TEACHER 

81 HIGH LOW GAMBLE 

82 UNSCRAMBLE LETTERS 

83 HANGMAN 

84 GAME OF NIM 

85 RUSSIAN ROULETTE 

86 ROULETTE GAME 

87. ONE ARMED BANDIT 

88. HIT THE TARGET 

89. WALKING DRUNK 

90. STATE CAPITAL QUIZ 

91. TIC TAC TOE 

92. DICE GAME 

93. LUNAR LANDAR GAME 
94 BIORHYTHM 

95. HORSE SELECTOR (CLASS CALCULATOR) 

96 RANDOM DICE ROLL 

97 RANDOM ROULETTE ROLL. 

98 RANDOM CARD DEALER 

99 GUESS THE NUMBER 
100 WHITE OUT SCREEN 



G M*»t»* G 



uoPA GB 

USE* 



— =£»■ 



GUARANTEED SATISFACTION 

WE ARE THE ONLY SOFTWARE COMPANY THAT OFFERS A REFUND WITHIN 30 DAYS ON ALL SOFTWARE (H & E COMPU 
TRONICS INC. MONTHLY NEWSMAGAZINE SUBSCRIBERS ONLY). WE DO CHARGE A $3 PENALTY TO COVER POSTAGE 
AND HANDLING. 



iCQMPUTRQMCS! 

50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

PLEASE SEND ME: 

D MASTER PAC 100 CASSETTE VERSION $59.95 

D MASTER PAC 100 DISKETTE VERSION $59.95 

□ MASTER PAC 100 (MODEL II DISKETTE VERSION) $99.95 



HOUR 

ORDER 

LINE 



(914) 425-1535 




NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 

* All orders processed within 24-Hours 

* 30-Day money back guarantee on all Software 
(less a $3 penalty for handling) 



CREDIT CARD NUMBER EXP. DATE. 



SIGNATURE. 



NAME 

ADDRESS CITY STATE ZIP 

••• ADD $2 FOR POSTAGE AND HANDLING ($4 OUTSIDE OF THE USA.) ••• 
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iCQMPUTRQNICSi 

EVERYTHING FOR YOUR TRS-80 ••• 

TRS-80 Is a irademarK of the Radio Shack Division of Tandy Corporation 

BUSINESS PAC 100 

100 Ready-To-Run 
Business Programs 




Software (less 



(ON CASSETTE OR DISKETTE) Includes 110 Page Users Manual 5 Cassettes (Or Diskettes) 

Inventory Control Payroll Bookkeeping System Stock Calculations 

Checkbook Maintenance. ....Accounts Receivable.. ...Accounts Payable 



BUSINESS 100 PROGRAM LIST 



1 RCJLE78 Interest Apportionment by Rule of the 78 s 

2 ANNU1 Annuity computation program 

3 DATE Time between dates 

4 DAYYEAR Day of year a particular date falls on 

5 LEASEJNT Interest rate on lease 

6 BREAKEVN Breakeven analysis 

7 DEPRSL StraightJine depreciation 

8 DEPRSY Sum of the digits depreciation 

9 DEPRDB Declining balance depreciation 

1 DEPRDDB Double declining balance depreciation 

1 1 TAXDEP Cash flow vs. depreciation tables 

12 CHECK2 Prints NEBS checks along with dairy register 

13 CHECKBK1 Checkbook maintenance program 

1 4 MORTGAGE/A Mortgage amortization table 

1 5 MULTMON Computes time needed for money to double, triple, 

16 SALVAGE Determines salvage value of an investment 

1 7 RRVARJN Rate of return on investment with variable inflows 

18 RRCONST Rate of return on investment with constant inflows 

1 9 EFFECT Effective interest rate of a loan 

20 FVAL Future value of an investment (compound interest) 

2 1 FVAL Present value of a future amount 

22 LOAM PAY Amount of payment on a loan 

23 REGWTTH Equal withdrawals from investment to leave over 

24 SIMPDISK Simple discount analysis 

25 DATEVAL Equivalent & nonequivalent dated values for oblig. 

26 ANNUDEF Present value of deferred annuities 

27 MARKUP * Markup anafysis for items 

28 SINKFUND Sinking fund amortization program 

29 BONDVAL Value of a bond 

30 DEPLETE Depletion analysis 

31 BLACKSH Black Scholes options analysis 

32 STOCVAL1 Expected return on stock via discounts dividends 

33 WARVAL Value of a wan-ant 

34 BONDVAL2 Value of a bond 

35 EPSEST Estimate of future earnings per share for company 

36 BETAALPH Computes alpha and beta variables for stock 

37 SHARPEl Portfolio selection model -i.e. what stocks to hold 

38 OPTWRrTE Option writing computations 

39 RTVAL Value of a right 

40 EXPVAL Expected value analysis 

4 1 BAYES BayesJan decisions 

42 VALPRINF Value of perfect information 

43 VALADINF Value of additional information 

44 (jnUTY Derives utility function 

45 SIMPLEX Linear programming solution by simplex method 

46 TRANS Transportation method for linear programming 

47 EOQ Economic order quantity inventory model 

48 QUEUE 1 Single server queueing (waiting line) model 

49 CVP Cost-volume-profit analysis 

50 CONDPROF Conditional profit tables 

51 OPTLOSS Opportunity loss tables 

52 FQUOQ Fixed quantity economic order quantity model 

NAME DESCRIPTION 

53 FQEOWSH As above but with shortages permitted 

54 FQEOQPB As above but with quantity price breaks 

55 QtlEUECB Cost-benefit waiting line analysis 

56 NCFANAL Net cash flow analysis for simple investment 

57 PROFIND Profitability index of a project 

58 CAP1 Cap. Asset Pr. Model analysis of project 



59 WACC Weighted average cost of capital 

60 COMPBAL True rate on loan with compensating bal required 

61 DISCBAL True rate on discounted loan 

62 MERGANAL Merger analysis computations 

63 FINRAT Financial ratios for a firm 

64 NPV Met present value of project 

65 PRINDLAS Laspeyres price index 

66 PRINDPA Paasche price index 

67 SEASIND Constructs seasonal quantity indices for company 

68 TIMETR Time series analysis linear trend 

69 TIMEMOV Time senes analysis moving average trend 

70 FUPRINF Future pnce estimation with inflation 

7 1 MAILPAC Mailing list system 

72 LETWRT Letter writing system-links with MAILPAC 

73 SORT3 Sorts list of names 

74 LABEL! Shipping label maker 

75 LABEL2 Name label maker 

76 BUSBUD DOME business bookkeeping system 

77 T1MECLCK Computes weeks total hours from timeclock info 

78 ACCTPAY In memory accounts payable system storage permitted 

79 INVOICE Generate invoice on screen and pnnt on pnnter 

80 INVENT2 In memory inventory control system 

81 TELDIR Computerized telephone directory 

82 TIMUSAN Time use analysis 

83 ASSIGN Use of assignment algorithm for optimal job assign 

84 ACCTREC In memory accounts receivable system storage ok 

85 TERMSPAY Compares 3 methods of repayment of loans 

86 PAYNET Computes gross pay required for given net 

87 SELLPR Computes selling price for given after tax amount 

88 ARBCOMP Arbitrage computations 

89 DEPRSF Sinking fund depreciation 

90 UPSZONE Finds UPS zones from zip code 

91 ENVELOPE Types envelope including return address 

92 AUTOEXP Automobile expense analysis 

93 INSFILE Insurance policy file 

94 PAYROLL2 In memory payroll system 

95 DILANAL Dilution analysis 

96 LOANAFFD Loan amount a borrower can afford 

97 RENTPRCH Purchase pnce for rental property 

98 SALELEAS Sale-leaseback analysis 

99 RRCONVBD Investor's rate of return on convertable bond 
100 PORTVAL9 Stock market portfolio storage-valuation program 



□ CASSETTE VERSION $ 99.95 

□ DISKETTE VERSION $ 99.95 
D MODEL II VERSION $149.95 

ADD $2.00 FOR SHIPPING IN UPS AREAS 
ADD $3.00 FOR C.O.D. OR NON-UPS AREAS 
ADD $4.00 OUTSIDE U.S.A, CANADA & MEXICO 

•CQMPLITRQNXCS? 



•wVTV^v^TCAl AP»*.*^AT« 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 




HOUR ^ 
OA ORDER 
C * L iNE 

^914)425-1535 
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THE ORIGINAL MAGAZINE FOR 
OWNERS OF THE TRS-80™* MICROCOMPUTER 



SOFTWARE 

FOR TRS-80 " 

OWNERS 



H 



CQMPLITRQNICS 



i 

N 
C. 



MONTHLY 

NEWSMAGAZINE 

FOR IRS-80- 

OWNERS 



MONTHLY NEWSMAGAZINE 

Practical Support For Model I, II & III 



• PRACTICAL APPLICATIONS 

• BUSINESS 

• GAMBLING • GAMES 

• EDUCATION 

• PERSONAL FINANCE 

• BEGINNER'S CORNER 

• NEW PRODUCTS 

• SOFTWARE EXCHANGE 

• MARKET PLACE 

• QUESTIONS AND ANSWERS 

• PROGRAM PRINTOUTS 
AND MORE 



FREt* 



PROGRAMS AND ARTICLES PUBLISHED IN OUR FIRST 12 ISSUES 
INCLUDE THE FOLLOWING: 

A COMPLETE INCOME TAX PROGRAM (LONG AND SHORT FORMi 

INVENTORY CONTROL 

STOCK MARKET ANALYSIS 

WORD PROCESSING PROGRAM (FOR DISK OR CASSETTE) 

LOWER CASE MODIFICATION FOR YOUR VIDEO MONITOR OR PRINTER 

PAYROLL (FEDERAL TAX WITHHOLDING PROGRAM! 

EXTEND 16 DIGIT ACCURACY TO TRS 80" FUNCTIONS (SUCH AS 

SQUARE ROOTS AND TRIGONOMETRIC FUNCTIONS) 

NEW DISK DRIVES FOR YOUR TRS 80" 

PRINTER OPTIONS AVAILABLE FOR YOUR TRS 80" 

A HORSE SELECTION SYSTEM***ARITHMETIC TEACHLR 

COMPLETE MAILING LIST PROGRAMS (BOTH FOR DISK OR CASSETTE 

SEQUENTIAL AND RANDOM ACCESS) 

RANDOM SAMPI.1NG'**BAR GRAPH 

CHECKBOOK MAINTENANCE PROGRAM 

LEVEL II UPDATLS-'M EVEL II INDEX 

CREDIT CARD INI ORMA HON STORAGI HI I 

BEGINNERS GUIDE TO MACHINE I ANGUAGE AND ASSEMBLY 

LANGUAGE 

LINE RENUMBERING 

AND CASSr TTE TIPS PROGRAM HINTS. LATEST PRODUCTS 

COMING SOON (GENERAL LEDGER. ACCOUNTS PAYABLE AND 
RECEIVABLE. I-ORTRANW). FINANCIAI APPLICATIONS PACKAGE, 
PROGRAMS LOR HOMEOWNERS. MERGE TWO PROGRAMS. 
STAIISTICAI AND MATHEMATICAL PROGRAMS iBOTH 
ELEMENTARY AND ADVANCED) AND 



r;- 



'•I-.A IKAIUMNkk ( >l I.WDl e OKI' 



WORD PROCESSING PROGRAM For writing letters, text, mailing lists, etc.. with each new subscriptions or renewal 

LEVEL II RAM TEST Clunks random access memory to ensure that all memory locations are working properly 

DATA MANAGEMENT SYSTEM Complete file management for your TRS 80" 

CLEANUP Fast action Maze Game. 

ADVENTURE Adventure »0 by Scott Adams (From Adventureland International) 

* All programs are supplied on cassette (add S3 (or Diskette Version - add S5 for modified Mod-ll Version) 



p *££ 



SEND FOR OUR NEW 18 PAGE SOFTWARE CATALOG (INCLUDING LISTINGS OF HUNDREDS OF TRS 80" PROGRAMS AVAI1 AB1 E ON 
CASSETTE AND DISKETTE) $2 00 OR FREE WITH EACH SUBSCRIPTIONS OR SAMPLE ISSUE 



'miriPLrrBQi^xcs 

50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



ONE YEAR SUBSCRIPTION $24 
TWO YEAR SUBSCRIPTION $48 
SAMPLE OF LATEST ISSUE $ 4 



yt 



HOUR 

ORDER 

LINE 



$& 24 

(914) 425-1535 




NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 



START MY SUBSCRIPTION WITH ISSUE 
(#1 - July 1978 • #7 - January 1979 



NEW SUBSCRIPTION 



#12 - June 1979 
RENEWAL 



018 - January 1980) 



CREDIT CARD NUMBER 

SIGNATURE 

NAME 



EXP DATE 



ADDRESS 



CITY. 



____ STATE. 



ZIP 



••• ADD $6 YEAR (CANADA. MEXICO) ADD $12 YEAR AIR MAII - OUTSIDE Ol USA CANADA & MIXICO "• 
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• • • EVERYTHING FOR YOUR TRS-80 • • • 

TRS-ao !• ■ trademark of ihr Radio Shack Division of Tandy Corporation 

1980 INCOME TAX PAC 

Completely Revised * Latest Tax Tables * Fully Tested • Complete Manual and Documentation 
• • The New Version Of The Income Tax Pacs Are Full Of Error Catching Codes • • 

• • Making It Impossible To Make An Error • • 
— Follow The Simple Step By Step Procedure That Makes Tax Preparation Simple — 



• INCOME TAX PAC A 

FOR LEVEL II 16K 

• DOES FORM 1040 and 1040A 

• SCHEDULE A ITEMIZED DEDUCTIONS 

• SCHEDULE B INTEREST and DIVIDENDS 

• OUTPUT TO VIDEO DISPLAY 

• SCHEDULE C TAX COMPUTATION 



• INCOME TAX PAC B 

FOR LEVEL II with or without Printer, Cassette or Disk. Has all features 
of Income Tax A PLUS, 

• WORKS WITH LINE PRINTER 

• FORMATS FORM 1040 and 1040A FOR TRACTOR FEED FORMS 

• SCHEDULE C INCOME FROM A PERSONALLY OWNED BUSINESS 

• FORM 2106 EMPLOYEE BUSINESS EXPENSE 



• FORM 1040 (LONG FORM) 

• FORM 1040A (SHORT FORM) 

• FORM 2106 EMPLOYEE BUSINESS EXPENSE 

• FORM 2440 DISABILITY INCOME EXCLUSION 

• FORM 2441 CREDIT FOR CHILD AND DEPENDENT CARE EXPENSES 

• FORMS 3903 MOVING EXPENSE ADJUSTMENT 

• FORM 4797 SUPPLEMENTAL SCHEDULE OF GAINS AND LOSSES 



• • PROFESSIONAL • • 
INCOME TAX PAC C 



• SCHEDULE A ITEMIZED DEDUCTIONS 

• SCHEDULE B INTEREST AND DIVIDENDS 

• SCHEDULE C PROFIT (OR LOSS) FROM BUSINESS OR PROFESSION 

• SCHEDULE D CAPITAL GAINS AND LOSSES 

• SCHEDULE E SUPPLEMENTAL INCOME SCHEDULE 

• SCHEDULE G INCOME AVERAGING 

• SCHEDULES R & RP-CREDIT FOR THE ELDERLY 



FOR MODEL I (32K) or MODEL II (64K) 

WITH 1 OR MORE 

DISK DRIVES 

ALL SPECIFICATIONS SUBJECT TO CHANGE 



SCHEDULE SE-COMPUTATION OF SOCIAL SECURITY SELF-EMPLOYMENT TAX 

SCHEDULE TC TAX COMPUTATION 

OUTPUT TO VIDEO OR LINE PRINTER 

FORMATS FOR TRACTOR FEED OR INDIVIDUAL FORM FEED PRINTERS 

AUTOMATIC MEMORY STORAGE FOR INCOME TAX PREPARERS 

INSTANT LINE CHANGE 

BUILT IN ERROR CHECKING 



•cqmplitrqnicsj 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

PLEASE SEND ME: 

D INCOME TAX PAC A ($19.95) 

D INCOME TAX PAC B ($49.95) 

D PROFESSIONAL INCOME TAX PAC C ($99.95) 

D MODEL II PROFESSIONAL INCOME TAX PAC C ($199.95) 



CREDIT CARD NUMBER 
SIGNATURE 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 



.EXP. DATE. 



NAME 



STREET 
CITY 



• A COMPLETE LINE OF NELCO TAX FORMS 

ARE AVAILABLE 

• INDIVIDUAL FEDERAL and STATE FORMS 

• 2 OR MORE PART FORMS 

• TRACTOR FEED FORMS 

• PLASTIC OVERLAYS 



* All orders processed within 24-Hours 
•k 30-Day money back guarantee on all Software 
• Add $2.00 for shipping in UPS Areas 
• Add $3.00 for C.O.D. or NON-UPS Areas 
• Add $4.00 outside U.S.A., Canada & Mexico 




m 



HOUR 
24 ORDER 
LINE 

(914) 425-1535 



_STATE. 



ZIP. 
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• • • EVERYTHING FOR YOUR TRS-80 • • • 

TRS-ao Is • trademark of ihe Radio Shack Division of Tandy Corporation 




COORDINATED 
BUSINESS 



SMALL BUSINESS 
SYSTEMS GROUP 



-k All orders processed within 24-Hours 
•k 30-Day money back guarantee on all Software 
+ Add $2.00 for shipping in UPS Areas 
• Add $3.00 for COD. or NON-UPS Areas 

— « —. - ,—. — ~* , » - — * Add $4.00 outside U.S.A, Canada & Mexico 

SYSTEMS 



FACTS ABOUT THE S.B.S.G. BUSINESS PACKAGES 

1. S.B.S.G. is a sophisticated Business Software System designed for the serious businessman. 

2. Each of the S.B.S.G. Business Modules may be purchased separately, or you may purchase the entire coordinated business system 

3 Modules purchased separately do not coordinate with the General Ledger (although for the standard S.B.S.G. fee. the user may upgrade his 
individual modules for the coordinated system). 

4. Foolproof. Step-By-Step procedures are supplied, planned and documented for the First-Time Computer User. All programs are self- 
explanatory, telling the user what is required at every step 

5 Programs are written in BASIC and the source code listing is supplied for those users who decide to modify the original system 

6 A complete users manual is supplied with each module 

7 Demo Data diskettes are supplied with sample data 

8 S.B.S.G. has an In-House staff that can answer questions and problems related to the proper use of the S.B.S.G. Business System (on the 
telephone or through the mail) 

9 First-Time Computer Owners Note-Instructions are provided for entering state payroll withholding tables There is an additional charge if 
you prefer to have S.B.S.G. Programmers insert the correct data. 

10. Minimum system requirement is 2-drives to run any single module. 

11 Minimum system requirement is 3-drives to run the coordinated business system (AR-AP-GL) or (AR-AP-GL with PAYROLL) 

12. Minimum system requirement is 4-dnves to run the extended coordinated system (AR-AP-GL-PR and INVENTORY/INVOICING). 

13. The A. OSBORNE & ASSOCIATES business manuals are provided FREE with each order (they may be purchased separately at $20 per 
manual). 

14 The INVENTORY and INVOICING modules are original programs written by S.B.S.G. 

15 Each module can be purchased as independent modules to run on a 2 or more drive system except INVOICING 

16 Memory requirement is 48K for the MODEL-I and 64K for the MODEL-II 

17 All S.B.S.G. BUSINESS SYSTEMS may be upgraded up to 4-disk drives No data is ever lost during an upgrade There is a standard S.B.S.G. 
charge for all upgrades 



ACCOUNTS PAYABLE 

The accounts payable system receives data concerning purchases from 
suppliers and produces checks in payment of outstanding invoices. In 
addition, it produces cash management reports. This system aids in 
tight financial control over all cash disbursements of the business. 
Several reports are available and supply information needed for the 
analysis of payments, expenses, purchases and cash requirements All 
A/P data feeds General Ledger so that data is entered into the system 
just once These programs were developed 5 years ago for the Wang 
micro-computer and have been tested in many environments since 
then The package has been converted to the TRS-80'" and is now well 
documented, on-line, interactive micro-computer system with the 
capabilities of (or exceeding many larger systems) 
CAPABILITIES: 

* menu driven; easy to use; full screen prompting and cursor control 

* invoice oriented; everything revolves around the invoice; handles 
new invoice or credit memo or debit memo 

* invoce information recorded; invoice #, description, buyer, check 
register #, invoice date, age date, amount of invoice, discount (in %), 
freight, tax ($). total payable 

* transaction print and file maintenance procedures insure accuracy 

* flexible check calculation procedure; allows checks to be calculated 
for a set of vendors-or-for specific vendors 

* program prints your checks: contiguous computer checks with your 
company letterhead can be purchased from SBSG 

* reports include (samples on back): 

• open item listing/closed item listing - both detail and summary 

• debit memo listing/credit memo listing 

• aging 

• check register report (to give an audit trail of checks printed)" 

• vendor listing and vendor activity (activity of the whole year) 

* fully linked to GENERAL LEDGER, each invoice can be distributed 
to as many as five (5) different GL accounts; system automatically 
posts to cash and A/P accounts 



ACCOUNTS RECEIVABLE 

The objective of a computerized A/R system is to prepare accurate and 
timeley monthly statements to credit customers. Management can 
generate information required to control the amount of credit extended 
and the collection of money owed in order to maximize profitable credit 
sales while minimizing losses from bad debts. The programs com- 
posing this system were developed 5 years ago, especially for small 
businesses using the Wang Microcomputer They have been tested in 
many environments since then Each module can be used stand alone 
or can feed General Ledger for a fully integrated system 
CAPABILITIES: 

* menu driven, easy to use; full screen prompting and cursor control 

* invoice oriented; invoices can be entered before ready for billing, 
when ready for billing, after billing or after paid 

* allows entry of new invoice, credit memo, debit memo, or change/ 
delete invoice 

* allows for progress payment 

* transaction information includes: 

• type of A/R transaction • billing date 

• customer P.O. # • general ledger account number 

• description of P.O • invoice amount 

• shipping/transportation charges 

• tax charges 

• payment 

• progress payment information 

• transaction print & file maintenance procedures insure accuracy 

* customer statements printed; computer statements with your corn- 
pay letterhead can be purchased from SBSG 

* reports include, (samples on back) 

• listing of invoices not yet billed 

• open items (unpaid invoices) 

• closed items (paid invoices) 

• aging 

* fully linked to General Ledger; will post to applicable accounts; 
debit A/R, credits account you specify 
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PAYROLL 

Payroll invoices many complex calculations and the production of 
reports and documents, many of which are required by government 
agencies. It is an ideal candidate for the computer. With this Payroll 
system in-house, you can promptly and accurately pay your employees 
and generate accruate documents/reports to management, employees, 
and appropriate government agencies concerning earnings, taxes, and 
other deductions. The package has been converted to the TRS-80*" and 
is now a well documented, op-line, interactive, micro-computer system 
with the capabilities of (or exceeding) many larger systems. 
CAPABILITIES: 

* performs all necessary payroll tasks including: 

• file maintenance, pay data entry and verification 

• computation of pay and deduction amounts 

• printing of reports and checks 

* can handle salaried and hourly employees 

* employees can receive: 

• hourly or salary wage 

• vacation pay 

• holiday pay 

• piecework pay 

• overtime pay 

* employees can be paid using any combination of pay types (except, 
hourly cannot receive salary and salary cannot receive hourly) 

* special non-taxable or taxable lump sums can be paid regularly or 
one time (bonus, reimbursements, etc) 

* health and welfare deductions can be automatically calculated for 
each employee 

* earnings-to-date are accumulated and added to permanent records: 
taxes are computed and deducted: US income tax, Social Security 
tax. state income tax, other deductions (regular or one time) 

* paychecks are printed; computer checks with your company letter- 
head can be purchased from SBSG 

* calculations are accumulated for; employee pay history, 941A re- 
port, W-2 report, insurance report, absentee report 

* fully linked to General Ledger. Each employees payroll information 
can be distributed to as many as (12) twelve different GL accounts; 
system automatically posts to cash account 



INVENTORY CONTROL/INVOICING 

* ISAM (Indexed Sequential Access Method) eliminates the necessity 
for time consuming sort. 

* Pre-Allocated Files for IMMEDIATE update and inquiry capabilities. 

* Fast Disk storage and retrieval. 

* Inventory Master Record includes. .. class. ..SKU... Division. ..Retail... 
Cost. ..Beginning Balance. ..Period Sale Units. ..Period Receipts. ..On 
Order. On Hand. ..Minimum Reorder Point. ..Recommended Re- 
order Amount. ..Vendor Number. ..Period Sale Dollars. ..YTD Sale 
Units. YTD Sale Dollars. 

* Calculated and Displayed Formulas include. ..Gross Margin ($)... 
Gross Margin (%)... Gross Margin ROI (%)... Average Inventory Retail 
($).. .Average Inventory Cost ($)... Turn-Over (%). 

* Reports Generated include.. Master File Listing. ..Class Description 
Listing. ..Transaction Audit Trail. ..Minimum Reorder Point by Ven- 
dor. .Retail Price List.. Retail & Cost Price List. ..Period Sales Report 
...Year to Date Sales Report... Stock Status (Screen or printer output) 
...Commission Report (for salesmen and buyers). 

* Transaction Types include. ..Sales, Vendor Receipts. Vendor 
Orders. ..Customer Returns. ..Vendor Returns. ..Transfer Stock. 



GENERAL LEDGER 

The General Ledger accounting system consolidates financial data 
from other accounting subsystems (A/R. A/P, Payroll, direct posting) in 
an accurate and timely manner. Major reports include the Income State- 
ment and Balance Sheet and a "special" report designed by manage- 
ment. The beauty of this General Ledger system is that it is completely 
user formatted. You "customize" the account numbers, descriptions, 
and report formats to suit particular business requirements. These 
programs were developed 5 years ago for the Wang micro-computer 
and have been tested in many environments since then The package 
has been converted to the TRS-80'" and is now a well documented, on- 
line, interactive micro-computer system with the capabilities of (or 
exceeding) many larger systems 
CAPABILITIES: 

* more than 200 chart of accounts can be handled 

* account number structure is user defined and controlled 

* more than 1,750 transactions may be entered via: 

• direct posting; done by hand; validated against the account file 
before acceptance 

• external posting; generated by A/R, A/P, Payroll or any other 
user source 

* data is maintained and reported by: 

• month 

• quarter 

• year 

• previous three quarters 

* reports (samples on back) include: 

• trial balances 

• income statement 

• balance sheet 

• special accounts reports and more 

* user formats reports with the following designated as you wish: 

• titles 

• headings 

• account numbers 

• descriptions 

• subtotals 

• totals 

• skip lines 

• skip pages 

* up to eight levels of totals - fully user designated 

* menu driven; easy to use; full screen prompting and cursor control 
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PRICING MOD-I MOD-II 

VERSION VERSION 

ACCOUNTS RECEIVABLE $125 $225 

ACCOUNTS PAYABLE $125 $225 

GENERAL LEDGER $125 $225 

PAYROLL $125 $225 

INVENTORY $1 75 $275 

INVOICING $150 $250 

COORDINATED INVENTORY/INVOICING ACCOUNTS RECEIVABLE $449 $749 

COORDINATED AR-AP-GL $375 $675 

COORDINATED AR-AP-GL with PAYROLL $495 $899 

EXTENDED COORDINATED AR-AP-GL INVOICING/INVENTORY without PAYROLL $799 $1299 
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MICROSOFT BASIC COMPILER 

With TRS-80"" BASIC Compiler, your Level II programs will run at record speeds! 
Compiled programs execute an average of 3- 1 times faster than programs run under 
Level II. Make extensive use of integer operations, and get speeds 20-30 times faster 
than the interpreter. 

Best of all. BASIC Compiler does it with BASIC, the language you already know. 
By compiling the same source code that your current BASIC interprets. BASIC 
Compiler adds speed with a minimum of effort. 

And you get more BASIC features to program with, since features of Micro- 
soft's Version 5.0 BASIC interpreter are included in the package. Features like the 
WHILE.. WEND statement, long variable names, variable length records, and the CALL 
statement make programming easier. An exclusive BASIC Compiler feature lets you 
call FORTRAN and machine language subroutines much more easily than in Level II. 

Simply type in and debug your program as usual, using the BASIC interpreter. 
Then enter a command line telling the computer what to compile and what options 
to use. 

Voila! Highly optimized, Z-80 machine code that your computer executes in a 
flash! Run it now or save it for later. Your compiled program can be saved on disk for 
direct execution every time. 

Want to market your programs? Compiled versions are ideal for distribution. 
You distribute only the object code, not the source, so your genius stays fully protected. 

BASIC Compiler runs on your TRS60'" Model I with 48K and disk drive. The 
package includes BASIC Compiler, linking loader and BASIC library with complete 
documentation #195.00 



1 980 INCOME TAX PAC 

Completely Revised • Latest Tax Tables - Fully Tested - Complete Manual and Docu 
mentation. The new version of the Income Tax Pacs are full of error catching codes 
making it impossible to make an error. Follow the simple Step By Step procedure that 
makes tax preparation simple. 

INCOME TAX PAC A (»19.95...Csssette) 

For Level II 16K Cassette Only 
Does Form 1040 and 1040A 

- Schedule A itemized deductions 

- Schedule B interest and dividends 
Output to video display 

- Schedule TC tax computation 

INCOME TAX PAC B M9.95...Cassette or Diskette) 

For Level II 1 6K with or without printer.. .cassette or disk has all features of Income Tax 
Pac A Phis works with or without line printer. 

- Formats Form 1040 and 1040A for standard tax forms 
• Schedule C income from a personally owned business 

- Form 2106 employee business expense 

PROFESSIONAL INCOME TAX PAC C S99.95.. Diskette 

For Level II 32K with disk and printer (optional) 

Has all features of Income Tax Pac B Plus automatic memory storage for income tax 

preparers. 

- 22 additional schedules and forms 

- Formats forms for individual or tractor feed printing 

MOD B CPA VERSION #199.95 



„- ^pfT ^ WINS .._ AVERAGE PROFIT 

GUARANTEED PRU™» gja^ PLACES 32% AT ALL TRACKS- 1978 

SHOWS 

THE HORSE SELECTOR II (FLATS) (By Dr. Hal Davis 150.00 

New simplified version of the original Horse Selector. The first Horse Selection System 

to actually calculate the estimated odds of each horse. 

HIGHER PROFITS (OVER 100X) POSSIBLE THROUGH SELECTIVE BETTING ON: 

s Rates each horse in 10 seconds. 

s Easy to follow rules. 

s Can be used with any Apple II Computer. 

s 100% money back guarantee (returned for any reason). 

• Uses 4 factors ( speed rating , track variant distance of the present race, distance of 
the last race). 

s Using the above factors, the Horse Selector calculates the estimated odds. BET 
on horses whose actual payoff (from the Tote Board or Morning Lines) is higher 
than payoff based on estimated odds. 

• Using the above factors, the Horse Selector calculates the estimated odds. BET 
on any selected horse with an estimated payoff (based on Tote Board or Morning 
Lines) higher than calculated payoff (based on Horse Selector II). 

• Source listing for the TRSdO™ .Tl-59, HP-67. HP-41 . Appte and BASIC Computers, 
s No computer or calculator necessary (although a calculator would be helpful for 
the simple division used to calculate estimated odds). 

FREE Dutchlng Tables allows betting on 2 or more horses with a guaranteed profit 



NEWDO8/80 

A New enhanced NEWDOS for TRS-80" Model I for the 1980s 

Apparat Inc., announces the most powerful Disk Operating System for the 
TRS-80'". It has been designed for the sophisticated user and professional programmer 
who demands the ultimate in disk operating systems. 

NEWDOS/80 is not meant to replace the present version of NEWDOS 2. 1 
which satisfies most users, but is a carefully planned upward enhancement which 
significantly extends NEWDOS 2. Is capabilities. This new member to the Apparat 
NEWDOS family is upward compatible with present NEWDOS 2. 1 and is supplied on 
Diskette, complete with enhanced NEWDOS + utility programs and documentation. 
Some of the NEWDOS/80 features are: 

• New BASIC commands that supports with variable record lengths up to 4095 
Bytes long. 

• New BASIC commands that supports with variable record lengths up to 4095 
Bytes long. 

• Mix or match disk drives. Supports any track count from 18 to 80. Use 35, 40 or 
77 track 5" mini disk drives or 8" disk drives, or any combination. 

• A security boot-up for BASIC or machine code application programs. User never 
sees "DOSREADY' or "READY' and is unable to "BREAK", clear screen, or 
issue any direct BASIC statement including "LIST." 

• New editing commands that allow program lines to be deleted from one location 
and moved to another or to allow the duplication of a program line with the 
deletion of the original. 

• Enhanced and improved RENUMBER that allows relocation of subroutines 

• Powerful program chaining. 

• Device hanging for routing to display and printer simultaneously. 

• CDE function; simultaneous striking of the C. D and E keys will allow user to 
enter a mini DOS to perform some DOS commands without disturbing the 
resident program. 

• Upward compatible with NEWDOS 2. 1 and TRSDOS 2.3. 

• Includes Superzap 3.0 and all Apparat 2. 1 utilities. 
M49.00 

STOCK MARKET MONITOR 

Galactic Software Ltd. 

CASSETTE VERSION $89.00 

DISK VERSION $99.00 

1 . The system is designed for the active "trader" not the long term" investor, as 
the system is technically" oriented. 

2. For the TRS80" Model I. Level II. 1 6K or more. Available in both disk and tape 
versions. 

3. Tracks user selected issues, in a technical system that reflects the issue's 
performance against the overall market. 

4. Set up data is input by the user from the Standard and Poors stock guide or 
Value Line. 

5. Daily issue data, "high", "low", "close" and "volume" are input from any news 
paper containing this information. 

6. Daily overall market, "volume" and "closing Dow" are also provided from a 
newspaper. 

7. Volume and price changes of an issue, as they compare to volume an price 
changes of the overall market, are the basis of this system s analysis of the given 
issue. 

8. Comparisons of the issue against itself are also done. This may allow the user 
to spot "unusual" activity on this issue 

9. Clear indications are given as to whether the issue is "out performing", "under 
performing" or "performing" with the market. 

10. Complete video and printed output is provided. 

1 1 . This program is intended to be a guide to indications, and is not to be used as a 
sole recommendation to buy. sell or hold an issue These decisions are the 
responsibility of the user and his brokerage. 
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* Aif orders processed within 24- Hours 



e**-** ****** 

MOD-II PROGRAMS 



•k 30-Day money back guarantee on all TRSDOS Software 
■k Add $2.00 for shipping in UPS Area* 
* Add $3.00 for C.O.D. or NON-UPS Areas 
■k Add $4.00 outside U.S.A., Canada & Mexico 
* We will match any bonafide advertised price 
in any of the Major Computer Magazines 
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M) ELECTRIC PENCIL (Michael Shrayer Software). . 
Complete word processor with extensive editing and 

printer formatting lectures $325 (STANDARD 

TRSDOS VERSION). $350 (DIABLO. NEC OR OUME 
TRSDOS VERSION) 

a GENERAL LEDGER. ACCOUNT* RECEIVABLE. 
COUNT* PAYABLE, INVENTORY CONTROL. 
INVOICING AND PAYROLL (Small Business Systems 
Group) an extensive business system lor the serious 
user can be used one module at a time or as a co- 
ordinated system $225 per module $1299 for the 
complete system 

(3) GENERAL LEDGER, ACCOUNTS RECEIVABLE. 
ACCOUNTS PAYABLE. INVENTORY CONTROL 
AND PAYROLL (Compumax) a complete user on- 
ented business system can be used one module at a 
lime or as a coordinated system. $140 per module 
$995 for the complete system. 

(41 MOD-II UTILITY PACKAGE (Racet Computes) 
adds important utilities to TRSDOS copy files 
selectively... faster and more accurate die copying... 
repair bad directories displays sorted directory of 
all files on 1 to 4 disk drives SUPERZAP change 
disk ID and more $150 

IS) ADVENTURE el-»9 (Scott Adams - Adventure 
International) a series of games formally only 
available on the large computers your goal is lo work 
your way through a maze of obstacles in order to 
recover a secret treasure or complete a mission the 
package includes all 9 Adventures written by Scott 
Adams $99 95 

(8) OSF (Racet Computers) Generalized Subroutine 
acility a series of super fast machine language 
utilities that can be called from a BASIC program (no 
machine language knowledge required). ..sorts 1000 
items in under 5 seconds, allows PEEK and POKE 
statements... move data blocks... compress and un- 
compress data., works under TRSDOS $50 

(7) OSM (Racet Computes) Disk Son Merge sons 
and merges large multiple diskette files on a 1 to 4 
drive system NOT AN IN MEMORY SORT can 
actually alphabetize (or eny other type of son) 4 disk 
drives wonh of data sorts one complete disk of 
information in 10 minutes information is provided to 
use DSM with the RS MAILING PROGRAM works 
under TRSDOS $150 

(•) RSM (Small Systems Software) a machine 
language monitor and disassembler... can be used lo 
see end modify memory or disk sectors contains all 
the commands found on the Model-I version plus 
some additional commands for the MOD-II. works 
under TRSDOS $39 95 

(9) BLINK BASIC LINK FACILITY (Racet Computes) 
Link from one BASIC program to another saving all 
variables chain programs without losing variables 

$50 

(10) BASIC CROSS REFERENCE UTILITY (Racet 
Computes), lists all variables and strings used m a 
program (with the line numbers in which they appear) 

lists ell GOTO s and GOSUB's (with the line num- 
bers in which they appear) searches tor any specific 
variables or strings (with the line number in which 
they appear). $50 

(11) DEVELOPMENT PACKAGE (Racet Computes) 
SUPERZAP (to see. print or change any byte on a 
diskette) Disassembler and MOD-Tl interface to the 



MICROSOFT EDITOR ASSEMBLER PLUS including 
uploading services and patches for Disk 1/0. assemble 
directly into memory ..save all or portions of source 
lo disk dynamic debug facility (ZBUG) entended 
editor commands $125 

(12) HARD /SOFT DISK SYSTEM (Racet Computes) 
The software essential to interface any of the popular 
large hard disk drives completely compatible with 
your existing software and files allows up to 20 
megabytes of storage (and larger) directory expand- 
able lo handle thousands of files $400 

(13) CAMEO HARO DISK DRIVE CONTROLLER 

coming soon (November 1?) 

(14) HARD DISK DRIVES coming soon (Nov 1">> 

(15) H S E COMPUTRONICS, INC. SHARE-A- 
PROGRAM DISKETTE «1 works under TRSDOS a 
collection of programs written by MOD-II owners... 
programs include data base management a word 
processor ..mail system . mortgage calculations 
checkbook register and many others $8 (add $3 
postage outside of the United States. Canada and 
Mexico) FREE if you send us a diskette containing 
a program thai can be added to the SHARE-A-PRO- 
GRAM DISKETTE 

(IS) WABASH CERTIFIED DISKETTES $39 95 (per 
box of 10) 

(17) FLIP SORT DISKETTE STORAGE TRAY Stores 
50 diskettes comes complete with index-dividers, tilt 
plates and adjustable spacing $44 95 
MS) MASTER PAC 100 100 essential programs 
BUSINESS. PERSONAL FINANCE STATISTICS 
MATH GAMBLING. GAMES includes 125 page 
manual and 2 diskettes. $99.95 

(IS) BUSINESS PAC 100 100 essential business 
programs. INVENTORY CONTROL PAYROLL 
BOOKKEEPING SYSTEM STOCK CALCULA- 
TIONS. CHECKBOOK MAINTENANCE. AC- 
COUNTS RECEIVABLE ACCOUNTS PAYABLE 
includes 125 page manual and two diskettes $149 95 

(20) EDITOR ASSEMBLER (Galactic Software Ltd ) 
the first user oriented Editor Assembler for the 
MOOEL II and was designed to utilize all the features 
of the MODEL II It includes innovative features tor 
ease of coding and debugging and complete docu- 
mentation (over 120 pages) works under TRSDOS 

$229 00 

(21) BASIC COMPILER (Microsoft) . changes your 
source programs into machine language... increases 
program execution by 3-10 times $395! 

(22) MAIL/FILE SYSTEM from Galactic Software Ltd 
stores 2,500 names per disk. No sorting lime is 
required since the file is automatically sorted by first 
and last name plus Zip Code on input Retrieve by any 
combination of 19 user codes Supports an 11 digit 
alphanumerica Zip Supports a message line Comes 
complete with user -oriented documentation (100- 
page manual) Allows for company name and individ- 
ual of a company and complete phone number (and 
extension) works under TRSDOS $199 00 

(23) INCOME TAX PAC Professional income tax 
package most forms and schedules output to video 
or line printer automatic memory storage of all 
information, data can be loaded from diskette. 

changed and edited built in error checking... $199.95. 

(24) COMPUTER GAMES (SBSG) Mean Checker 
Machine, Star-Trek III. Concentration, Treasure Hunt. 
Banco. Dog Star Adventure. $74 95 
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(1) CP/M (Lifeboat Associates) an alternative 
operating system for the MOD-II thai allows MOD-II 
owners to use any of the hundreds Of programs 
available under CP/M $170 

(2) CP/M HANDBOOK (Sybex) a step-by-step 
guide to CP/M takes the reader through each of the 
CP/M commands numberous sample programs 
practical hints reference tables $13 95 

(3) GENERAL LEDGER. ACCOUNTS RECEIVABLE. 
ACCOUNTS PAYABLE. INVENTORY CONTROL. 
AND PAYROLL (Peachtree Software) requires CPM 
and MICROSOFT BASIC professional business 
systems turn key operation can be used as single 
modules or as a coordinated system $500 per 
module.. $2500 lor the complete system 

(4) WORD-STAR... The ultimate word processor a 
menu driven word processing system thai can be used 
with any printer All standard word processing 
commands are included plus many unique com- 
mands only found on WORD STAR requires CP/M 

$495 

(5) MAIL LIST MERGE An add on package that 
allows the user to send form letters (created on 
WORD-STAR) to any compiled mailing list (using any 
CP 'M based MAIL program such as the PEACHTREE 
MAIL PROGRAM) requires CPM WORD STAR and 
andy CP'M based mail program $150 

(•) SELECTOR III (Micro-Ap) complete data 
management system user defined fields and codes 
manages any list defined by the user... includes 
additional modules lor simplified inventory control, 
accounts receivable and accounts payable, requires 
CBASIC-2 $295 

(7) SELECTOR IV (Micro-Ap) the ultimate data 
management system. ..all features use the SELECTOR 
III plus. ..data file format conversions full page report 
formatter computations, global search and replace 
hard disk compatible data/text merging $550 

8GLECTOR (Micro-Ap) add on package to the 
LECTOR general ledger that allows the user to 
define a customized chart of accounts $350 

(9) CBASIC-2 a non-interactive BASIC used lor 
many programs that run under CP/M allows user to 
make more efficient use of disk files eliminates the 
use of most line number references require on such 
programs as the SELECTOR $120 

(1 0) MICROSOFT BASIC an en ha need version ol the 
MICROSOFT BASIC found on TRSOOS adds 
commands such as chaining (allows the user to LOAD 
and RUN a new program without losing the variables 
currently in memory)... long variable length file 
records. WHILE/WEND and others can be used with 
the BASIC COMPILER to speed up programs (3-10 
times faster execution) $325 

(11) MASTER TAX fCPAids) professional tax 
preparation program prepares schedules. A. B. C. D 

E. F. G. R/RP. SE. TC. ES and forms 2106. 21 19. 2210 
3468 3903. 2441 4625. 4726 4797. 4972. 5695 and 
6521 Printing can be on readily available pre-pnnted 
continuous forms, on overlays, or on computer 
generated IRS approved forms Maintains dint history 
files interactive with CP Aids General Ledger $995 

(12) GENERAL LEDGER II (CPAids) designed for 
CP As... stores complete 12 month detailed history of 
transactions. ..generates financial statements, 
depreciation, loan amortizations, journals, trial 
balances, statements of changes in financial position, 
and compilation letters, includes payroll system with 
automating posting to general ledgers. ..prints 
payroll register. W2's and payroll checks ..$450 

(13) ELECTRIC PENCIL (Michael Shrayer Software) 
Complete word processor with extensive editing 

and printer formatting features $275 (Standard 
printer version) $300 (DIABLO. NEC Or OUME 
version) 

(14) BASIC COMPILER (Microsoft) changes your 
source programs into machine language., increases 
program execution by 3-10 times $395 

• (CP/M IS A REGISTERED TRADEMARK 
OF OIGITAL RESEARCH) 
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Ned Systems! 



Proven Educational Software 

The Human Adventure allows movement through a human 
body's cardiovascular system. All major organ systems are accessible 
and fully described by the computer. A graphic CAT-scan constantly 
shows the user his position in the body. The exploration mode allows 
simple exploration, while the game mode places the user in a race 
against time to cure the patient of cancer using his knowledge of the 
body's layout. Recommended for reading age through adult. 

The Pla/ful ProfetfOr Is a mathematics learning aid that 
provides tutoring In Integer mathematics and fractions for the four 
basic operations. Demonstrated solutions are completed step-by- 
step In a blackboard format easily understood by grade school child- 
ren. Problems are presented in a game format that places the pupil in a 
sixty room mansion. To win. the player must catch the ghost with the 
key. then get to the front door before the ghost (or other player) 
recaptures the key. Movement Is based on problem solving. Difficulty 
may be different for each player, allowing parents to be beaten by their 
children. Recommended for age 4 through adult. 

Money M*Ster tutors the young child in the use of money. The 
child Is allowed to wander freely by paying tolls or buying objects. The 
tutoring screen depicts money graphically, and interactively instructs 
in the use of coins. This includes making payments and receiving 
change. New mazes are generated for each game. Graphic obstacles 
arc randomly chosen from a library of several dozen. An average game 
lasts 20-30 minutes. Recommended for early readers 
through adult. 

Each program $9.95 on cassette for TRS-BO Level II IbK. or Model III I6K. 
A0 three on diskette - $2995. Model I only 



Satisfaction Guaranteed! All Med Systems Software pro- 
ducts come with a 1 4-day moneyback guarantee. If for any reason you 
are not satisfied, return you order within 14 days for a prompt and 
cheerful refund. 

Ordering Information. Orders are processed within two 
working days. Mastercard and Visa card holders please remember to 
Include the expiration date. We pay all postage and handling within 
the U.S.. Canada, and U.S. territories. European orders please include 
$2.00 for air post. 



Ned Systems Software 

P.O. Box 2674 Department B69 
Chapel Hill. North Carolina 27514 
(919) 933-1990 



Graphic 3-D Adventures 

These machine language programs arc the first In a new breed of 
adventure. Instead of wandering through the English language, typing 
GO EAST or GO WEST, you move through a collossal maze repres- 
ented on the screen three-dimenslonally. Hallways recede into infinity 
or come to dead-ends. Doors open to left and right. As you 
encounter objects, monsters, and mayhem, one or two word com- 
mands may be used. The command set is extensive and sophisticated. 
Movement is via the arrow keys. Graphics generation is instantaneous. 
Mazes are bit-coded and HUGE. There is simply nothing Nke these 
programs on the market today. 

DeathmaZC SOOO places you on the top floor of a five-story 
building. Each floor is a maze of twisting passageways. Floors are 
connected by elevators and open pits. You have but one goal. Escape 
Alive! Where Is the only door out of this nightmare? Monsters, bats, 
mad dogs, hunger, and many more horrors plague your tytry step as 
you struggle to escape the most complex adventure ever written. 

Labyrinth places you in a maze of gigantic proportions. But you 
are not alone! A minotaur searches for you. seeking a grisly meal. You 
must find weapons, spells, and treasures. You must deal with ghosts 
and cave gnomes. You must avoid the minotaur until the moment is 
right for the final battle. And if this Isn't enough, the Labyrinth twists 
space and time so that you may not know whether you are coming or 
going! 

Each program $/ 2 95 on cassette for TRS-80 level II I6K, or Model III 
I6K. both on diskette - $29 95. Model I only 



ATTENTION DEATHMAZE FANATICS! 

Still on the first level? You would look much better wearing the hat. 
But don't charge the wrong wall! 



□ Human Adventure 

□ Playful Professor 
n Money Master 

□ Deathmaze 5000 

□ Labyrinth 

□ Educational Diskette 
G Deathmaze labyrmt 
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THEORY 



The TRS-80 psychoanalyzed. 



Mysteries of 
the Level II ROM 



Victor Qriswold 
20 Field ere st Drive 
Jackson, TN 38301 



The Level II TRS-80 is an ex- 
cellent microcomputer, but 
one does encounter a few diffi- 
culties when penetrating the se- 
crets of the Level II reserved 
RAM. Several diligent software 
detectives have written articles 
that do much to show the inner 
workings of Level II. 

I have used the following con- 
ventions in this article: Un- 
signed binary format for num- 
bers stored in RAM will be as- 
sumed. Numerals with a D suffix 
or none at all will be in decimal. 
Hexadecimal numerals will have 
an H suffix and have leading 
zeros to indicate either a one- or 
two-byte value. The operating in- 
structions for the subroutines 
and example programs are print- 
ed beside the program listings. 
This, I hope will make easier 
reading. 

The information here came 
from inspecting the reserved 
RAM after running many test 
programs. 

Keyboard 

The keyboard driver is ac- 
cessed by CALLing 002BH. The 



starting address of the Kl device 
control block (401 5H) is loaded 
into the Z-80 microprocessor's 
DE register pair, and some of the 
other registers are saved. This 
routine then jumps to the device 
control block handling routine, 
which saves the remaining reg- 
isters (except for IY) and then 
branches to the DCB driver ad- 
dress. When returned from the 
driver, the registers are restored, 
with the accumulator contain- 
ing the ASCII code of the en- 
tered character. 

Note that the routine is al- 
ways in ROM except for one spe- 
cial case explained later. The 
only way that the keyboard driv- 
er can be modified is by chang- 
ing the DCB driver address 
bytes. Radio Shack's KBFIX and 
other custom drivers are new 
keyboard drivers which might or 
might not JUMP back into the 
ROM driver after their task is 
performed, even if that task 
would only require one byte of 
opcode in the ROM driver. 

There is one exception to 
coming out of ROM: the BREAK 
key. Whenever BREAK is de- 
pressed, the keyboard driver 
performs a ReSTart to 0028H, 
which in turn makes the Z-80 
JUMP to 16396 (400CH) in RAM. 

Normally, there is a RETurn 
instruction in Level II or another 
JUMP in TRSDOS. There are 
three bytes available. You can 



easily POKE an XOR A (opcode 
175D or AFH) and then a RETurn 
(opcode 201 D or C9H) into these 
RAM locations so that whenever 
BREAK is depressed, the Z-80 
accumulator is cleared before 
the keyboard driver is left. This 
effectively disables the BREAK 
key. 

In order to provide multi-key 
rollover, the Kl drivers saves an 
image of the old keyboard mem- 
ory (except for the space bar) in 
RAM locations 16438-16444 
(4036H-403CH). The first byte is 
the first row (lowest address), 
and so on. When directly scan- 
ning the keyboard from BASIC 
(bypassing INKEYS for a repeat 
action whenever a key remains 
depressed), it is easier to scan 
this RAM area instead of the 
keyboard memory because rows 
of keys are only one byte apart. 

Speaking about INKEYS. RAM 
location 16537 (4099 H) stores 
the ASCII code of the most re- 
cent entered character. This 
byte is what INKEYS references 
whenever it returns a character 
to a program. INKEYS resets the 
byte to zero after the reference. 
Location 16537 can be preset by 
a POKE in order to have INKEYS 
return a specific character 
unless a key is depressed. 

One last note about the key- 
board: every Level II TRS-80 key- 
board can produce ASCII con- 
trol codes easily and without 



any hardware or software modi- 
fication. Simply depress SHIFT 
and the DOWN ARROW simulta- 
neously, and then depress the 
appropriate letter key. 

I/O Buffer 

The input/output buffer is not 
explained in the Level II manual. 
It is used for program line input 
and output (LIST), condensing 
the program lines before they 
are put into RAM, holding the 
text during an INPUT statement, 
and for INPUT# from cassette. It 
is not used during CLOAD or 
PRINTi. 

The management of the buf- 
fer is straightforward. The han- 
dler stores input characters in 
the buffer and puts a code zero 
after the last valid character for 
either the ENTER or BREAK ter- 
minating character. The storage 
of other control codes depends 
on the type of data manipulated 
at the time. RAM locations 
16551-16552 (40A7H-40A8H) 
not only control where the han- 
dler begins the buffer, but also 
where BASIC starts interpreting 
its contents. 

This means that the buffer 
can be positioned anywhere in 
nonsensitive RAM (RAM which 
is not used for BASIC'S "house- 
keeping"), and BASIC won't 
know the difference. For in- 
stance, disk BASIC uses a dif- 
ferent buffer than Level II. A pro- 



80 Microcomputing, December 1980 • 147 



TlielMEl-TRANS 

A completely refurbished 
IBM Selectric Terminal with 
built-in ASCII Interface. 

*FOR YOUR TRS-80 WITH OR WITHOUT 
EXPANSION INTERFACE. 



II 



Features: 

• 300 Baud 

• 14.9 characters per second 
printout 

• Reliable heavy duty Selectric 
mechanism 

• RS-232C Interface 

• Documentation included 

• 60 day warranty -parts and 
labor 

• High quality Selectric printing 
Off-line use as typewriter 

• Optional tractor feed available 

• 15 inch carriage width 



Also works with Exa- 
tron's Stringy floppy, 
for fast loading of pro- 
grams. (Has R5232 built 
in stringy) 



HOW TO ORDER 

DATA-TRANS 1000 

1. We accept Visa, Master * 
Charge. Make cashiers checks or 
personal check payable to: 

DATA-TRANS 

2. All orders are shipped 
F.O.B. San Jose, CA 

3. Deliveries are immediate 




Desk and table top models also available. 
For orders and information 

DATA-TRANS 

2154 OToole St. +m 

UnitE 

San Jose, GA 95131 

Phone: (408) 263-9246 



TRS-80 it a registered trademark ol TANDY CORP 




USYSTEM 
EXPANSION 



FOR THE 



TRS-80 

AT 

$69 



95 f p C BOARD i I 
[user MANUAL J 



m 



a SERIAL RS232C 20mA I O 

• FLOPPY CONTROLLER 
a 32K BYTES MEMORY 
a PARALLEL PRINTER PORT 
a DUAL CASSETTE PORT 
a REAL-TIME CLOCK 

• SCREEN PRINTER BUS 
a ONBOARD POWER SUPPLY 

• SOFTWARE COMPATIBLE 

• SOLDER MASK SILK SCREEN 

LNW 
RESEARCH - 



8 Hollowolen St. Irvine CA 
714-552-8946 92714 

— TO ORDER 

PO Box 16216 Irvine CA 92713 
Add S3 tor postage ond handling. 
CA residents odd 6% soles tax 




ZIP UP TO 
7 SPEEDS! 



f~ 



RUN YOUR TRS-80 RELIABLY UP TO 2 25 TIMES FASTER (4MHZ) BY PUR- 
CHASING FROM THE ONLY MANUFACTURER OF SPEEDUP UNITS TO RE- 
CEIVE WIDE-SPREAD NATIONAL ACCLAIM FOR ITS PRODUCT. HERE'S A 
FEW EXAMPLES OF COMMENTS ON OUR ORIGINAL BOARD: elegant 

device does what it claims". Kilobaud MICROCOMPUTING. Oct 80 • 
(Bill Archbold's Speedup Board and Video / are) "some great things". 
INTERFACE AGE, Jan 80 • "a worthwhile modification for the TRS-80. ' 
80-US Journal. Sept/Oct 79 • " beautttuty assembled ". CIE TRS-80 
Bulletin. May 79. Our NEW unit has many added features • run programs 
50% slower than normal, normal, and 50%. 70%. 90%. 100%. or 125% 
faster (a 50% minimum increase is guaranteed. 90 to 100% typical, with 
no additional hardware • shows changes required to the TRS-80 to insure 
reliable operation up to 4mhz • software control with manual override 
option • compensates for slow memory • power LED changes color to 
indicate operating speed • supports speeds far in excess of 4mhz should 
they prove practical in the future. 

ASSEMBLED & TESTED $37.50 



VIDEO I. An electronic addition that provides black characters and graphics 
on an all white screen for a much easier to read presentation — gives none 
of the glare associated with plastic screen add-ons Software controllable 
For use with TRS-80 monitors only. 

ASSEMBLED $23.95 



Calif, residents add 6% tax. Foreign orders add 10%. 



ARCHB0LD ELECTRONICS 

10708 Segovia Way Rancho Cordova, CA 95670 
l g» " (916) 635-5408 bhm 
IHI Dealer inquiries invited »■■ ^ 
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gram can INPUT directly into a 
string or into high memory from 
the keyboard or cassette, or 
even load data into video memo- 
ry directly from keyboard or cas- 
sette. 

Maintaining the buffer in vid- 
eo memory for keyboard use is 
not practical, since BASIC will 
lock up if the buffer is there 
while BASIC is in command 
mode (not due to scrolling). Us- 
ing this ability for recovery of 
lost PRINT* cassette files, how- 
ever, is another matter. The 
computer will eventually return 
control to the user after a bad 
cassette data block has been 
read, but it is not unusual for the 
computer to lock up or at least 
to clear the INPUT# variables in- 
stead of putting a value into 
them. This way you can at least 
see the data before the comput- 
er forgets it or locks up. Program 
Listings 1 and 2 illustrate the 
above points. 

BASIC puts a comma in front 
of the first character of the buf- 
fer during an INPUT or INPUT*. 
It puts a colon three bytes be- 
fore the first character while in 
command mode (statement con- 



densing brings the condensed 
statements two characters be- 
fore the first character). This is 
why the I/O buffer in the Level II 
memory map shows 16870 
(41E6H) as the start location of 
the buffer, while RAM locations 
16551-16552 indicate 16872. 

The Video Display 

The branch to the video dis- 
play driver is done exactly as the 
branch to the keyboard, except 
that the CALL entry point is 
0033H. There is no found exit 
from ROM this time. Thus, the 
only way to modify the driver 
would be to alter the DCB driver 
address. 

RAM location 16445 (403DH) 
holds the 64 characters per 
line/32 characters per line 
status. A OOH at this location 
means 64 char./line; 08H means 
32 char./line. The video driver 
uses this byte to determine 
whether to single or double- 
space PRINTed characters. 

The BASIC Program 

As most users know, Level II 
BASIC programs are com- 
pressed in RAM. This simply 



10 CLS : CLEAR600 

20 POKE 16551,2 : POKE16552.63 ' START THE I/O BUFFER 
3/4 
DOWN THE VIDEO DISPLAY 
30 PRINT CHR$(28) : 

INPUT "TYPE SOMETHING IN" ; AS 

: PRINT AS 
1 HOME CURSOR TO PREVENT SCROLLING, 
AND INPUT STRING 
40 IF LEFT$(A$,3)<>"END" THEN GOTO 30 
ELSE POKE 1655 

1,232 : POKE 16552,65 
1 IF MORE EXPERIMENTATION 

, CONTINUE. OTHERWISE, RESTORE 
NORMAL I/O BUFF 
ER LOCATION. 
50 ' NOTE THAT SINCE NORMAL VIDEO MEMORY CAN NOT RETURN 
THE 
END-OF-BUFFER 00H CODE (IT APPEARS AS AN " 

0") , BASIC USES 
A DEFAULT STRING LENGTH. 

Program Listing 1. The above demonstrates I/O buffer opera- 
tion by relocating the buffer into the video memory. 



20 POKE 16551,2 : POKE16552.63 ' START I/O BUFFER 3/4 

DOWN THE VIDEO DISPLAY 
30 INPUT "DEPRESS <ENTER> WHEN TAPE IS READY" ; AS : 

INPUTI-1, AS ' WAIT POR OPERATOR- READY AND THEN 
INPUT 
CASSETTE DATA 
40 POKE 16551,232 : POKE 16552,65 ' RESTORE NORMAL 1/ 

BUFFER 
LOCATION 

Program listing 2. The above can be used to partially recover 
"unreadable" cassette data blocks. 



for the TRS-80 from Micro -Mega 



CASSETTE CONTROL UNIT 



•SOHOU 
■cool ef 






I p'og-i 



ssette tape handling • Pmpomi program locations on U 
rotation from recording and fi»Mc« giitChOS resulting 

t# tod*>us piuggmg and unp'ugg**g o' ntconaer cables 
The Uicro-mlega Cassette Control unit does ail this and i*"vt You get msti 
fftW Ol the rfCOW $1 the flick Ol S Switc* W«M fo '>nd the beginning or try 
fhc* another iwrd and you tt heer it An cables IMM plugged m #» the '""• 
The Uicnyhtage Lsssette Control U"'t does m tot tc improve •• appearance o> your TPS90 
SySfm too As thown -f I in ■ 2 \ -5 0O> which snuggles ftfW—fl the *evbosrd ana 
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unit Thm Cassette Control Untt j tailored to ' "•" C r, 




CASSETTE CONTROL UNIT 

Add SI 00 tor postage and handling 



$37.95 



CPU MONITOR 



f w find yourseii with a blank i 
• » your CPU it m a loop with ft 
CPU Monitor lets too listen to 
have an awpens/on interlace r 



raon wondering what your co 
I ant • When a 'ong sort It r* 
* CSAVts and CLOAQs and » 



Tha M»cn> Uaga CPU SAon.tor gives i »CC# ro tha / 90 mKroprocessor m row T*S 
•ng AM rado circuitry to £>«T* i»P tha computational rhythms ol the CPU whKh arm amplilm 
and p'arOG through « loudspeaker Tha pickup un,t o/ tha CPU Monitor shown at ie*t M r* 
pnoio. goes under you' rms-BO keyboard it * connacted by a X cab* to the speaker an< 

Monitor 'i p ow rW Or •" AC aaapta* sho»r> at nght ■ rn* photo Mo bananas ara naartao 

TOS 90 ara raqu.rao 
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CPU MONITOR 

Add $2 00 for postage and handling 



$47 95 



THE ORIGINAL GREEN-SCREEN 



Tha aym-piaasmg Gnaan Sevan Ms ov tna C* 
"nptnwa contrast mnh radvcod ; «-# fOu gai I 
graphics t+a l*osa taaturaU by wan, aipant-va < 
The GntanScngan >s Ootaiy matchao" to tha coi 
a no tmprovas tha owati appaaranct O' your sy 
which do not mar your o* $,>.*, unit in any *>av 
.,c)ac display »<s*rf(fy 'or a" applications and ft 
high impact displAyS 'O' computar gamas iSaa Gaming tnri 

THE GREEN-SCREEN 

Add $1.00 tor postage and handling 



TRS90 v>oao D-spiar ano grras vov 
luminous pr#»n cnaracta's anc 

taiturt Ol tna ' I'S *■ V>d*0 D'iplkf 
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$13 95 



THE ULTIMATE STAR TREK PACKAGE 



Tirad ot trrrtal compufi gamat^ I n,s compieta Star T-a* packaga «•-'' co*K»# vtxi m't**ndiassia$cina 
3 tha program cattatta it includes comprehensive instructions .■ pao o' Voyage Log record • 



challenge in add' 
\no m tree standing 



incomparable Star Tre* m a 
as mhich include numaroui 

m command ol the EuMfpOH 
is including hostile Hlmgons 



"Torpedo and Maneuvering Chart 

The package is built around the latest verfon ol Lance MtfM 

t30O0 byte program +,th a host o' Subtle and imaginative 'ea 

dynemic and spectacular graphic displays Star Tnak ill puts i 

cruising M a Qt 4t- ol '92 quadrants tilled mth uncharted ha. 

pulsars, and biack hows You tune at row disposal scanners 

Systems onboard computers and a loyal crew (You anil need them a'l to Sun/nte the 

Klftgons) 
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XO Stardays befora rwtuming ro Sta' fleet Hmedouerters whaea vour overall ettoctrvenei 

starshtp commanoer will be scored High scroet ara possible onry with carelu' planning , 

teclnm battle lacttcs The voyage log sheets w.n guide your pfr stagy and the Toroedo 

vital edge in combat. iWhen you engage three mmgon ships you can ' at'onj to Mil 



- ft , 



d kHanawrermg Chart 



STAR TREK PACKAGE (for Level II. 16Konly) 

Add $1 00 tor postage and handling 

CREATE YOUR OWN SPECTACULAR 
GAMING ENVIRONMENT [and save S5.00) 



$22.95 
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dmates ot the qusorant where 
clicking 0* your naiagational gear as « 
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Speeding towards Himgon ship n strikes h*n deadcenter' As you watch the Klingon Battta Cnj.ser Oismregrati 
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Ooes the above scenario sound tar 'etched? Not i r alt Us a smalt sample ol erhat you will ewperronce with Wcro Uega s Gammg 
EnvKonmont which consists ol • The STAR THtK PACKAGE • the G«f FN SCflf t* and mTheCPV htOMTO* The last paced 
and oynemKachon refects the superb Star Trak M program togethai with the Voyage Log and Torpedo Chart of me Star ire* 
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GAMING ENVIRONMENT 

Add $3.50 tor postage and handling 



$79.85 



Ttrms: Check or money order, no CODs or credit cerds, please Add amount 
Shown tor postage and handling to price ot the item. All items shipped within 48 
hours by tirst class or priority mail Virginia residents, add 4'/« sales tax 
^29 



^ Reader Stvlce—aae page 274 



Micro -rVlega ■ P.O. Elox B265 • Arington, Va 22206 
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means that the statements, 
functions and operators are rep- 
resented by a one-byte code. In 
addition, certain pointers are 
set up within each line. 

Tables 1 and 2 respectively 
show the numeric and alphabet- 
ic order listings of the compres- 
sion codes. Note that each 
ELSE statement has an unseen 
colon before it, TAB is actually 

TAB(, and is a normal 

":REM" sequence followed by 
the special code 251 (FBH). 

Each program line takes the 
following form: a two-byte bi- 
nary line pointer which points to 
the first byte of the line pointer 
of the next program line, a two- 
byte binary line number, the pro- 
gram line itself, and a code zero 
to indicate the end of the line. 
After the last line in a program, 
two zero bytes are placed where 
the next line's pointer would 
normally be. One zero byte is 
also placed before the first 
line's pointer. Among other 
things, this initializes data 
statements. 

BASIC stores the names of 
the statements (those which 
you see in a LIST) in ROM lo- 
cations 5712-6175 (1650H- 
181 FH). There are no special ter- 
minator codes to separate one 
statement name from another in 
this lookup table. Rather bit 7 
(the. highest bit) is set to a 1 in 
the first character of each state- 
ment name. The statement 
names are in the numeric order 



125 

126 

127 

128— END 

129— FOR 

130— RESET 
131- SET 
132- CLS 

133— CMD 

134— RANDOM 

135— NEXT 

136— DATA 

137— INPUT 

138— DIM 

139— READ 

140— LET 

141— GOTO 

142— RUN 

143— IF 

144— RESTORE 

145— GOSUB 

146— RETURN 

147— REM 

148— STOP 

149— LSE 



150— TRON 
151— TROFF 

152— DEFSTR 

153— DEFINT 

154— DEFSNG 

155— DEFDBL 

156— LINE 

157— EDIT 

158— ERROR 

159— RESUME 
160— OUT 
161— ON 
162— OPEN 
163— FIELD 
164— GET 

165— PUT 

166— CLOSE 

167— LOAD 

168— MERGE 

169— NAME 

170— KILL 

171— LSET 

172— RSET 

173— SAVE 

174— SYSTEM 



175— LPRINT 

176— DEF 

177— POKE 

178— PRINT 

179— CONT 

180— LIST 

181— LUST 

182— DELETE 

183— AUTO 

184— CLEAR 

185— CLOAD 

186— CSAVE 

187— NEW 

188— TAB< 
189- TO 

190— FN 

191— USING 

192— VARPTR 

193— USR 

194— ERL 

195— ERR 
198— STRINGS 

197— INSTR 

198— POINT 

199— TIMES 



200— MEM 

201— IN KEYS 

202— THEN 

203— NOT 

204— STEP 

205— + 
206 

207— • 

208— / 

209— I 

210— AND 
211— OR 

212— > 

213- = 
214— < 

215— SGN 

216— INT 

217— ABS 

218— FRE 

219— INP 

220— POS 

221— SQR 

222— RND 

223— LOG 

224— EXP 



Note that ELSE is formed by preceding code 149 by a code 58. an ordinary ASCII 
colon. An apostrophe-REMark is formed by placing a code 251 after a normal 
":REM" (code 58, code 147) sequence. 

Table 1. Numeric-Order Listing of Statement Compression Codes 



225— COS 

226— SIN 

227— TAN 

228— ATN 

229— PEEK 
230- CVI 
231- CVS 
232- CVD 

233- EOF 

234- LOC 

235- LOF 

236- MKIS 

237- MKSS 
238-MKDS 
239-CINT 
240— CSNG 
241-COBL 

242— FIX 

243— LEN 

244— STRS 

245— VAL 

246— ASC 

247— CHRS 

248— LEFTS 

249— RIGHTS 

250— MIDS 



of the statements: END first, 
FOR second, etc. 

In order to determine the ex- 
ecution address of each state- 
ment and function, BASIC nor- 
mally uses two other lookup 
tables. 

There are separate tables for 
statements and functions, and 
other codes have individual rou- 
tines for comparison and JUMP- 
ing. The statement table resides 
at locations 6178-6297 (1822H- 
1899H) and covers statements 
END (code 128D, 80H) through 
NEW (code 187D, BBH). The two- 



byte jump addresses are in the 
numeric order of the state- 
ments. The function table re- 
sides at locations 5640-5711 
(1608H-164FH) and covers func- 
tions SGN (code 215D.D7H) 
through MIDS (code 250D, FAH). 
Again, two-byte addressed 
jumps are in the numeric order 
of the functions. 

BASIC jumps directly to each 
arithmetic function and not to 
an intermediate routine. Miscel- 
laneous codes such as ".", and 
"(", and all statements and func- 
tions with codes between 187 



9 


— 64 


DEFSNG 


-154 


INT 


-216 


OPEN 


—162 


STEP 


-204 


ABS 


-217 


DEFSTR 


-152 


KILL 


-170 


OR 


-211 


STOP 


-148 


AND 


-210 


DELETE 


-182 


LEFTS 


-248 


OUT 


-160 


STRINGS 


-196 


ASC 


-246 


DIM 


-138 


LEN 


—243 


PEEK 


—229 


STRS 


—244 


ATN 


-228 


EDIT 


-157 


LET 


—140 


POINT 


-198 


SYSTEM 


— 174 


AUTO 


-182 


ELSE 


-58,149 


LINE 


— 156 


POKE 


—177 


TAB( 


-188 


CDBL 


-241 


END 


-128 


LIST 


— 180 


POS 


—220 


TAN 


—227 


CHRS 


-247 


EOF 


-233 


LLIST 


-181 


PRINT 


-178 


THEN 


—202 


CINT 


-239 


ERL 


-194 


LOAD 


— 167 


PUT 


—165 


TIMES 


— 199 


CLEAR 


-184 


ERR 


-195 


LOC 


—234 


RANDOM 


—134 


TO 


-189 


CLOAD 


-185 


ERROR 


— 158 


LOF 


— 235 


READ 


-139 


TROFF 


-151 


CLOSE 


-166 


EXP 


-224 


LOG 


—223 


REM 


— 147 


TRON 


-150 


CLS 


-132 


FIELD 


-163 


LPRINT 


— 175 


RESET 


— 130 


USING 


-191 


CMD 


-133 


FIX 


-242 


LSET 


-171 


RESTORE 


— 144 


USR 


-193 


CONT 


-179 


FN 


-190 


MEM 


-200 


RESUME 


—159 


VAL 


-245 


COS 


-225 


FOR 


—129 


MERGE 


-168 


RETURN 


—146 


VARPTR 


-192 


CSAVE 


-186 


FRE 


—218 


MIDS 


—250 


RIGHTS 


-249 


• 


-207 


CSNG 


—240 


GET 


— 164 


MKDS 


—238 


RND 


-222 


♦ 


—205 


CVD 


—232 


GOSUB 


— 145 


MKIS 


—236 


RSET 


-172 


- 


-206 


CVI 


—230 


GOTO 


— 141 


MKSS 


—237 


RUN 


— 142 


/ 


—208 


CVS 


-231 


IF 


— 143 


NAME 


-169 


SAVE 


-173 


< 


—214 


DATA 


— 136 


INKEYS 


—201 


NEW 


-187 


SET 


-131 


* 


-213 


DEF 


-176 


INP 


-219 


NEXT 


-135 


SGN 


—215 


> 


-212 


DEFDBL 


— 155 


INPUT 


— 137 


NOT 


-203 


SIN 


-226 


t 


-209 


DEFINT 


— 153 


INSTR 


— 197 


ON 


— 161 


SQR 


-221 








Table 2. Alphabetic-Order Listing of Statement Compression Codes 





and 215 each have a separate 
compare and JUMP routine, 
some of which can be seen in 
ROM locations 9394-9521 
(24B2H-2531H). See Table 3. 

Variable Storage 

In Level II, the simple vari- 
ables, whether integer, single or 
double precision, are stored di- 
rectly after the BASIC program 
in the order in which they are 
first used in a program. Arrays 
are stored after the simple vari- 
ables, again in the order in 
which they are first used. Con- 
sult Table 4 for descriptions of 
the storage formats. Notice that 
the variable type codes equal 
the number of bytes in the 
variable after the variable name. 
This allows the type number to 
immediately tell BASIC how 
many bytes there are to the next 
variable, thus speeding up sim- 
ple variable table searches. BA- 
SIC does not need to consult a 
lookup table to determine vari- 
able length. It can be fooled into 
believing that certain variables 
are not in the table, if a different 
value for the variable's length is 
POKEd into the variable-type 
byte. See Program Listing 3. 

RAM locations 16641-16666 
(4101H-411AH) store BASIC'S 
type declarations (DEFINT, etc.). 
The table is in alphabetical 
order, with each byte indicating 
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More power to you. 

Disk drives, hardware and software— now more affordable and more available! 



The choice it yours 

Whether you need professional-looking 
cases and power supplies, complete disk 
drive packages or powerful, user-tested 
software, call A.M. Electronics. We 
manufacture and sell a complete line of 
affordable, high-quality and readily- 
available disk drive components and 
software to expand the capabilities of 
your TRS-80™ system. 

Disk drive enclosures 

All enclosures feature: 

• One year power supply guarantee. 
Each unit is 100% tested, regulated 
and fused. 

• Optimum venting for lower 
operating temperatures 

• Excellent RF interference shielding. 
Steel covers come with lustrous dark 
grey finish. 

• Built-in provisions for optional 
extender cable (5Vi only). 

COMPLETE DISK DRIVE PACKAGES 
FROM $3251 

S'A-inch drives 

40-track MPI 51 w/case, power supply 

and extender cable $325 

80-track MP 91 w/case, power supply 

and extender cable $560 

Special Offer! 8-inch drives 

for Model I or II 

Single Siemens drive with case and 

power supply $695 

New! 

Dual Siemens drives with dual case 

and power supply $1240 

(90 day limited warranty on disk drives) 



CASES AND POWER SUPPLIES 

572-inch enclosures 

Single drive unit case and power 

supply $85 

Dual drive unit case and power 
supply $120 

(Extender cables are $15 each extral 

8-inch enclosures 

Single drive unit case and power 

supply $150 

Dual drive unit case and power 
supply $250 

Attention dealers, OEM's & distributors 

Having trouble finding cases and power 
supplies for your disk drives? Call us for 
details on our attractive pricing and 
immediate product availability. 



NEW! TRS— 80™ Model III 

With two double-density 80 track 
disk drives $2,495 



TRS-80™ SOFTWARE PACKAGES 

MAKE80© 

Converts 35 or 40 track diskettes into 80 

track readable diskettes $14.95 

B-17 tape operating system 
For high speed (1 700 baud) loading & 
saving of BASIC/machine language 
programs, almost 4 times faster than 
regular TRS-80™ interface $24.95 



The power behind 
the drives® 



^452 



m 



SUPER UTILITY, by Kim Watt 
Stand-alone 24K machine language 
program for disk includes: 
ZAP UTILITY 

• Read/modify data regardless of disk 
protection • One-step track-to- 
track/sector to sector • Dual cursors, 
ASCII and Hex. Modify in Hex, 
Decimal or ASCII • Display disk 
sectors, display file sectors, copy disk 
sectors, compare disk sectors, 
display/modify main memory, search 
memory or disk for specified string and 
return location 

PURGE UTILITY 

• Kill files by file spec or category • Zero 
out unused directories or sectors 

• Compute passwords, change disk's 
name, date, passwords, protection 
levels • Directory routine indicates all 
active and inactive files, their location 
in directory and status of granules 

DISK COPY UTILITY 

• Copy any TRS-80*" readable disk, 
regardless of protection 

TAPE COPY UTILITY 

• Copy any TRS-80 7 " readable tape, 
regardless of protection or baud rate 

DISK REPAIR UTILITY 

• Automatically repair damaged HIT, 
GAT or BOOT sectors • Directory 
check advises of errors • Automatic 
recovery of killed files • Shows active 
and inactive files, and their location on 
the disk 

MEMORY UTILITY 

• Move memory • Jump to 
memory • Test memory • Compare 
memory • Input or output any byte to 
any port • Zero memory • Exchange 
memory • Edit memory • Load memory 



A.M. 



SUPER UTILITY is now available for 
$49.95, plus $2.50 shipping and handling! 



ELECTRONICS, INC. 

3366 Washtenaw Ave. 

Ann Arbor, Michigan 48104 

(313)973-2312 

Visit our retail showroom for a "hands-on" look at our wide selection of TRS-80" hardware, software 
and peripherals! Hours: Tues.-Fri. 11-7, Sat. 11-5 



'■TRS-80 is a trademark ol Tandy Corp 



v* Reader Service — see page 274 
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keyword 


addn»s$ 


keyword 


address 


keyword 


address 


END 


7598D. 1DAEH 


OUT 


11003D, 2AFBH 


INP 


109910, 2AEFH 


FOR 


7329D, 1CA1H 


ON 


80440, 1F6CH 


POS 


102290, 27F5H 


RESET 


31 2D, 0138H 


OPEN 


16761 D.4179H 


SOR 


5095D, 13E7H 


SET 


309D, 0135H 


FIELD 


16764D, 417CH 


RND 


5321 D, 14C9H 


CLS 


457D, 01C9H 


GET 


16767D, 417FH 


LOG 


2057D, 0809H 


CMD 


16755D, 4173H 


PUT 


167700, 4182H 


EXP 


5177D, 1439H 


RANDOM 


467D, 01D3H 


CLOSE 


16773D, 4186H 


COS 


5441D, 1541H 


NEXT 


8886D, 22B6H 


LOAD 


16776D, 4188H 


SIN 


5447D. 1547H 


DATA 


7941 D, 1F05H 


MERGE 


16779D, 418BH 


TAN 


5544D, 15A8H 


INPUT 


8602 D, 219AH 


NAME 


16782D, 418EH 


ATN 


5565D, 15BDH 


DIM 


9736D. 2606H 


KILL 


16786D, 4191H 


PEEK 


114340, 2CAAH 


READ 


8687D. 21EFH 


LSET 


16791 D.4197H 


CVI 


16722D, 4152H 


LET 


7969D, 1F21H 


RSET 


16794D, 419AH 


CVS 


16728D, 4158H 


GOTO 


7874D, 1EC2H 


SAVE 


16800D, 41A0H 


CVD 


167340, 415EH 


RUN 


7843D, 1EA3H 


SYSTEM 


6900, 02B2H 


EOF 


167370, 4161 H 


IF 


8249D, 2039H 


LPRINT 


8295D, 2067H 


LOC 


16740D, 4164H 


RESTORE 


7569D, 1D91H 


DEF 


16731D, 415BH 


LOF 


167430, 4167H 


GOSUB 


7867D, 1EB1H 


POKE 


11441D, 2CB1H 


MKIS 


16746D. 416AH 


RETURN 


7902D, 1EDEH 


PRINT 


8303D, 206FH 


MKS$ 


16749D, 416DH 


REM 


7943D. 1F07H 


CONT 


7652D, 1DE4H 


MKDS 


16752D, 41T0H 


STOP 


7593D, 1DA9H 


LIST 


11054D, 2B2EH 


CI NT 


26870, 0A7FH 


ELSE 


7943D. 1F07H 


LLIST 


110490, 2B29H 


CSNG 


27370, 0AB1H 


TRON 


7671 D, 1DF7H 


DELETE 


112060, 2BC6H 


CDBL 


27790, OADBH 


TROFF 


76720, 1DF6H 


AUTO 


8200D, 2008H 


FIX 


28540. 0B26H 


DEFSTR 


7680D, 1E00H 


CLEAR 


78020, 1E7AH 


LEN 


107550, 2A03H 


DEFINT 


76830, 1E03H 


CLOAD 


112950, 2C1FH 


STR$ 


102940, 2836H 


DEFSNG 


76B6D, 1E06H 


CSAVE 


11253D, 2BF5H 


VAL 


109490, 2AC5H 


DEFDBL 


76890. 1E09H 


NEW 


6985D, 1B49H 


ASC 


10767D, 2A0FH 


LINE 


168030, 41A3H 


SGN 


24420, 098AH 


CHRS 


10783D.2A1FH 


EDIT 


11872D, 2E60H 


INT 


287 1D, 0B37H 


LEFTS 


10849D, 2A61H 


ERROR 


81800, 1FF4H 


ABS 


2423D, 0977H 


RIGHTS 


108970. 2A91H 


RESUME 


8111D, 1FAFH 


FRE 


10196D, 27D4H 


MIDS 


10906D, 2A9AH 


STRINGS 


10799D, 2A2FH 


INSTR 


167970, 419DH 


TIMES 


167580. 4 176H 


POINT 


3060, 0132H 


FN 


167250, 4155H 


& 


16788D. 4194H 




Table 3. Jump 


Addresses for Statements and Functions 





the default variable type by the 
appropriate type code (2, 3, 4 or 
8). At power-up, after a RUN, or 
after a CLEAR, all bytes in the 
table contain the code for single 
precision, 4. 



Limits of BASIC 

When you enter a response to 
the "MEMORY SIZE?" question, 
BASIC stores the highest ad- 
dress that it is allowed to use in 



Single Prec. Number 



Integer Number : byte 1 —identification code 02H 

byte 2— second character ot variable name 
byte 3— first character of variable name 
byte 4— integer value LSB 
byte 5— integer value MSB 
byte 1— identification code 04H 
byte 2— second character of variable name 
byte 3— first character of variable name 
byte 4-7— single precision value 

Double Prec. Number : byte 1— identification code 08H 

byte 2— second character of variable name 

byte 3 — first character of variable name 

byte 4— string length (0-255) 

byte 5-6— location of first character of string 

(LSB.MSB) 

Numeric or String Array: byte 1— appropriate identification code (2, 4, 8 or 3) 
byte 2— second character of variable name 
byte 3— first character of variable name 
byte 4-5— length of actual array (LOA) (LSB.MSB) 
byte 6— number of dimensions in array (1-255) 
bytes 5 + 2n - 6 + 2n— # of elements in dimension "n" 
(1st, 2nd, etc.) 



bytes 7 + 2n - 5 + LOA— the array elements 

The characters of the variable names are stored as the corresponding ASCII 
codes. If the variable name is one-letter, the "second character" byte contains a 
OOH. The "length of actual array" pointer indicates the number of bytes In the array 
which follow the pointer (• of bytes in the array after byte 5). 

Table 4. Variable Storage Formats 



RAM locations 16561-16562 
(40B1H-40B2H). BASIC will nev- 
er use any address above that 
which these two bytes point to. 
When ENTER is used as the 
"MEMORY SIZE?" response, 
BASIC uses all available memo- 
ry. However, if a number is en- 
tered in response to the ques- 
tion, BASIC will only use memo- 
ry up to that number minus two. 

The CLEAR N statement af- 
fects locations 16544-16545 
(40A0H-40A1H). These loca- 
tions point to the highest memo- 
ry byte to be used by BASIC for 
non-string purposes, not the 
lowest byte of the string storage 
area. The pointer indicates the 
top of BASIC RAM byte (in 16561 
-16562) minus N, N from the 
CLEAR N statement. 

These two pointers can be 
manipulated to allow a program 
to reserve high RAM for a 
POKEd machine language pro- 
gram or byte oriented storage 
area without anything having 
been entered in response to 
"MEMORY SIZE?". This high 
RAM area can be decreased in 
size at any time and expanded 
after any appropriate CLEAR or 
CLEAR N statement. 



First, CLEAR enough memory 
to hold your strings and re- 
served memory. Then POKE the 
value (in two-byte binary) for the 
new top of RAM byte into loca- 
tions 16561-16562. There are 
now (top of RAM) minus (top of 
BASIC RAM) reserved bytes and 
(top of BASIC RAM) minus (bot- 
tom of string RAM) number of 
bytes of string storage. Program 
3 is an illustration of this proce- 
dure. 

After the initial CLEAR N and 
POKE'S, there is the same 
amount of program RAM (MEM 
number) as if only the CLEAR N 
had been performed. Any subse- 
quent CLEAR N's actually result 
in N bytes of string space and a 
corresponding amount of pro- 
gram RAM. BASIC would be act- 
ing normally, as if "MEMORY 
SIZE?" had been answered with 
a number. The top of BASIC 
RAM pointer can be raised (de- 
creasing reserved memory) at 
any time with no ill effects. The 
top of BASIC RAM pointer can 
not be lowered if any strings are 
in the string storage area, how- 
ever. 

Funny things happen when 
BASIC is told to operate on 
strings in an illegal area. Note 
that if no strings are yet as- 
signed a value in a program, the 
top of BASIC RAM pointer can 
be positioned in relation to a nu- 
meric variable. Because the 
stack begins right below it, the 
bottom of string RAM pointer 
should never be manually (via 
POKE) changed. 

RAM locations 16548-16549 
(40A4H-40A5H) store the loca- 
tion from which BASIC begins 
storing a program. These loca- 
tions do much more; they indi- 
cate the byte from which BASIC 
lists a program, scan lines for 
EDIT, and start a RUN. Useful 
manipulation of this pointer 
usually requires manipulation of 
a few others (except for CLOAD 
and a couple other commands), 
so discussion of it will come 
after a discussion of those other 
pointers. 

Variable Tables 

When program variables are 
CLEARed, they are not really 
erased; specific pointers are re- 
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DOSPLUS VERSION 3.1 FACT SHEET 

1) Variable length records. 

2) Full lower case support and detection 

3) Repeating keyboard w/debounce 

4) Execute only protection feature for BASIC programs 

5) Track support for 35-80 track drives 

6) Device I/O handling ('PR, •DO, *KI) 

7) BuM-in screen printer 

8) Multiple command chaining with "DO" 

9) Built-in memory test 

10) New printer driver which allows complete 
forms control and paging 

1 1 ) Execute any DOS command from BASIC and return to BASIC 

1 2) Free space map of diskette 

13) Copy with variable length files 

1 4) RS232 switch status and UART check 

1 5) Create and pre-allocate files from DOS 

16) Boot without re-setting dock and date 

17) Display current time and date from DOS 

18) New DISKDUMP sector display/modify (real-time) 

19) New BACKUP (more reliable, no pack ID check) 

20) New FORMAT (more reliable, no need to bulk erase disk first) 



•*****5 MORE UTILITIES******** 

1 ) Single drive copy 

2) Restore (dead files) 

3) Purge (unwanted files) 

4) Clearfile (destroy data with zeros) 

5) Transfer (moves all files from one disk to another) 



r -\ 

[ MICRO SYSTEMS SOFTWARE INC. 

5846 Funston Street, Hollywood, FL 33023 
(305) 983-3390 

NAME 



ADDRESS 
CITY 



I STATE 
■ PHONE 



ZIP 



ACCOUNT # 



MCD VISAD EXP. DATE 
PROGRAM NAME 



QUANTITY 



ACROCOMP 
DISC DRIVCS 

FOR TRS — 80* 



• MOOA 10-1 DSC DMW $44«.tS •«. 

Single-sided. Rippv ". 96TPI 
(80 crock single density 

unfarmoted 2S0H bvtes, sic* 
double density unfarmoted SOOK 

bytes/ side. 



• MOOR MSC DMVf 1 40 I SS99.9S 

Doubte-sided. 96TPI 

( 1 60 erock/e0 per side single 

density unformoted 500H 
bytes double density 
unformoted 1 megobyte, 



fill models ore copobie of single or double density ond ore complete iwch power 
supply ond silver enclosure Send for iriformooon on flf AOCOMP 8 -ond S-drtve systems 
available in 40 ond 80 Crock 

The Doubter™: Percom's new proprietory double-density 
odopter for the TRS-80* computer. 

• Iweow formottod ■tarogs copodty ol your rninidiih«Boj from 
1 1/2 to almost 4 times. 

• Use with stondord 5-indi drives roUd for doubl«-d«mJtv 
operation. 

• Th« DOUBlCfl™ roods, writes and formots eilhor sianl* - or 
double density disks. Only Sllf.tS. 

'■■■■■■■■■■■■■■■■■■^•■•■■■■■•■•■■■•■■■■■■■■■■■■■ai 

NCUJFROM 
MICRO SVSTCMSIII 

Micro-Su stems Software Inc. now has double density 
software available for TRS-80* Model I's that ore equip- 
ped with the Percom Doubler. + 

first is o disk editor colled "Disk Zap 2.3". This editor 
will work either single or double density diskettes. It is 
track ond sector oriented, ond offers total access to oil 
ports of the disk. It has the ability to format and backup 
diskettes as well as editing them. 

Second is our new double density DOS. DOSPtUS 3. 1 D. 
like our regular DOS. will run 35-80 crock drives, but offers 
the increased disk storage of double density. 

Disk Zap is $ 1 9.95 ond DOSPIUS 3. 1 or 3. 1 D is $99.95. 
To order, coll or write us ot the oddress below. Master 
Cord ond Visa welcome. Orders accompanied by o 
personal check will be shipped when the check clears the 
bonk. 



MM* 



••384 

Specializing in the Tandy Line 



ft>C? 




(305) 983-3390 



5846 Funston Street 
Hollywood, FL 33023 



* TRS - 80 is o trademark of Tandy Carp 

• Doubler is o Oodemorh of Percom Ooto Corp 

Nouj available m Spanish 



^ R—d*r Stvice— «•• pagt 274 
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makes your 

LYNX is more than a telephone coupler. 
LYNX is a one-piece total telephone linkage 
system for TRS-80 Level I and II 
computers, with or without expansion 
interface. No RS-232 required for true 
originate/answer direct-connect telephone 
operation. DOS-compatible EMTERM 
"smart terminal" software furnished on 
cassette. Already have a favorite TRS-80 
program? Use it with LYNX. 

With LYNX you can tap the Source or the new 
Compu-Serve Information Utility. Control 
university, business and personal computers from 
a remote location. Communicate via electronic 
mail. Learn from library data bases. Profit by 
instant financial market info. 

All for only $279.95* at your dealer or: 

EMTROL "*" 
SYSTEMS, INC. 

123 LOCUST STREET LANCASTER, PENNSYLVANIA 17602 
Phone 717/291-1116 

VISA or Master Card Welcome 

-tttttj |HBM 'Add S2.S0 tor shippinfl and handling PA residents add 6% sales tax 
B Bff *2^ includes all cables "EMTERM" terminal program, instruction manual 
'- ^^^^ ' ■^■^■■W FCC Registration Number A909KE-69486-0M-N 




ole new animal 





Factory orders shipped Mm* day. 



"TRS-80 Is a trademark ol 
the Radio Shack Division of 
Tandy Corporation 



IF YOU LIKED SANTA PARAVIA, 
ENJOYED GALACTIC EMPIRE, 



nsasB 



YOU'LL JUST LOVE PROJECT OMEGA 





NEW 



A PROGRAM PAINSTAKINGLY RESEARCHED 
FOR A TRULY AUTHENTIC & STIMULATING 
SIMULATION YOU'LL JUST LOVE IT! 

TRS-80 16K TAPE $14.95 (Single Plover) 
TRS-80 32 K DISK $24.95 (Multi-Player) 



Ql jSSSAdvent ui€ 

^QsvWJsm VS5^ is ii 

A DIVISION Of SCOTT »D*MS IMC 

BOX J43'j LONGWOOD HA 32 7'jO 30b 8t>?-l'n/ 



OKIDATA PRINTER 

The Best Printer in the World for the TRS-80! 
We'll Stake Our Reputation On It! 



Look at the Features! 

1) 200 million character head 
warranty! Better than any 
competitor' 

2) Works under the most demanding 
business applications' 

3) A "Real" 9x7 DOT Matrix Impact 
Printer' 

4) 80 characters per second' 

5) Full upper and lower case' 

6) Double width characters! 

7) Supporrs TRS 80 Graphics' See 
Illustration (These graphics are 
exactly the same graphic codes as 
the TRS 80s No special software 
required) 

8) Connects directly to TRS 80 with 
standard cable' 

9) Friction & pinfeed, use roll paper, 
stationary or regular data paper' 

10) 6 or 8 lines per inch 

11) 80 and 132 columns 

12) Quiet operation 




Actual pholo ol printout from Okidata 
Printer' From Simutek's Electric Artist 
Program' 

This is ihe Imesl printer you can buy 

at any price lor your TRS 80 

Regular list Price 

$850 00' 

Tractor Feed Option 

$150.00! 

Special Simutek 

Customer Price Only — 

$559.00 

(Tractor Feed $125.00 E»tra) 



C'.ll.ll.Kl « 

90001 Okidata Mrrolme 80 

90002 Tractor Feed Optnn 
91411 Cable For TRS 80 Keyboard 
91401 Cable For Expansion Interface 
94401 Cable For Model II TRS 80 



$599.00 
IZS 00 

ssoo 

woo 

1900 



We Accept VISA Mastercharqe Check* Monev Order* 
or (COD $3 00L»tra) 
NO TAX ON OUT OF STATE ORDERS! * 1 " 

h rrr Shipptnq In (-' S 

Send Orders To SMUTEK, P.O Bon 13687 A Tucson. AZ 85732 



Address 
City 



Slate 



Z.p 



Phone orders welcome 24 hours' (M0I S24V1 149 Simutek offers other hoe produ I 
for TRS 80s Send tor tree latalog' Anzona residents add A- soles tax 

nrs-as u » tm .* pua» «*». t a im < «. v 
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set so that the variables can no 
longer be accessed. BASIC for- 
gets the variables, just as it for- 
gets a program after a NEW. 
These four pointers control the 
length of a program, simple vari- 
ables, array variables, and data 
statements. 

RAM locations 16633-16634 
(40F9H-40FAH) indicate the top 
of the simple variable table, 
which is physically the lowest 
byte in the table, since that is 
where BASIC begins a table 
search. These point to the first 
byte of the first variable in the 
table, not any of the three 00H 
bytes at the end of a BASIC pro- 
gram. 

Locations 16635-16636 
(40FBH-40FCH) indicate the top 
of the array table (the lowest 
byte of the table). Again, these 
point to the first byte of the first 
array, not the last byte of the 
last simple variable. Note that if 
there are no simple variables, 
this pointer equals the top of 
simple variable table pointer. 

Locations 16637-16638 
(40FDH-40FEH) indicate the 
next byte after the byte at the 
bottom of the array table (the 
highest byte of the table plus 
one). Note that if there are no ar- 
rays, this pointer equals the top 
of array table pointer. 

Locations 16639-16640 
(40FFH-4100H) indicate the cur- 
rent BASIC DATA pointer. This 
indicates the data delimiter 
(comma, etc.) just before the 
next piece of data to be read. If 
the next piece of data is at the 
beginning of a DATA statement, 
the pointer indicates the 00H 
carriage return at the end of the 
program line in which the latest 



piece of data has been read (the 
00H byte at the beginning of a 
BASIC program if no data has 
been read, or the colon after the 
latest DATA statement if there 
were other statements after that 
DATA statement within its pro- 
gram line). If the next piece of 
data is not right at the beginning 
of a particular data statement, 
the pointer indicates the comma 
preceding the piece of data — 
never a space (nor a semicolon, 
since that is not a data delimi- 
ter). 

If these bytes do not point to 
some proper delimiter, an "OUT 
OF DATA" error will occur. If the 
pointer indicates a comma in 
the middle of a non-DATA state- 
ment such as a PRINT state- 
ment, BASIC will treat the 
PRINT statement as a DATA 
statement and will thus read the 
program as data. 

The first three pointers are 
quite sensitive, doing anything 
from making a RESET neces- 
sary to causing a new "MEMO- 
RY SIZE?" if they are improperly 
positioned. One must organize 
the first three pointers in a way 
that seems logical to BASIC. 
The following are a few ways to 
do this. 

Level II does not have an 
ERASE statement, which allows 
a program to selectively CLEAR 
a particular array from memory, 
usually so that the freed memo- 
ry can be used for some other ar- 
ray. For example, ERASE A 
wou Id el iminate array A from the 

table. We can't have the versatil- 
ity of erasing any single array 
we want to, but we can erase 
any array if we are willing to 
erase all arrays below it in the 
array table. This means that if 



10 A=l:B-2:C=3:D-4 ' INITIALIZE VARIABLES 
2B POKE VARPTR(B)-3 , 4*7 ' POKE AN EXTRA SKIPPING-OVE 
R 
DISTANCE ( THE REST OF B AND ALL OF C ) INTO 

B'S 
VARIABLE-TYPE BYTE 
30 PRINT A,B,C,D ' PRINT THE RESULTS 
40 POKE VARPTR{A)+4 ,4 'THE ONLY WAY TO REVERSE THE 



SKIP-OVER 
OF ITS 
I.D. ) 
50 PRINT A,B,C,D 



B IS NO LONGER %,!,#, OR S BECAUSE 
PRINT THE RESULT 



Program Listing 3. The above could be used when running 
multiple programs which share only a section of the variable 
table. 



Announcing the most important utility ever 
introduced for the TRS-80* Model I and Model II— 

ENHBAS"" 

ENHBAS is an Enhanced Basic extension module, 
which loads at the top of BASIC, adding many com- 
mands and background tasks — 

DOver 30 new commands added to your BASIC: 

•SORT-Multi-keying, multi-tagging array sort. Sorts thou 
sands of items in mere seconds, all with one command! 

•JNAME $exp-Use line labels along with line numbers in 
branching statements, as in assembly language, using the 
ENHBAS commands GTO and CSUB (special GOTO 
and GOSUB). For example: 

10 GTO "ENTER A LINE" 

20 REM LINE 10 IS THE SAME AS GOTO 30' 

30 JNAME "ENTER A LINE" : INPUT A$ 

How many times have you wanted to use variables to refer- 
ence line numbers? Now you can! GTO and CSUB allow 
variable expressions as operands, such as: GTO X+40 or 
CSUB (Y*10)+30. 

•WHILE / WEND-New, structured programming loop 
construct. Makes for more logical program flow. 

•EXEC / EVAL-Two new, extremely powerful functions! 
EVAL evaluates an algebraic expression in string form: 
A$ = "X + 2" : Y - EVAL A$ would result in Y being set 
equal to the algebraic expression X + 2. With EVAL, you 
can manipulate complex functions in string form, and then 
execute them. 

EXEC executes a string expression as if it were a BASIC 
program line! For example: 

A$ - "PRINT X" : X - 4 : EXEC A$ would result in a 4 
printed on the screen (that is, execution of the BASIC 
statement "PRINT X"). With EXEC, your computer can 
write its own programs and execute them! 

•CALL-Pass control to machine language sub routines at 
any address, passing parameters both ways. 

•CLM / PAGE-Set up automatic page roll over and other 
line printer functions from BASIC. 

•All these and many more! 

Din addition to the above commands, Model I 
ENHBAS contains vector graphics and drawing 
commands. Model II ENHBAS has many func- 
tions suited to business programming — ISAM file 
handling commands, RS-232 access, and many 
more; alonq with several Model I BASIC com- 
mands left out of Model II (PEEK, POKE, etc.). 

DENHBAS includes many background utilities: 
•User-select cursor •Short-entty commands 

•Key click (Shift-letter) 

•2-tone beep on error •Real Control keys 

•Automatic lower-case •One-letter commands 
•Automatic debounce •Formatted USTing 

ENHBAS is available for: 

16K Model I— Level II Tape $39 95 

32K Model I Disk $39 95 

32K Model II $99.95 

Other software: 

CSG PILOT-Disk based, high level language. Fast! 

32K Model I Disk $59.95 

Z-EMULATOR-Executes assembly language program lines 

16K Model I-Level II Tape / 32K Model I Disk . . . $29.95 
ENHCOMP- Integer subset BASIC compiler. Full graphics and 
unlimited length variables. Written in machine language— fast! 

32K Model I Disk $24 95 

ABBREV-Level I abbreviations in Level-II/Disk BASIC. 

16K Model I— Level-II Tape / 16K Model I Disk . . . $24.95 

'TRS-80 is a registered trademark of Radio Shack, a Tandy Co 

The Comsoft Group 

6008 N Keystone Ave.. Dept. 80, Indianapolis, IN 46220 
(317)257-3227 ^465 



S Reader Service— see page 274 



80 Microcomputing, December 1980 • 155 



ADVANCED BUSINESS 
SOFTWARE FOR THE TRS-80 

(Now Available For Modal II Alto) 
•FORECASTING 'RISK ANALY8I8 'U.S. MACRO MODEL 

If you're serious about improving your business with a 
computer, why not use the best business planning 
software available? Or. David M. Chereb has made the 
most powerful and successful business analytical 
techniques available to micro computer users. 

All programs listed below are in Basic, for 32 K (or 
more) disk based TRS-80 systems. 

BUSINESS PLANNING PACKAGE for FORECASTING 

An integrated set of forecasting programs to handle a 
variety of business forecasting needs from Trend 
Analysis to Advanced Multiple Regression (1 00 pg. User 
Manual) MOD I $99. MOD II $199. 

INVESTMENT RISK ANALYSIS- The major ingredient 
in any investment is uncertainty. This program accounts 
for cost changes, shifting revenue streams and interest 
rate fluctuations Now you can manage risk. (35 pg. User 
Manual) MOD I $99. MOD II $199. 
U.S. SIMULATION MODEL - Knowing where the 
economy is going and how It reacts to government fiscal 
and monetary actions can save you a lot of money. This is 
a user oriented economic situation model contracted to 
professional standards (50 pg. User Manual) MOD I 
$199. MOD II $299. 

To order CALL 714/893-8053 or write to APPLIED 
ECONOMIC ANALYSIS, 4005 Locust Ave, Long Beach, 
CA 90807. 



Our new program 
package for the 

TRS-80 
sounds terrific. 



So does the price* 

There are lots of programs with sound that 
are worth about a dollar. Trouble is, they cost a 
lot more. 

But at Basics &l Beyond we've just developed 
Microcosm III, 20 programs with sound— each 
just as good as our competition's $15 and $20 pro- 
grams—for $24.^5. That's a 20-program package 
for $24.95. 

It includes "Pinball," replete with ringing 
bonuses, spinners, buzzers and fli p per s ; torpedo- 
firing "Submarine" that explodes with underwater 
excitement; and the right/wrong buzzer in "Long 
Division" teaches step by step. 

At Basics &. Beyond we underscored our 
point that most other program packages are over- 
priced with Microcosm I and Microcosm Q, $19.95 
each. Now a lot of people will start hearing about 
our third package and stop listening to high prices. 

You see, it's not that our program packages 
for the TRS-80™ microcomputer are so cheap. 
It's just that theirs are so expensive. 

BASICS & BEYOND, INC. 

Box 10 • Anralk, N.Y. 10901 • Or call 914-962-2355 • 49 
MaMerchaije and Viaa accepted. 
NocharaeforpoMageorhandUnf.N.Y.raideMiadd5% aiescu. 
TRS-flO i* a trademark of^R^lo Shack <tivMon of ilandy Corp. 



5 CLS 

10 CLEAR: 

PR I NT "PRESENT TOP OP BASIC RAM :"; 

PEEK(16561)+PEEK(16562)*256: 
PRINT 'PRESENT BO 

TTOM OF STRING STORAGE SPACE :"; 

PEEK (165 
44>+PEEK(16545)*256: 
PR I NT "AMOUNT OF FREE STRIN 
G SPACE :";FRE(AS) 

11 ' CLEAR OLD STRINGS AND PRINT PRESENT POINTER CONDIT 

IONS 
20 INPUT "NUMBER IN 'CLEAR N' STATEMENT* ;N: 
CLEAR N 

• INPUT AND CLEAR DESIRED AMOUNT OF STRING 
STO 

RAGE SPACE 
30 INPUT "NEW TOP OF BASIC RAM ('MEMORY SIZE" ♦ 2)"iMS: 

POKE 16562 , INT(MS/256) : POKE 16561 , MS-INT 

(MS/256) "256 
' INPUT AND SET NEW TOP OF BASIC R 
AM 
40 PRINT : GOTO 10 ' PRINT OUT RESULTS AND RESTART EXP 
ERIMENT- 
EXIT PROGRAM VIA <BREAK> KEY. 

SpecMcattons 
(Program 4) 

• allows the programmer complete freedom to CLEAR string storage space, 
without losing any variables 

note: CLEARed space, of course, must not overlap trie variable area (not be too 
large), and must not be too small to handle present string variables, if they are 
desired intact. The programmer may selectively save only simple variables (If 
an array is to be re-DIMensioned), or may save both simple variables and array 
variables 

Usage 

• save pointers: 

a. simple variables only: GOSUB 50300 

b. simple variables and arrays: GOSUB 50350 

• restore pointers: 

a. simple variables only: GOSUB 50325 

b. simple variables and arrays: GOSUB 50375 

• note: Read first Item under "Specifications" for caution during use. 

• No new variables may be introduced (nor any old variables re-Introduced after 
the CLEAR or CLEAR N) before the pointer-restore GOSUB is made!!! 

• You may, however, use in any way your existing old variables before the CLEAR 
or CLEAR N is made. 

Program Listing 4. The above illustrates bow to reserve high 
memory after the "MEMORY SIZE?" question has been an- 
swered. 



the order of array initialization is 
A, B, C, and array B is erased, 
both B and C will be erased. 
First, compute VARPTR (first 
element of array, such as B(0,0) ) 
-6-2* (the number of dimen- 
sions, in this case, 2). The 6 rep- 
resents the array identification 
bytes, and the 2* (number of 
dimensions) represents the 
number of elements in dimen- 
sion words in the array header. 
In a 32K RAM or 48K RAM sys- 
tem, the VARPTR function will 
return a negative value if the ar- 
ray is in the above 16K RAM 
area, and you must convert it to 
the actual address by adding 
65536 to it. Load this number (in 
two- byte binary format) into the 
bottom of array table pointer at 
locations 16637-16638. If you 
wish to erase all the arrays and 
keep the simple variables, sim- 
ply POKE the value of the top of 



array-table pointer into the bot- 
tom-of-erray-table pointer. 

Simple variables can be 
erased by repositioning the top- 
of-array-table pointer and set- 
ting the bottom-of-array-table 
pointer equal to the top-of-array- 
table pointer, to maintain a valid 
array table thereby erasing any 
arrays. 

Program Listing 4 demon- 
strates the method used to 
CLEAR string storage space 
without losing variables. The old 
variable table pointer values are 
stored in memory (POKEd into 
the first program line) and later 
restored to the pointers. 

By manipulating the DATA 
pointer a program can use multi- 
ple independent data files. Let N 
be the number of files and X be 
one of the files. 

Program Listing 5 uses an 
N*2 BASIC array to store the 
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RESTORE X position and the 
current REENTER X position in 
the program's data. The 
RESTORE X position is set dur- 
ing an initialization GOSUB 
which tells the subroutine to 
scan for the beginning of the 
program line indicated by XP 
and store it in array element 
P( - CC,0). The REENTER X posi- 
tion is set to the RESTORE X po- 
sition during initialization, and 
from then on is set to BASIC'S 



current data pointer whenever 
the selected file is changed. 

By manipulating several of 
the above pointers, the location 
in RAM from which BASIC be- 
gins to store a program can be 
changed. This involves moving 
the beginning of program point- 
er to a properly organized three- 
byte area in RAM and then posi- 
tioning the variable table point- 
ers to the appropriate RAM loca- 
tions. A properly organized area 



50300 •*«**«••**••**•*«**•••»**********•*•«••***•****•* 

59301 ' • — VARIABLE- POINTER SAVER SUBROUTINE - 

_ • 
50304 •***•****••*•••••*••***•****••••••**•*******•**•* 

50309 ' 

• SAVE SIMPLE VARIABLE POINTERS 

50310 POKEPEEM 16549 )*256+PEEK( 16548) +7, PEEK (16635) : 

P0KEPEEK( 16549 )*256+PEEK( 16548) +8, PEEK (16636) 
50320 RETURN 

50325 ' RESTORE SIMPLE VARIABLE POINTERS 
50330 POKE16635,PEEK(PEEK(16549)*256+PEEK(16548)+7) : 

POKE166 36,PEEK(PEEK(16549)*256+PEEK(16 548)+8) 
50335 POKE16637,PEEK(16635) : 
P0KE16638,PEEK(166 36 
) 
50340 RETURN 

50350 ' SAVE SIMPLE VARIABLE AND ARRAY POINTERS 
50355 GOSUB50300 
50360 POKEPEEK(16549)*256+PEEK(16548)+9,PEEK(16637) : 

POKEPEEK (16 549 )*256+PEEK( 16548) +10, PEEK (16638) 
50370 RETURN 

50375 ' RESTORE SIMPLE VARIABLE AND ARRAY POINTERS 
50380 GOSUB50325 
50385 POKE16637,PEEK(PEEK(16549)*256+PEEK(16548)+9) : 

P0KE166 3 8, PEEK ( PEEK ( 16549 )*256+PEEK( 16548 )*10) 
50390 RETURN 

Specifications 
(Program 5) 

• allows the programmer to use multiple, independent DATA tiles within a pro- 
gram 

• allows simple, last switching between these tiles 

• uses simple initialization procedures 

Usage 

• pointer initialization for file X: 

a. Array P must be DIMensioned to at least a P(X, 1) size. 

b X must be one or greater; file is always initialized to start at the first line 

of a BASIC program, 
c CC must indicate the value - X (must be negative). 
d. XP must indicate the line number where DATA file X begins; for line 

numbers greater than 32767. XP is nof converted to "signed" format— for 

line number 40000. XP = 40000 
e The program executes a GOSUB 50900 

• Note that the line-finding routine is written to conserve memory, not for speed 

• restoring the DATA pointer to the beginning of file X. 
a CC must be 

b XP must equal X 

c The program executes a GOSUB 50900 

• reentry to the poinf in file X where READing left off: 
a CC must be 1 

b.XP must equal X. 

c The program executes a GOSUB 50900. 

• Note that in lines 50930 and 50940. a sign conversion is made on the PEEK ad 
dresses to allow operation on lines above the 16K RAM level— the " + 16636' 
(Z1>327BX)" s can be deleted from the subroutine if no lines are above the 16K 
RAM level. 

Program Listing 5. This subroutine, because of its nature, 
uses no BASIC variables. It does, however, require that the 
first program line in the program — line — be a REMark state- 
ment (REM immediately after the 0) with at least eight spaces 
after the REM. Line is where the variable-table pointers are 
temporarily stored and later retrieved from by this subroutine. 



This Weekend: 

STIK 

IT.... 
••to your 



That s right' Esmarks VIDIET-STIK light pen has the TRS-80 CONNECTION 
for LEVEL I & II Your 4K to 48K TRS-80 System will come alive under your 
VIDIET-STIK within minutes of its arrival That's because there are no wires to 
solder or traces to cut You re up and running as fast as you can plug the 
interlace into your system's cassette EAR-jack. CLOAD our custom LIGHT- 
WAVE demonstration software and RUN And because the interface has a 
plug for your recorder you won I have to unplug it again when loading your 
other software tapes The interface allows them to pass right thru whenever 
you're not using the pen it's exclusive switched tip design means the pen s 
electrically isolated from your system when it's not in use Just point & press 1 
It's that Simple Plug. CLOADand RUN And have we got the software tor you 
to RUN withi Our demonstration tape includes a calibration program (used to 
ad|ust the CRT's brightness and contrast) plus STIK-TAC-TOE AWARI and 
TOWERS Two challenging games and a puzzle that will keep grownups and 
children Stik mg it to your TRS-80 tor hours And there are instructions 
provided so you can begin writing your own light pen programs (Iightware) 
for fun or profit (Level II) Or. just sit back and en|oy our LIGHT-WAVE tapes 
each month Esmark s unmatched commitment to lightwarecan bring you up 
to five new games, puzzles, drills & educational quizes or simulations each 
month Our current LIGHT-WAVE releases are 



T 
R 

S 

8 
O 



LIGHT-PAK2 — LIGHTPEG (4 peg- )u mp puzzles) 
ENDRUN (Othello with a twist) 
LIFE9 (Conway's LIFE with mutations) 
Price $19 95 (including postage & handling) 
LITEGAMMON (Backgammon you'll Stik with) 
STIKWUMPUS (Caves with a little lite) 
MAZEMASTER (Maze after maze to poke thru) 
PRICE $19.95 (including postage & handling) 



(LEVEL II) 



LIGHT-PAK3 
(LEVEL II) 



Order yours now and we'll include a free copy of FLASHBACK. Esmark s 
newsletter dedicated to the latest news m iightware applications And don t 
forget to tell your friends The VIDIET-STIK can also be ordered for use on 
most Other micro systems using the following processor chips 



8080 



Z80 



6800 



6502 



All that's required is a standard cassette jack leading to Ground and a 
readable single bit input port Driver software is provided along with 
instructions for writing Iightware applications And tell your local Dealer that 
Esmark s got a Dealer package he won't want to miss out on Delivery is 3 to 6 
weeks from receipt of your order COD s are (3 00 extra but will be shipped 
within two weeks All prices are F OB Mishawaka. Indiana Indiana residents 
add 4% state sales tax 



ALSO COMING FROM ESMARK 

[ ] TRS-80 Printer Interface (Cassette AUX-jack interface for all RS232 
printers Includes LLIST& LPRINT software) 

[ ] TRS-80 RS232 Communications Interface (Makes your TRS-80 a full 
I/O terminal to timesharing systems the world over Gives you 
intelligent or dumb terminal capabilities at 110 or 300 BAUD Also 
includes Printer Interface above with 20 mA current loop & TTL level 
I/O options.) 

— TRS-80 is a trademark of the Tandy Corporation - 



INCORPORATED 

507 '/* E. McKINLEY HWY. MISHAWAKA, IN 46544 
(219) 255-3035 



$62. 



95 



PLUS $1.50 
•ELECTRONIC SYSTEMS MARKETING POSTAGE & 

HANDLING 



* fleeder Serv/ce— see peoe 274 



80 Microcomputing, December 1980 • 157 



dtcfemi 


h*>x 




•ddr*M(M) 


addresses) 


porpoM 


16384-16386 


4000H-4002H 


RST 08H jump vector 


16387-16389 


4003H-4005H 


RST 10H jump vector 


16390-16392 


4006H-4008H 


RST 18H jump vector 


16393-16395 


4009H-400BH 


RST 20H jump vector 


16396-19398 


400CH-400EH 


RST 28H jump vector; BREAK key jump vector 


16399-16401 


400FH-4011H 


RST 30H jump vector 


16402-16404 


4012H-4014H 


RST 38H jump vector; interrupt mode 1 (FDC. 
RTQ jump vector 


16438-16444 


4036H-403CH 


"old keyboard" image storage area 


16445 


403DH 


video characters/line mode storage (0 = 64, 
8 = 32) 


16526-16527 


408EH-408FH 


USR JUMP transfer address 


16537 


4099H 


most recent keyboard character 


16544-16545 


40AOH-40A1H 


bottom ot string storage area RAM minus one 


16546-16547 


40A2H-40A3H 


current line number (line under execution) 


16548-16549 


40A4H-40A5H 


beginning of BASIC program 


16551-16552 


40A7H-40A8H 


I/O buffer start position 


16554-16556 


40AAH-40ACH 


seed for random number generator 


16561-16562 


40B1H-40B2H 


top of BASIC-usable RAM ("MEMORY SIZE?" 
minus two) 


16596-16599 


40D6H-40D7H 


lowest byte of the lowest string in the string 

area— 1 

location of where BASIC is currently reading a 


16600-16601 


40O8H-40D9H 






program 


16614-16615 


40E6H-40E7H 


location of current statement under execution 


16616-16617 


40E8H-40E9H 


current lowest location of BASIC'S stack 


16620-16621 


40ECH-40EDH 


"." line number 


16633-16634 


40F9H-40FAH 


top of simple variable table 


16635-16636 


40FBH-40FCH 


top of array table 


16637-16638 


40FDH-40FEH 


bottom of array table plus one 


16639-16640 


40FFH-4100H 


current location of BASIC'S DATA pointer 


16641-16666 


4101H-411AH 


variable-type definition table 


16722-16805 


4152H-41A5H 


JUMPS to DISK BASIC routines 


Table 5. Numeric-Order Listing of RAM Areas 



of RAM is one which makes BA- 
SIC think that the beginning of 
program pointer actually is at 
the beginning of any program, or 
the end of a program. In each 
case, the beginning of program 
pointer would indicate the first 
byte of the appropriate program 
line's line pointer. The simplest 
way to position the variable ta- 
ble pointers is to execute a NEW 
or CLOAD after positioning the 
program pointer. 

The variable table can be re- 
positioned anywhere in memo- 
ry. One need only change each 
of the variable table pointers so 
that the simple variable table 
starts at the chosen position 
and all other pointers are in 
proper relation to each other. 
The top array table pointer, for 
instance, must indicate the next 
byte after the last simple vari- 
able. A possible use of this is to 
set up a low memory byte-ori- 
ented storage area (i.e. between 
program and simple variables). 
No program lines can be added, 
deleted, or EDITed if the variable 
table is in memory lower than 



the program. This would cause 
a non-RESETable computer 
lockup. 

The program may be changed 
in any way if the variable table is 
above the program. BASIC will 
not change the position of the 
table unless enough lines are 
entered so that the end of the 
program is beyond the start of 
the table. From that time on, the 
table will be at the true end of 
the program. 

This ability, along with an ex- 
tension of Program 4 to include 
the top of simple variable table 
pointer, would allow editing of a 
program without damage to the 
variable table. 

Multiple programs can reside 
independently in the computer's 
memory at the same time. They 
may have the same line num- 
bers and the same or different 
variable tables. Each program 
could call the others with some 
POKE statements and a GOTO 
statement (POKE a new begin- 
ning-of-program pointer and 
GOTO the desired line in the oth- 
er program). 




»~4W 

SOFTWARE! 



Yes! Quality Software for the TRS-80'is now 
written & available. BCC is pleased to be able to 
present some very fine software now with even 
more available in the very near future. Also we 
develop custom designed software for your 
every need. Write us for a FREE price quote. 

Fo^Sofi^rfhinkBCC <*=^Q/ 



( > KAILBASfc 80 Modal II TR8-BO 64K with 4 drives - •229.00 
Thim la ona of tha eoet powerful sailing labal systeee on the aarket. 
TMa ayataa Mill kaap aa aany aa 30,000 antrlaa in any ordar you chooaa. 
You aay you Mant to kaap your ayataa in Naaa ardor but you need labal > 
or listings in Zipcoda order? No praolaa! Juat uae tha apaclal feature 
that builda a file for printing In Zipcoda ordar. You aay you only want 
to print certain labels? No problem' With our special code ealection 
feature you can select tha labels you want to see. You aay tha Poet 
Office wants to uee a • digit ilpcode? No problaa. Your only problea ia 
to dec. da which great feature to try neat. Reasabsr - all of our 
software coaee with a eoney back guarantee. Available for both 
and CPU ayataaa. Juat specify which you want. 



v<3^ For Supplies Think BCC -^Q, 

< > EPSON MX -80 PRINTER •443.00 

This ia tha printer you have heard so auch about! Thie Ad waa prepared 

uaing an hx-bo printer. The printer hae tha following features! 

Adjustable Tractor Feed widthe up to 10". 

Top of Form, Line Feed, It Online Button. Plue OFF/ON 

Prints TRB-BO graphics 

Diepoeable Print Head! This ia a first' 

Parallel port standard 

w, 80, 132 chars/line plua enhanced graphics eode 

etc. etc. etc! 



SS 



Master Charge Exp. DaU>_ 
Vi»a Signature _ 



_c»rd No- 



order NOW! NYS residents add 7%. 
* <A items ordered Total amount enclosed (All items must be prepaid! 

Bourrut Consulting Corporation "$ 7 

21 Friendly Ad. Smlthtoujn, flY. 11787 




ANNOUNCES ITS: 



Telephone 
Scrambler 

Actual over-the-phone demonstration tapes of this 
prototype tactical security analog phone scrambler are 
now available for evaluation. Send $25 in check, MO, or 
bankcard. 

- - Unit price less than $ 1 000 

- - Est. availability: March 1981 

CRYPTEXT Corporation: 

Security for: DATA COMMUNICATIONS 
DATA STORAGE 
ANALOG COMMUNICATIONS 

creypT©<r E£HT 
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50900 •*♦***•******•*•*•**»*****•**#*****«***#**•#*»*»* 

50901 *• — DATA STATEMENT SELECTOR — 

* 

50904 ■**•************«******»*****•**•****••**»*•*•»•• 

50909 ' 

50910 ONSGN (CO +1GOTO50950, 50960 

50920 Z1-PEEK(16549)*256+PEEK(16548) :P( 0,0) -Z1-1:P(0, 1) 

•11-1 
50930 ZT-PEEK(Zl+3+65536*(21>32764))*256+ 
PEEK 

(Zl+2+65536*(Zl>32765)) 
50940 IFZT-XPTHENP(-CC,0)-Zl-liP(-CC,l)-Zl-l:RETURN 

ELSEZ1-PEEK(Z1+1+65536*(Z1>32766))*256 

+PEEK(Z1+65536*(Z1>32767) ) : 
IPZ1>0TBENG 
OTO509 30ELSEERROR5 
50950 P(XP r l)-P(XP,0) :IFXP>DPTHENGOTO50965 
50960 P (DP, 1 ) -PEEK ( 16640 )*256+PEEK( 16639) 
50965 POKE16640,P(XP,l)/256: 
POKE16639 f P(XP,l)-IN 
T(P(XP,l)/256)*256: 
DP-XP ! RETURN 



V.rtubl. 
Pointw<X,F) 

X Parameter 



CortditionCode 
Data Pointer 
Z1 

ZT 



Variable List 

Purpose 

Pointers for each program DATA file X; 

Function = restore to file X, Function 1 = reenter file X 

operation Parameter during initialization. Indicates line 

number where file starts; during restore or reenter functions, 

indicates the file number itself 

operation-type indicator 

indicates most recent file under use 

pointer to beginning of currently examined line 

line number of currently examined line 

Program Listing 6. 



Run-Time Pointers 

Three run-time pointers have 
some effect on error handling, 
STOP, and "." line update. RAM 
locations 16600-16601 (40D8H- 
40D9H) store the current posi- 
tion of exactly where BASIC is 
reading from a program. This in- 
cludes command mode opera- 
tion (from I/O buffer). Locations 
16614-16615 (40E6H-40E7H) 
store the location of the begin- 
ning of the current statement 
under execution. This indicates 
either a colon for a statement 
in the middle of a line or the 00H 
carriage return of the preceding 
line for a statement at the begin- 
ning of a line. This pointer also 
operates in the command mode. 
The current line number is 
stored at locations 16546-16547 
(40A2H-40A3H). This is an 
FFFFH for command mode. 

POKEing the first two of these 
pointers has no visible affect on 
program execution because 
they are continually updated. 
POKEing an incorrect line num- 



ber into the current line indica- 
tor will cause an incorrect ERL 
and "." line if an error occurs in 
the same line as the POKE. 

The "." line number is stored 
in locations 16620-16621 
(40ECH-40EDH). This is an 
FFFFH if there is no valid "." 
line. 

Locations 16598-16599 
(40D6H-40D7H) point to the lo- 
cation just below the lowest lo- 
cation of any string in the string 
storage area. This is used to 
assign storage positions of 
strings assigned a new value so 
that no old strings are overwrit- 
ten and so that the stack is not 
destroyed. Note that FRE(A$) is 
not determined by this pointer. 

Locations 16616-16617 
(40E8H-40E9H) appear to point 
to the present lowest location of 
the stack pointer that is used for 
FOR-NEXT, GOSUB, etc. 

The RND(X) seed number is 
stored at locations 16554-16556 
(40AAH-40ACH). At power-up, 
all three bytes are FFH or 
00H. ■ 



CP/M® 1 - based Business Software for TRS-80® 2 computers on 
... the fastest Mod-ll CP/M with the most features!!! 



Over 610.000 bytes/disk 
Downloading package included 
1,200 baud operation of serial 
printers without data loss 
Single drive backup 



Mixed single/double density on any 
of 4 drives (even a 1 -drive system) 
Ultra-fast disk operation 
Emulation of cursor addressing for 
any of several "dumb" CRTs 



Auto-LF printer support & ASCII 
top-of-form software (LPIII) 

Supplemental document describing 
our implementation 

User-settable function keys 



MOD-IICP/M $250.00 MOD-I CP/M $150.00 CBASIC2* 3 (Mod I or II) $110.00 

The following software for Mod-ll CP/M only unless otherwise stated ('-requires CBASIC2): 



RM/COBOL #4 - Only COBOL for CP/M with alternate keys (multi- 
key ISAM). CRT screen handling, interactive debug, Z80 code, and 
the most useful Level 2 features. Compatible with Tandy's 

COBOL-but run* faster! $495.00 

PMS (Property Management System) - Interactive, menu-driven 
system includes full Q/L, budgeting, cash journal, delinquency 
list, tenant activity/rent roll, complete audit trail and reports 

on vacancies, lost rent, and vendors $650.00* 

demo disk & manual 75.00* 

APH (Automated Patient History) - General-purpose question- 
asking, answer- printing system furnished as self-administered 
review-of-systems general patient history (Mod-I also) ... $1 75.00* 



MAGIC WAND* 5 - Full-feature word processing, true proportionai 
spacing, file merging, and use of full-screen editor for source 

programs or data $400.00 

RPA( Residential Property Analysis) -Analyzes income and expense, 
financing, taxes, inflation and depreciation on home, condo. or 
apartments over a user-selectable time. Shows payoff in terms of 
ROI. Cap rate, cash-on-cash. Amortization schedules and 
worksheet $300.00* 

demo disk & manual 35.00* 

RBC (Rent/Buy Comparison) - Sales or investment tool to compare 
renting and savings account investment vs. purchasing a particular 
property $250.00* 

demo disk & manual 35.00* 



Osborne & Assoc. C BASIC source programs (Mod-I also): 

Payroll w/Cost Accounting $250.00* General Ledger w/Cash Journal $250.00* 

Accu. Payable/ Accts. Receivable $250.00* O&A CBASIC Books (ea.) $ 20.00 

Vferbatim* 6 media: (Qty. 100 prices) 

5V4" single density $2.50 ea. 

8" certified double density $4.00 ea. 



6" single density $ 3.00 ea. 

450' tape cartridges $20.00 ea. 




N 

8041 Newman Ave., Suite 208 <^ 
Huntington Beach. CA 92647 
(714)848-1922 



Registered trademark of: 
[C, IS. ,1 Digital Research 

* 2 Tandy Corp. 
• 3 Compiler Systems, Inc. 
•^Ryan-McFariand Corp. 
•*Small Business Applications, Inc. 
•^Verbatim Corp. 



ft* 



Distributed in U.K. by: 

rocomputer Applications Ltd. 

1 1 . Riverside Court, 

Caversham, Reading. England 

TEL: (0734) 470425 



^ flfMr S«rv/C«— «•• PW 274 
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TECHNIQUE 



Avoid 



the vagueness of line numbers; use mnemonics for BASIC function calls. 



Now it's Time for. . 
Name That Routine 



David Cornell 
335 Parkside Rd. 
Harrington Park, NJ 07640 



BASIC is convenient, easy to 
learn and presents few 
problems when programs are 
small. However, as programs 
become large, some structural 
features are capable of driving 
one berserk. At the top of this 
list are line numbers. 

The problem is that line num- 
bers, while helpful in editing, 
give no indication of the line's 
function. "GOSUB 1000" can be 
anything. Line 47306 can be any- 
thing. Renumber the program 
and it's something else. Trying 
to understand or debug pub- 
lished programs is particularly 
maddening. One is constantly 
confronted by statements such 
as: 

100 ON X GOSUB 1000. 2000. 3000, 40600 

all of which can be anything. 

A better system assigns a 
mnemonic, or label, to a routine 
which describes its function. 
The above example might then 
look something like this: 

100 ON X GOSUB ADD ENTRY, FIND 
ENTRY, CHANGE ENTRY, DELETE 
ENTRY 

Commands and Syntax 

The program offered here, 
called Label, allows statements 



to be entered just this way. In 
the above example, "ADD EN- 
TRY", "FIND ENTRY", etc. are 
names, or "labels" for routines. 
The label describes the function 
of the routine and makes it easi- 
er to both write the program, and 
to understand how the program 
functions when reading the 
listing. 

BASIC programs created us- 
ing Label will run as written, or 
may be used as source pro- 
grams to create "object" pro- 
grams in standard TRS-80 BA- 
SIC. 

The commands and syntax of 
Label evolved from what I then 
considered standard BASIC pro- 
gramming procedures. While 
writing BASIC programs, I had 
made separate, handwritten 
lists of where routines were lo- 
cated. If a routine was to be 
called, its line number was 
looked up. If something crashed 
in the sort routine, its line num- 
ber was looked up again, so that 
the routine could be found and 
edited. When a program was re- 
numbered to make room for ad- 
ditional lines, routines had to 
found all over again, and a new 
list made. 

All this was a minor inconve- 
nience with small programs. 
However, programs do tend to 
grow (and grow and grow. . .). 
The result usually was a combi- 
nation of scratch paper and ag- 
gravation, especially when I re- 
minded myself that buying a 
computer was supposed to put 



an end to paperwork! 

REM statements helped, of 
course; I began to include a 
REM which identified a routine. 
A sort routine, for example, at 
line 100 might be preceded by: 

95 REM • SORT 

The asterisk (*) was easier to 
spot as it zipped by on screen. 
But such a method was all the 
more annoying because keep- 
ing track of routine locations is 
the sort of thing that a computer 
can do better. 

For me, the annoyance got to 
be too much. 

I began to write a machine 
language program that 
searched the BASIC program for 
lines beginning with "REM*", 
compared strings, with a GOTO 
the following line if a match was 
found. Then I added GOSUB to 
the list of possibilities. Later the 
REM was dropped. Then I added 
ON, and so forth. 

Now, with Label, I can call a 
sort routine by entering GOSUB 
SORT in the BASIC program. To 
find out where the sort routine is 
located, just enter FIND SORT. 
It's a big improvement. Label 
fits into low memory, thus avoid- 
ing conflict with most other ma- 
chine language routines. The 
initialization routines then move 
the BASIC program above La- 
bel. This can create some prob- 
lems with software that as- 
sumes BASIC will always start 
at the same address. 

In Program Listing 1, Label is 



assembled at 17129, low memo- 
ry on a non-disk TRS-80 system. 
It can, of course, be assembled 
to fit anywhere. The complete 
version, available from Instant 
Software, Peterborough, NH, in- 
cludes a loader that calculates 
the lowest available memory, re- 
solves all specific memory refer- 
ences, and loads the program 
down. All this makes Label 
memory independent. 

Taking Control from BASIC 

If TRS-80 BASIC were in RAM, 
this whole thing would be a lot 
simpler and a lot shorter. For- 
tunately, at various points, 
BASIC does make calls to re- 
served RAM locations. By sub- 
stituting a JUMP or CALL, con- 
trol can be taken from BASIC. To 
do this, a JUMP command is 
simply exchanged with the 
original BASIC command, sav- 
ing that original command for 
later execution. 

Label makes use of two RAM 
locations in this manner. In the 
command mode, Label exam- 
ines each entry, substituting a 
token for each reserved word it 
finds. Before execution, how- 
ever, a CALL is made to RAM at 
location 41 B2. At this point a 
check can be made for com- 
mands recognized by Label or 
any user program. In fact, any 
number of programs can be con- 
nected, control passing from 
one to the other, and returning 
to BASIC if nothing is recog- 
nized. 

At run time, and before each 
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line is interpreted by BASIC, a 
Keyboard scan routine is called 
to check for BREAK or SHIFT® . 
This routine has a RAM call to 
41 C4. If the return address is the 
line interpreter in ROM, 1D21, 
control is taken from the normal 
BASIC process by substituting a 
return address in the stack. 

Examples are usually more 
helpful than explanations. Table 
1 shows a group of routines that 
might be used as the starting 
point for an address book pro- 
gram (possibly poorly con- 
ceived, in this case). This side- 
by-side comparison of the 
"source" and "object" pro- 
grams should help clarify 
Label's main reason for exist- 
ence. 

Note that as long as Label is 
in place, the source program will 
run as written, but that the use 
of labels in place of line num- 
bers makes the function of the 
program and the routines ob- 
vious. 

Using Label 

Label can also be used as a 
kind of operating system. It is 
composed of small, callable rou- 
tines that combine to form 
blocks of functions. These in 
turn combine to form larger 



blocks. Because these routines 
are not sequential and may be 
accessed at random by a ma- 
chine language CALL, they can 
easily be incorporated into other 
programs or routines. 

As an example, Label uses an 
asterisk (") to identify BASIC 
lines with target labels. You may 
wish to write a program similar 
to Label that uses "%" to iden- 
tify lines, or you may need to 
find a line that begins with a 
specified character. The rou- 
tines in Label are available for 
that purpose. Consulting the 
listing, you will see that the rou- 
tine that searches the BASIC 
program for a target label is 
called FNDKEY. 

Each line of Program Listing 1 
explains its own function. Exam- 
ining the listing will show you 
how to use the Z-80 registers on 
entry to a routine, and what val- 
ues will be returned. Table 2 de- 
fines all of Label's routines. 

Syntax 

An * at the start of a line iden- 
tifies a label. The character 
string following the * is the 
name (i.e., label) of the routine 
that begins on the following line 
of the program. 



FNDKEY STRMCH 



Figure 1 



MARK GORDON 

COMPUTERS 

DIVISION OF MARK GORDON ASSOCIATES. INC 

P.O. Box 77. Charl«stown, MA 02129 
e*270 (617)4917505 

COMPUTERS 

Atari 800 W I 6K 799.00 

Level II I 6K System 659. OO 

Model II 64K System 3499.00 

I 6K Model III 859.00 

DISK DRIVES 

40 Track 5' 4 inch drive 314.00 

80 Track 5 1 4 544.00 

4 Disk Drive Cable 39.00 

PRINTERS 

Centronics 730 599.00 

Epson MX80B 499.00 

Centronics 737 849.00 

Okidata Microline 83 1044.00 

Integral Data 440C 999.00 

NEC 55IOw tractor 2679.00 

Okidata Microline 80 599.00 

Diablo 630 2495.00 

MISC HARDWARE 

Expansion int TRS 80(Ok) 249.00 

Novation Cat modem 159.00 

I6K Memory Kit 41.99 

Leedex Monitor 109.00 

Printer Cable for above 49.00 

ISO- 2 Isolator 54.00 

AC LINE FILTER 24.00 

STORAGE MEDIA 

Verbatim box 10 5 < 25.00 

Memorex box 10 5' 4 22. OO 

Plastic Storage Box 5.00 

OPERATING SYSTEMS 

NEWDOS by APPARAT INC 49.00 

NEWDOS* by APPARAT INC 99.00 

MMS FORTH DISKETTE PRIMER 79.95 

NEWDOS 80 149.00 

DISKETTE TRS-80* 
BUSINESS SOFTWARE BY SBSG 

Free enhancements and upgrades to registered owners tor 
the cost of media and mailing 30 day free telephone sun 
port User reference on request 
Fully Interactive Accounting Package General Ledger. 

Accounts Payable Accounts Receivable and Payroll 

Report Generating 

Complete Package (requires 3 or 4 drives) $475.00 

Individual Modules (requires 2 or 3 drives) Si 2 5.00 

Inventory II (requires 2 or 3 drives) S 99. OO 

Mailing List Name & Address II 

(requires 2 drivesi $129.00 

Intelligent Terminal System ST 80 III $ I 50.00 

The Electric Pencil from Michael Shrayer $ I 50.00 

File Management System % 49.00 

FINE PRINT 

TRS 80 is a Tandy Corporation trademark Use of aoove operating sys 
terns may require the use of Radio Shack TRS DOS Radio Shack 
equipment suDiect to the will and whim of Radio Shack 

ORDERING INFORMATION 

We accept Visa and Masterchatge We will shipC O D certified check 

or money orders only Massachuselts residents add 5 percent sales ta> 

To order call toll free 1-800-343 5206 
For information call 617 491 7505 
Th« Company cannot B* habit lor pictorial or typographical miccuncus 



*^ Reader S*w/c#— see page 274 
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For example: 



50 ' MENU 

60 INPUT "CMD";CS 



100 GOSUB PUT IN ARRAY 
110 GOTO MENU 



500 * PUT IN ARRAY 
510 NaN + 1 

520 A(N) = X 
530 RETURN 

MENU is the name of the rou- 
tine beginning at line 60; like- 
wise, PUT IN ARRAY is the label 
for the routine beginning at line 
510. 

After entering BASIC (the 
command word, not the lan- 
guage), Label replaces all labels 
which are the object of GOTO, 
GOSUB, etc., with line numbers. 



For example: 

BASIC (enter) 

50 * MENU 

60 INPUT "CMD";CS 



100 GOSUB 510 
110 GOTO 60 



500 ' PUT IN ARRAY 
510 N = N + 1 

The command BASIC has two 
additional "switches," DELETE 
and REM. By entering BASIC 
DELETE, lines 50 and 500 (the 
lines with the label identifier *) 
are deleted. 

Entering BASIC REM 
changes lines 50 and 500 to 
REM statements. The command 
DELETE LINE REM deletes all 
lines which begin with REM. 



The command LIST ROUT 
lists all label lines, identifying 
all your routines: 



LIST ROUT (enter) 

50 * MENU 

500 * PUT IN ARRAY 

READY 



If labels are present in IF- 
THEN-ELSE statements, the 
commands GOTO and GOSUB 
must be used: 

100 IF X = 1 GOTO PUT IN ARRAY ELSE 

GOTO GET FROM ARRAY 
200 IF X - 2 THEN GOTO INPUT 

AOORESS 

The line: 100 IF X=1 THEN 
PUT IN ARRAY will not work. 
Numbers and labels can be 
mixed as in the following line. 



950 ON X GOSUB DEC/FRAC. 200. 
DISPLAY RESULT 

While Label is operating, all 
lines beginning with the label 
identifier will be treated as REM 
statements, meaning they will 
be ignored by the BASIC pro- 
gram. 

A valid label is any character 
string which does not begin with 
a number or delimiter. The de- 
limiters are the colon, the com- 
ma or a zero byte (not ASCII 0). 
Delimiters indicate the end of 
the label and, obviously, may 
not be used as part of the label. 

Labels can be any length con- 
sistent with BASIC (255 charac- 
ters maximum), thus permitting 
detailed descriptive names to be 
used in your program develop- 



Source Program 


After Command 


After Command 


Will Run as Written 


Basic Rem 


Basic Delete 




10 REM THIS IS A DEMO FOR LABEL 


10 REM THIS IS A DEMO FOR LABEL 


10 REM THIS IS A DEMO FOR LABEL 


100 CLS 


100 CLS 


100 CLS 


110 REM MENU 


120 PRINT - 1. NEW ENTRY - 


110 ' MENU 


120 PRINT "1. NEW ENTRY" 


130 PRINT "2. LIST ENTRYS" 


120 PRINT "1. NEW ENTRY - ' 


130 PRINT "2. LIST ENTRYS" 


140 PRINT 


130 PRINT "2. LIST ENTRIES - ' 


140 PRINT 


160 INPUT X: CLS 


140 PRINT 


150 INPUT X: CLS 


160 ON X GOSUB 190.250 


150 INPUT X: CLS 


160 ON X GOSUB 190,250 


170 GOTO 120 


160 ON X GOSUB NEW ENTRY. LIST ENTRIES 


170 GOTO 120 


190 GOSUB 310 


170 GOTO MENU 


180 REM NEW ENTRY 


200 GOSUB 340 


180 ' NEW ENTRY 


190 GOSUB 310 


210 GOSUB 480 


190 GOSUB INPUT NAME 


200 GOSUB 340 


220 IF XS = "Y" GOSUB 370 


200 GOSUB INPUT ADDRESS 


210 GOSUB 480 


230 RETURN j 


210 GOSUB APPROVE ENTRY 


220 IF XS = "Y" GOSUB 370 


250 GOSUB 410 


220 IF XS = •'Y -- GOSUB PUT IN ARRAY 


230 RETURN 


260 FOR E = 1 TO EN 


230 RETURN 


240 REM LIST ENTRYS 


270 GOSUB 440 


240 * LIST ENTRIES 


250 GOSUB 410 


280 NEXT 


250 GOSUB HEADING 


260 FOR E = 1 TO EN 


290 RETURN 


260 FOR E = 1 TO EN 


270 GOSUB 440 


310 INPUT "NAME ";NAS 


270 GOSU BPRINTENTRY 


280 NEXT 


320 RETURN 


280 NEXT 


290 RETURN 


340 INPUT "ADDRESS - ;AD$ I 


290 RETURN 


300 REM INPUT NAME 


350 RETURN 


300 • INPUT NAME 


310 INPUT "NAME ;NAS 


370 EN = EN + 1 


310 INPUT "NAME ;NAS 


320 RETURN 


380 B$<EN.0) = NAS: 


320 RETURN 


330 REM INPUT ADDRESS 


B$(EN.1| = ADS 


330 ' INPUT ADDRESS 


340 INPUT "ADDRESS ,- ;AD$ 


390 RETURN 


340 INPUT ADDRESS ";AD$ 


350 RETURN 


410 PRINT "NAM E", - ' ADDRESS " 


350 RETURN 


360 REM PUT IN ARRAY 


420 RETURN 


360 * PUTIN ARRAY 


370 EN = EN + 1 


440 NAS = BS(E,0): PRINT NAS, 


370 EN = EN + 1 


380 BS(EN,0) = NAS: 


450 AD$ = BS(E,1): PRINT ADS 


380 BS(EN.0) = NAS: 


B$(EN,1) = AD$ 


460 RETURN 


BS(EN.1) = AD$ 


390 RETURN 


480 CLS 


390 RETURN 


400 REM HEADING 


490 GOSUB 410 


400 ' HEADING 


410 PRINT "NAME - . "ADDRESS" 


500 PRINT: PRINT NAS. ADS 


410 PRINT "NAME' . "ADDRESS" 


420 RETURN 


520 PRINT:PRINT 


420 RETURN 


430 REM PRINT ENTRY 


540 PRINT-IS THIS CORRECT Y/N" 


430 ' PRINT ENTRY 


440 NAS = BS(E.0): PRINT NAS. 


560 XS = INKEYS: 


440 NAS = BS<E,0): PRINT NAS. 


450 ADS - BS<E,1): PRINT ADS 


IFX$ = ""THEN550 


450 ADS = B$<E,1); PRINT ADS 


460 RETURN 


560 IF (XS = "Y" OR XS = "N' - ) RETURN 


460 RETURN 


470 REM APPROVE ENTRY 


ELSE GOTO 540 


470 * APPROVE ENTRY 


480 CLS 


570 END 


480 CLS 


490 GOSUB 410 




490 GOSUB HEADING 


500 PRINT: PRINT NAS, ADS 




500 PRINT: PRINT NAS. ADS 


510 REM APPROVE 




510 ' APPROVE 


520 PRINT:PRINT 




520 PRINT:PRINT 


530 REM APPROVE 1 




530 ' APPROVE 1 


540 PRINT-IS THIS CORRECT YfN" 




540 PRINT-IS THIS CORRECT Y/N" 


550 XS = INKEYS: 




550 XS = INKEYS: 


IFXS='"THEN550 




IFXS = "THEN550 


560 IF (X$ = "Y" OR XS = "N") RETURN 




560 IF (X$ = -Y - ' OR X$ = "N") RETURN 


ELSE GOTO 540 


Table 1 


ELSE GOTO APPROVE1 


570 END 




570 END 
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ONE 
AL-L- 



CALL! SHOPPING POR THI 
VOUF* HARD/8QFTMARE IMI 



TRS — BO* 
:ds NOW ! 



PARTIAL SOFTWARI 



LISTING 



CYLOM RAIDER 


7.95c 


animated mam 


?.95c 


SPACE BATTLES 


14.9Sb 


LEVa IV BRAPMC8 


14.95b 


TYPINB I MB II 


18.95c 


INVADERS 


14.95c 


RAHEDIT 


34.9M 


STM TREK 3.4 


14.95c 


D088TM 


9.95c 


PERSONAL FINANCE 


9.95b 


COMPUTER YAHTZEE 


7.95c 


NEAN CHECKERS 


19.95b 


LEVEL I RELOCATED 


IS. 00c 


FINAL APPROACH 


7.95c 


KVP 


14.95c 


KVP-232 


24.95c 


RENUMBER 


7.95c 


1REF 


29.95c 


Iff 


24.95c 
9.95c 


CHALLEN8E 
ANMDMEDA STRAIN 


9.95c 
9.95c 


SUPER ADD 


24.95c 


SUPER NULT 


24.95c 


INVADERS ♦ 


19.95b 


ENCHANTED ISLAND 


14.95c 


MYSTERY MANSION 


14.95c 


HICR0-0P0LY 


7.95c 


MATCHDOOK FOOTDALL 


9.95c 


THESIS I 


25. »0b 


DOSS 2.2 


29.95b 


RI 


24.95c 


DISK DIRECTORY 


14.95d 


NAIL LISTER 2 


79.95c 


INVENTORY II 


149.00d 



SYSTEM SAVERS 

TINS TONS 

DISK UTILTY 

PI6SKIN 

DANDITO 

PINDALL 

ATERM 

DUEL'N DROIDS 

SUPER SCRIPT 

OUAD 

T-SHORT 

T-SHORT PLUS 

NORDO 

STOCK MARKET 

NHEREAHI 

MN8F0RTH 

TIME SHARE 

60H0KU 

DDT (DISK DR TIMER) 

MICROSOFT ADVENTURE 

EDITOR ASSEMBLER 

LEVEL III BASIC 

DECATHLON ADV 

8T-B0 II 

ST-BO III 

•uHATH 

PENCIL PAL 

BRAPHICS INTERPRETER 

BATTLE SRID 

V.I.C. 

OTHELLO 

BUNKERS 

CRUSHHAN 

CR I DBASE 

TERROR AT SELACHI BAY 

NOTE j c-CASSETTE d-DISKETTE b-BOTH (add 13.00 for disk version) 



BASIC COMPILER 


195.95 


AIDS III (NODEL I) 


69.9Sd 


AIDS III (NOBEL ID 


99.95d 


CALCS 


24.93d 


CRAB 


49.95c 


LINE PRINTER 


24.95c 


BASIC TOOLKIT 


19.80 


LIBRARY 100 


49.95c 


ELEC PENCIL ISO.OOd 


100.00c 


ANDROID NIH 


9.95c 


AIR RAID 


9.95c 


DARRICADE 


9.95c 


RSN-2 


26.93d 


RSH-2D 


29.93d 


RSM REL0CAT0R 


9.95c 


DCV-1 2.2 


9.95c 


RSM II 


39.93d 


TRS FORMATTER 


14.95 


PENHOD 


19.93c 


SARSON 


19.95c 


SANSON II 


29.95b 


6RIDIR0N 


12.95b 


BATTER-UP 


10.95c 


POKER PETE 


11.95c 


FAST6AHHON 


19.95b 


LONBALL POKER 


11.95c 


SKETCH-M 


ll.95c 


STARFLEET ORION 


19.95b 


INVASION ORION 


19.95b 


TEMPLE OF APSHAI 


24.95b 


DATESTONES OF RYN 


14.95b 


NORLOC'S TONER 


14.95b 


RESCUE REIBEL 


24.95b 


ICLLFIRE HARRIOR 


24.95b 


HIS08YS DISA8SEHLER 


19.93c 



14.95c 


LONER CASE DRIVER 


9.95c 


9.95c 


REPEAT AFTER HE 


9.95c 


19.95c 


CUBES 


9.95c 


19.95b 


BSF 


24.95c 


9.95c 


REMODEL ♦ PROLOAD 


34.95c 


14.95b 


REMODEL 


24.95c 


19.95c 


DOSORT 


34.95c 


14.95b 


COHPROC 


19.95c 


24.95d 


INFINITE BASIC 


49.95c 


14.95c 


INFINITE BUSINESS 


29.95c 


9.95c 


COPSYS 


14.95c 


19.95c 


DSM NODEL I 


75.00d 


14.95c 


DSM NODEL II 


150. OOd 


15.95c 


SPIDER HT 1 LOST SOLD 


24.93c 


10.95c 


SPIDER HT ADVENTURE 


24.93d 


79.93d 


DEATH DREADNAU6HT 


14.95c 


B9.95d 


TRIPLE ADVENTURE 


35. OOd 


14.93c 


IRV 


23.00b 


19.95d 


LOST SHIP 


14.95c 


29.95d 


CONEY ISLAND ARCADE 


39.93d 


29.95c 


LOST DUTCHMAN'S SOLD 


14.95c 


49.95d 


SPACE HAR 


9.95c 


24.95b 


AUTO/OEDIT 


14.95c 


79.95d 


NORSE CODE 


14.95c 


ISO.OOd 


KEY EDIT 


19.95c 


74.93d 


HIN 21 


29.95c 


35.00c 


NEHDOS 35 


49.93d 


7.95c 


NENDOS 35* 


99.93d 


7.95c 


NEMOS 40 


59.93d 


19.90c 


NEMOS 4(H 


HO.OOd 


12.95d 


NEMOS 77* 


llO.OOd 


12.93d 


NEMOS-BO 


149.93d 


12.93d 


CP/M 


149.93 


12.93d 


FORTRAN 


93.00 


7.95c 


MACRO ASSEMBLER 


95.00 



PARTIAL. HARDWARI 



LI8TING 



DISK DRIVES READY TO RUN 

NPI 40TR SINBLE 1339 

MPI 40TR DUAL (IN 1 CASE) 1439 

NPI 40 DDL HEAD (2 IN 1) 1449 

MPI 40 DUAL DDL HEAD 1899 

NPI BOTR SINBLE 1499 

NPI BOTR DUAL (IN 1 CASE) 1939 



PRINTERS 

EPSON HI-BO DRIVER INC' I 
NICROLINE BO 
CENTRONICS 737 (LP IV) 
CENTRONICS 779 (LP I) 
ANADEI DPBOOO 



1645 

4595 

1850 

t 1500 

I 4400 



CABLES (2DR 125) (4DR 435) (PRINTER/EI 435) (PRINTER/KEYBOARD 452) 



HE PAY THE SHIPPING ON DRIVE AND PRINTER ORDERS 



I IMICATES USES RE-COMITIONED 



ASK ABOUT USED 33 I 40TR DRIVES. EI'S, 16K LIPS. ETC. 
AM, OUR 10 DAY a M QUESTIONS 1 RETURN POLICY ON USED EQUIPMENT 



* * * SPECIALS * * * 

ULTRADOS* ♦43«? - «^=5 

BOSS 2.2 DISK N>29 - 93 
BOSS 2.2 CASS *24.95 

• ♦119.93 AFTER LIMITED INTRO PERIOD 



LEVEL IV PRODUCTS, INC. 



Please add $2.50 for shipping and handling. 
$1 50 COD 



32238 Schoolcraft Road, Suite F4 • Livonia, MI 48154 
313 525 6200 Outside Michigan call 1 800 521-3305 

Level IV Products Catalog 
NEW - SEND $2 FOR YOUR COPY 
REFUNDABLE ON FIRST ORDER 



Dealers Orders Welcome 
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merit. In its string matching rou- 
tines, Label makes a byte-for- 
byte comparison, although it ig- 
nores embedded spaces. 

Reserved words may be used 
as labels as long as the syntax 
is not recognized by the BASIC 
interpreter. For example, 



100 GOTO NEXT 
200 GOSUB RESUME 



searches for a routine named 
NEXT. However, the BASIC lan- 
guage takes precedence in the 
following: 

100 RESUME NEXT 

This would execute as normal 
BASIC instead of searching for 
a routine called NEXT. 

Remarks may follow the com- 



ma or colon delimiters in Label 
lines. For example: 

500 ' SORT:THIS ROUTINE SORTS 

This has an advantage over 
REM statements on other lines 
since the Label command LIST 
ROUT will display both the label 
and the message for each rou- 
tine, and LUST ROUT will for- 



ward the information to a line 
printer. 

Labeled routines may be ac- 
cessed from the command 
mode. However the first com- 
mand must be one recognized 
by standard TRS-80 BASIC. This 
may merely be a colon (:). 



Examples: 



:GOTOMENU|enler) 

X = 1 GOTO MENU (enter) 



PATCH 

Function: Replaces part of BASIC ROM beginning at 1D1E 

Checks for commands which may take a label and jumps 

to appropriate routine 

If BASIC line begins with an asterisk, process as a REM 

statement 
On Entry: A = result of keyboard scan 

On Entry and Exit 
to Special Case 
Check: A = BASIC Token -80H 

HL points to token in BASIC line 



Function: 
On Entry: 



Function 



Function. 
On Entry: 
On Exit 



Function: 



On Entry 



Function: 
On Entry 



On Exit: 



Function: 
On Entry 
On Exit: 



ADJSTK (ADJutt STaeK) 

Change return address to take control from BASIC 
Top of stack is first return address 
Next two-byte word in stack is ultimate return and is 
return address to be checked. 

CHECK 

Checks BASIC program for commands which may take a 

label 

Calls appropriate processing routine 

Writes number for labels 

FNDKEY (FIND KEY) 

Searches BASIC program for lines beginning with search 

key 

Search key in register C 

DE points to line where search is to begin 

A = if the end of the program was reached 

IX points to the line with the label identifier and object 

label 

HL points to the address of the object key. 

DE points to the next line, the object routine 

C - Search key 

MCHSTR (MatCH STHings) 

Compares two strings byte for byte, ignoring imbedded 

spaces until one of three delimiters, colon, comma on 

zero is reached 

The address of the source string is in the two bytes of 

memory reserved by Label for the purpose: SRLBPT 

iSouRce LaBel PoinTerj. 

DE points lo the object string. 

Carry set if match is found 

PRCSGG (ProCeSs Goto'Gosub) 
Change labels to line numbers in BASIC program 
HL points to byte belore first character of label or line 
number 

HL points to next byte to be checked (by CHECK) for 
GOTO. GOSUB, etc. 

PRCSON (PRoCaSa ON) 

As PRCSGG but must point to each label or line number 
in succession until end of line is reached 



CGOSUB (Command GOSUB) 
CON (Command ON) 
CGOTO (Command GOTO) 
CRSM (Command ReSuMe) 
Jump to Label if required 
HL points to command token in BASIC line 
HL points to tirst character source label or line number 
(not applicable for all cases ol RESUME). 



Function: 

On Entry 



On Exit: 



SPACE 

Move part of BASIC program in RAM to allow a line 
number to be written in place of a label 
The address of the source label is in SRLBPT 
The length of the string to be written in the BASIC pro- 
gram (the ASCII representation of (he line number) in 
LENDEC (LENgth DECimal number) 
Program is adjusted Carry set if new line pointers must 
be written. 



LINEIN 

Function: LB ERROR check 

Entered if BASIC program line entered 
On Entry: BASIC line in input buffer 

Line number in DE' 
Note: If match is found and line numbers are the same, line was being edited 

LENSTR (LENgth STRing) 

Function: Count length of a character string to delimiter 

On Entry: HL points to string. 

On Exit: B = Length of string 

JMPR (JuMPeR) 

Function: To jump to routine corresponding to Label Command 

number 
On Entry Register C equals the number of the word in the WORD 

LIST matching entry in input buffer. Zero it there is no 

match 
On Exit; To specified routine 

JMPTBL (JuMPTaBLe) 

Function: Holds location of routines corresponding to words in 

WRDLST (Word List) 

WRDLST (WoRDLiST) 

Function: Holds list of commands recognized by Label (The list 

looks a little weird because some of the words hold im- 
bedded BASIC tokens Thus, the word ROUT is indicated 
by ASCII R tol lowed by the token for OUT ) 
WORD LIST Structure 

00 Begin List 

W 

R 
D 

00 End Word 

RST 10H 

Label uses two RST's (Restarts) in BASIC ROM. 

The RST's are calls: RST 18H is equivalent to CALL 18H. 



Function: 

On Entry 

On Exit: 



Function 
On Exit: 



Next byte to A. Spaces are ignored 

HL points to previous byte 

HL points to byte. 

Byte in A 

Z is set if (HL) is end ot statement - comma, zero or col 

on. 

C is set if (HL) is a number 

RST 18H 
Compare HL and DE 
Z set if equal 
C set if HL»DE 
HL and DE unchanged 



Table 2. Assembler Mnemonics, Names and Functions of 
Label Routines 
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I ' ill — 7V 

) pan man mm bbcd b bp i Ban Dnan n Ban pnzni nznn pnna ts m ran pngg wan Dow n 

hi hi 1ml LiJ toil" Iml km im mmF tul hi iml Imfim! hirf fail ' InJ 



NEVER UNDERSOLD! 

That i right, if you con find a lower price in thit magazine for any of the items listed In this ad, we will reduce our price 
below our competitor s price. See each box below to determine how much EXTRA we will cut off of THEIR price if we're not 
lowest. Please consider the competitor's shipping charges. OUR SHIPPING IS FREE! ■ 



BE 



S 



lJI\llOMof/lllill)Mllfl\ll^l|l\lllftllli!llMll)iltJu(Xj i 



.v n/iiwiw niin i Miimiiimii wii ulroimiiiiii/iuiTOiiyiiwiiniflttM 



FLOPPY DISKETTES 
& SUPPLIES 

IF YOU CAN FINO A LOWER PRtCI IN 
THIS MAOAZINE ON ANT OF THESE 
ITEMS. DEDUCT t.SO FROM OUR 

COM*fTITO«S P*ICI. TMATS OOt 
PRfCEl 

Call For Quantity Discounts 

Verfcetlm Mehettee bo» of 10) 

S%" MDS2S 01 toll 10 or 16 $26 50 

5 . MD577 01 quodsoti 10or 16 $33.00 

8 FD34- 1000 toll 130 00 

8 F 032 1000 hard $30.00 

8 F034 8000 double density soli $44.00 

8 F D32-8O0O ooubl* density hard $44 00 

r>rln»wh*«ls [specify style) 
QumeorOioblo $6 50 

Labels 

3"i"xl5 16 (5000 labels) $18 75 

Other sizes and quantities CALL 

B at — 

Diablo My Type I $4 95 

Diablo Hy Type II $5 25 

Qume Sprint $3.50 

Centronics Zip Roth $3.95 

MANY OTHERS CALL 



PRINTERS 




IF YOU CAN FIND A LOWER 


PRICE IN THIS MAOAZINE ON 


ANY OF THESE PRINTERS. 


DEDUCT $10 FROM OUR COM- 


PETITOR'S PRICE. THAT'S 


OUR 


PRICE! 




Poper Tiger IDS 440G 


$939 




$1193 


Anodex DP 8000 


$855 


Anodex DP 9500 


$1395 


TI-810 Basic 


$1625 


Centronics 737 


$825 


NEC 5500 D w Bidrctnl Board 


$2695 


NEC 5530 


$2595 


VISTA Daisey Wheel Printer 


$1834 


Qume 5/45.5, 55 


CALL 


Escon IBM Interface 


$595 


i Call For Other Printers 



ff 



HARDWARE 



IF YOU CAN FIND A LOWER PRICE IN 
THIS MAGAZINE ON ANY OF THESE 
ITEMS. DEDUCT S% FROM OUR COM- 
PETITOR'S PRICE. THAT'S OUR PRICE! 

Novation CAT Modem $145 

Novation D-CAT Modem $ 1 85 

16K Memory kit $46 

Isolators $49 

Shugart 35tr Drive $349 

Pertec or MPI 40lr Drive $359 

Lobo Drives CALL 

Matchless Drives CALL 

Percom Doubter $209 

Percom Seperator $27 

AIM-65 Computer 375 

TI-99/4 Computer $925 

California Computer Systems Bds CALL 

Symtec Computer Boards CALL 

Mountain Hardwore Boards CALL 

Green Screen $11 

Call for Other Hardware 




'FREE shipping on all orders over $20. Visa and Master Cord occepted. All n< 
ly answer any questions on oil of our hardware, software, and supply needs 
handling charges whan arriving ot never undersold price. 



iver undersold offers good as supply losts. Please odd 2.00 for all COD orders. Please coll for iltmi not listed We glad 
Quanitity discounts available School purchase orders occepted. Please remember to figure competitors shipping ond 




IF YOUR CUSTOMER 

MAILING 

LIST 

HAS YOU 

NAILED... 

behind a desk for hours 
at a time because of 
constant updates and 
changes, dial (617) 373-1599 

and we'll explain our Customer 
Control Mail List System that has 670 customers per 
diskette; will store name and address information, 
reference code, plus variable selection codes for each 
customer; will display customer information of a video 
screen, print reports and mailing labels; will sort 670 
names in less than 30 seconds; select, sort, and print 
670 mailing labels in just over 30 minutes; has Partial 
Key Lookup and instantaneous display; has select/sort 
options by record sequence, last name, city, state, zip 
code or reference code; and has a low price of only 
$99.00! 

SBmsvsTEms, inc. 

P.O. Box 1225 • 2 Washington Street 
Haverhill, Massachusetts 01830 



Internal 

Expansion 

Board 



includes: 

SERIAL PRINTER PORT 

HIGH-SPEED TAPE SYSTEM 

32K MEMORY 

KEYBOARD DEBOUNCE 

HIQH GRADE PCB 

DOCUMENTATION 



prlc 



.$59.95 



Add $4. for credit card orders 
Add $5 for COD. orders. 



• 371 



DALTEX SYSTEMS 

5308 PRINCE 

LAKE DALLAS, TEXAS 75065 

817-497-2910 

"■»k about our assembled price* 
and DISK CONTROL BOARD" 



This will not work: 

GOTO MENU (enter) 



Three Function Blocks 

Label may be considered to 
consist of three main function 
blocks: The Initialization Block 
(Fig. 1), which sets up the jumps 
and exchanges with BASIC 
RAM; the Run Time Block (Fig. 



2), and the Label to BASIC Block 
(Fig. 3). 

The Run Time Block consists 
of those routines needed when 
the BASIC program is running. It 
is further divided into three main 
sub-blocks which take control 
from normal BASIC, check for 
commands that may take a la- 
bel, and process those corn- 



Run Time Block Commands 

LIST ROUT LISTs all routine lines with the label identifier 

LLIST ROUT Prints all lines with the label identifier 

FIND XXX Finds and displays the line and label tor routine named 

XXX 
DELETE LINE REM Deletes REM lines 
Label to BASIC Block Commands 

Converts to standard BASIC Changes label to line 

number lollowing GOTO. GOSUB. etc. 

Command BASIC and deletes all lines that begin with the 

label identifier. 

Command BASIC and converts lines with the label iden- 
tifier to REM statements 
Note A comparison is made only lor the length ot the command, so that LIST 
ROUTINES produces the same result as LIST ROUT The longer commands may 
be easier to remember 



Table 3. Run Time Block Commands and Label to BASIC 
Commands 



BASIC 

BASIC DELETE 

BASIC REM 




Figure 2 
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mands. 

When a GOTO, GOSUB, or 
similar BASIC branching com- 
mand is encountered, the next 
character is examined. It a num- 
ber is found, a jump is made 
back into BASIC ROM, where 



the program continues normal- 
ly. If a number is not found, the 
Label program assumes that a 
label has been used, and the 
command is processed by the 
appropriate Label routine. 
The Label to BASIC Block is 



40A4 


Points to start of BASIC program 


40A2 


Saves line number 


40A7 


Pointer to BASIC input buffer 


40F9 


Pointer to start of variable table (scalar pointer) 


4066 


Saves HL 


•OR) 


Address of routine to be called on error 


1D1E 


Start line interpreter 


1D9B 


Scan for SHIFT @ and BREAK 


0356 


Calls Keyboard scan routine I 


1AFC 


Writes line pointers beginning with line pointed to by DE 


1AF8 


Writes line pointers from beginning of BASIC program 


1A19 


Ready routine 


1997 


SN ERROR routine 


19A2 


ERROR routine 


1B4A 


NEW routine 


1B50 


BASIC Initialization routines (RUN) 


032A 


Display register A 


OFAF 


Display number in HL 


196C 


Check for enough RAM for stack operation 


2B7E 


Write line of BASIC in buffer, change tokens to words 


2B75 


Display a string from (HL) until (HL) = 


41B2 


First RAM called after immediate mode entry 


41C4 


RAM called by keyscan routine 0358 


4003 


Saves length ASCII representation of binary integer 


40D4 


Points to buffer where ASCII decimal representation written 


Table 4 


BASIC RAM and ROM Locations Used by Label 



FNDKEY STRMCH 



,' FNDLNE "v 



Figure 3 



TRS-80* Compatible 

"carbonless" 

Continuous Statements 




small 
quantities, 
low prices, 
fast delivery 

Order as few as 500 
statements imprinted with 
your firm name and address. 

Only $0795 

NEBS 9062 Statements are 
software compatible with 
the TRS-80, Model 1, Level 
II, Accounts Receivable 
package #26-1555. 



TRS-80 is • Trade Mark ol the Radio Shack 
Co., Subsidiary ol ihe Tandy Corp. 





1 


R 


[ =w= ) 


( EsF-STrr 







SPEED COLLECTIONS 
Product 772 DU-O-VUE* Envelope 
(3%*x6%") eliminates 
envelope addressing. 



Product 9062 — Size 6"x 8ft" detached. Prices include your firm 
name, address and phone in top section, plus your name only in 
lower section. Printed in black ink. Available in single (white) or 
duplicate (white, canary) continuous sets. 





SINGLE 


DUPLICATE 


Product 772 


QUANTITY 


Product 


Product 


DU-O-VUE* 




9062-1 


9062-2 


Envelopes 


10,000 


$192.00 


$355.00 


$138.00 


6,000 


128.00 


228.00 


92.00 


4,000 


99.00 


169.00 


64.50 


2,000 


59.00 


99.00 


36.25 


1,000 


38.75 


61.00 


20.75 


500 


27.95 


39.95 


12.25 



ORDER TODAY! MONEY-BACK GUARANTEE. 
FAST SERVICE BY MAIL or PHONE TOLL FREE 1+800-225-9550 
(Mass. residents 1+800-922-8560). It Is our policy to ship within 
6 working days following our receipt of your order. 



Please ship: 



Date. 



.19. 



CODE 460 



9062-1 STATEMENTS (Single) 

9062-2 STATEMENTS (Duplicate) 

772 DU-O-VUE- Envelopes 

Information on continuous checks and other 
computer forms. 



HEADING TO BE PRINTED ON FORMS: (Please type or print) 



CITY and STATE 



AUTHORIZED SIGNATURE 



[ It you wish us to BILL and SHIP differently from above please indicate. 



L s cvMfi 



-J 



►- Header Service — see page 274 



Computer Forms 

1 94 78 Mollis Street, Grolon, Mass. 01450 

A dMekxi of New England Buuneu Service. Inc 
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called when there is a keyboard 
input in the command mode. If a 
line of a BASIC program is being 
entered, and that line contains 
an asterisk identifying a label, 
the BASIC program is checked 
to see if that label has already 
been assigned to a routine. 

Should you attempt to use a 
label that is already being used 
in the BASIC program, then the 
error message ERROR, LABEL 
ASSIGNED will be displayed. 
Author's comment: For once the 
preferred version is shorter! 

If a BASIC program line is not 
being entered at the command 
level, then a check is made to 
see if the input is a command 



recognized by Label. If that is 
the case, a jump is made to an 
appropriate processing routine 
within Label. If the command is 
not recognized, then control 
passes on to BASIC. 

The principal function of this 
block is to convert the source 
program written with labels to a 
standard BASIC program. The 
BASIC program is searched for 
labels; the length of the program 
lines is adjusted to accommo- 
date numbers in place of labels. 
The numbers are calculated and 
written into the lines, and the 
various user options are ex- 
ecuted. 

Label is concerned with the 



commands GOTO, GOSUB, ON, 
ON ERROR, RESUME and IF. 
With the exception of IF, these 
commands are all variants of 
GOTO; RESUME is a special 
case of GOTO. 

In both the Run Time Block 
and the Label to BASIC Block, 
then, the processing routines 
for these four related com- 
mands end up at the Label rou- 
tine that processes the GOTO 
command. This centralization, 
in addition to making the pro- 
gram easier to understand, 
makes modification much sim- 
pler. 

Table 3 explains the com- 
mands for the Run Time Block 



and the Label to BASIC Block. 
Table 4 gives the RAM and ROM 
locations used by Label. 

User Option 

Three zero bytes (indicated by 
NOPs) are designated USROPT 
(for user option) in the assembly 
listing. These are provided so 
that the user's own machine lan- 
guage routines can be patched 
in, via CALL or JP, without af- 
fecting Label. 

On entry to USROPT, the new 
BASIC line has just been en- 
tered, and the keyboard has 
been scanned for BREAK or 
SHIFT®. USROPT is at Label 
ORG + 38 hex or 56 decimal. ■ 



Program Listing 1 







00001 
















00051 
00052 


;* LABEL - FOR THE TRS- 


80 


» 


















00053 












42E9 




00100 




ORG 


42E9H 






1A19 




00150 


B READY 


EQU 


1A19H 




; ADD. READY ROUTINE IN ROM 


19A2 




00200 


ERROR 


EQU 


19A2H 




; ADD. ERROR ROUTINE IN RON 


008D 




00250 


GTOTOK 


EQU 


8DH 




;GCTO TOKEN 


0091 




00300 


GSBTOK 


EQU 


91H 




; GOSUB TOKEN 


00A1 




00350 


ONTOK 


EQU 


0A1H 




;ON TOKEN 


40A4 




00400 


BPRPTR 


EQU 


40A4H 




t BASIC PROGRAM POINTER 


1B4D 




00450 


NEW 


EQU 


1B4DH 




; ADD. NEW ROUTINE IN ROM 


40A2 




00500 


LNNBUF 


EQU 


40A2H 




;LINE NUMBER BUFFER 


40A7 




00550 


BUFPTR 


EQU 


40A7H 




; POINTER TO INPUT BUFFER 


1997 




00600 


SNERR 


EQU 


1997H 




;SN ERROR ROUTINE IN ROM 


41C4 




00650 


BLNRAM 


EQU 


41C4H 




; CALLED AT BEG. OF EACH LINE 


008F 




007 00 


IPTOK 


EQU 


8FH 




;IF TOKEN 


009E 




007 50 


ERRTOK 


EQU 


09 EH 




; ERROR TOKEN 


0093 




00800 


REHTOK 


EQU 


093H 




;REM TOKEN 


1AF8 




00850 


FWRDPT 


EQU 


1AF8H 




J ROUT. WRITES LINE POINTERS 


1B5D 




00900 


BASINI 


EQU 


1B5DH 




INITIALIZATION ROUTINE 


40D3 




00950 


LENDEC 


EQU 


40D3H 




; SAVES LENGTH DECIMAL # 


40D4 




01000 


DECPTR 


EQU 


40D4H 




; POINTER TO DECIMAL NUMBER 


40F9 




01050 


SCLRPT 


EQU 


40F9H 




/POINTER TO START OF SCALARS (VARIABLES) 


009C 




01100 


LNETOK 


EQU 


09CH 




;LINE TOKEN 


00B6 




01150 


DELTOK 


EQU 


0B6H 




; DELETE TOKEN 


00B4 




01200 


LSTTOK 


EQU 


0B4H 




;LIST TOKEN 


00B5 




01250 


LLSTOK 


EQU 


0B5H 




;LLIST TOKEN 


00A0 




01300 


OUTTOK 


EQU 


0A0H 




;OUT TOKEN 


009F 




01350 


RSMTOK 


EQU 


9FH 




{RESUME TOKEN 


0087 




01400 


NXTTOK 


EQU 


87H 




;NEXT TOKEN 


41B2 




01450 


PSTRAM 


EQU 


41B2H 




; FIRST RAM CALLED AFTER USER INPUT 


1ED9 




01500 


ULERR 


EQU 


1ED9H 




;UL ERROR ROUTINE 


00CF 




01550 


LB ID NT 


EQU 


0CFH 




;LABEL IDENTIFIER 


28A7 




01600 


DISSTR 


EQU 


28A7H 


DISPLAY STRING UNTIL 3Y"E=0 






01650 
















01700 


J ADJUST 


STACK: 


CHANGES RETURN 


ADDRESS TO TAKE CONTROL FROM BASIC 






017 50 


; ENTRY: 


SECOND 


2 BYTE WORD IN 


STACK IS ADDRESS IN QUESTION 


42E9 


D9 


01800 


ADJSTK 


EXX 






;SAVE REG'S 


42EA 


CI 


01850 




POP 


BC 






42EB 


Dl 


01900 




POP 


DE 






42EC 


21211D 


01950 




LD 


HL,1D21H 




; ADD. LINE INTERP. 


42EP 


OP 


02000 




RST 


18H 




;RET. ADD. LINE INTERP? 


42F0 


2003 


02050 




JR 


NZ, KPSTK 




;NO, KEEP STACK AS IS 


42F2 


11FE42 


02100 




LD 


DE, PATCH 




;YES, CHANGE RET. ADD. 


42F5 


D5 


02150 


KPSTK 


PUSH 


DE 




.•RESTORE RETURN ADD. 


42F6 


C5 


02200 




PUSH 


BC 




; RESTORE RETURN ADD. 


42F7 


D9 


02250 




EXX 






; RESTORE REG'S 


42F8 


C3E942 


02300 
02350 


EXBLN 


JP 


ADJSTK 




; EXCHANGED WITH RAM DURING INIT 


42FB 


CD5803 


02400 
02450 


B1D1E 


CALL 


0358H 




;KEY BOARD SCAN 






02500 


; PATCH: 


REPLACES PART OF 


BASIC BEGINNING AT 1D1E 






02550 


; ENTRY: 


A-RESULT OF KEYBOARD 


SCAN 


42FE 


B7 


02600 


PATCH 


OR 


A 




;KEY BOARD INPUT? 


42FF 


C4A01D 


02650 




CALL 


NZ,1DA0H 




;YES 


4302 


22E640 


02700 




LD 


(40E6H) , 


HL 


j SAVE HL Progu 
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• * * A PERCOM BULLETIN * + + 



• 409 



Adapter for TRS-80* computer eliminates disk read errors 



Garland, Texas — Harold 
Mauch, president of Percom 
Data Company, announced 
that the company is marketing 
a simple plug-in adapter for 
TRS-80* computers that cor- 
rects a design deficiency in 
the disk controller circuit. 

The problem, which 
causes disk read errors, has 
been traced to Tandy's re- 
liance on a circuit internal to 
the FD1771 controller IC to 
perform the function of 
separating clock and data 
pulses. 

As explained in the 
Backgrounder, use of the in- 
ternal chip circuit for reliable 
data-clock separation is a de- 
sign shortcut which the man- 
ufacturer of the controller IC 
warns against. 

The Percom solution, a 
PC card adapter called the 
SEPARATOR™, eliminates 
the problem by substituting an 
explicit data separator circuit 










. 



Percom adapter fixes TRS-80* computer disk controller. 

— one which has been used The SEPARATOR™ is 

reliably in Percom disk con- installed without modifying the 

trailers since 1977 — for the host system. The user merely 

internal IC separator circuit. removes the FD1 771 IC from 



the host controller, installs the 
IC in the DIP socket on the 
SEPARATOR™ card, and 
plugs the adapter into the va- 
cated socket of the host con- 
troller. 

Percom cautions that 
opening the Expansion Inter- 
face of the TRS-80* comput- 
er, which is required to install 
the SEPARATOR™, may void 
the computer's limited 90-day 
warranty. 

The SEPARATOR™, 
which sells for $29.95, may 
be purchased from Percom 
dealers or ordered direct from 
the factory. The Percom toll- 
free order number is 1- 
800-527-1592. 

Payment for mail orders 
may be made by certified 
check, cashier's check or 
money order, or charged to a 
Master Card or VISA account. 
Texas residents must add 5% 
sales tax. 



Percom Mini-Disk Drives 
Store More, Cost Less. 



BACKGROUNDER 
CRC ERROR! TRACK LOCKED OUT! 
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Percom mini-disk drives store more data, are 
more reliable, yet a 40-track Percom drive 
costs $100.00 ton than a 35-track Tandy 
drive. 

You can store over 102 Kbytes per disk 

on Percom TFD-100 1 " 40-track drives, over 

197 Kbytes per disk on TFD-200'" 77-track 

drives. A patch — supplied free on minidiskette — upgrades 

TRSDOS* for operation with the newer 40- and 77-track drives. 

Both TFD-100™ and TFD-200™ models are available in 

one-, two- and three-drive configurations. 

Prices start at $399 for a single-drive TFD- 1 00™, $675 for a 
single-drive TFD-200™. Drives are supplied with heavy-duty 
power supplies. Metal enclosure is finished in compatible silver 
enamel. 

See your nearby Percom dealer or order direct by calling 
toll-free 1-800-527-1592. 



Five-Inch Disks Store More 
Than Eight-Inch Disks! - 



Garland, Texas — June 25, 
1980 — Percom Data Company 
has begun production of a 

double-density disk controller 

adapter for TRS-80* Model I com- 
puters. 

Harold Mauch, president of 
Percom, made that announcement 
here today, saying that data stor- 
age capacity using the adapter and 
double-density disk operating sys- 
tem — which is included — can be 
increased to as much as 354 
Kbytes per minidiskette. 

By comparison, the maximum 
storage for larger eight-inch disk 
systems used with the TRS-80* 



Model I computer is about 290 
Kbytes. 

Mauch said the PC card adap- 
ter, which plugs into the controller 
chip socket of the computer Ex- 
pansion Interface, works equally 
welt for either single-density or 
double-density storage, and users 
may continue to run programs 
under TRSDOS", OS-80* and 
other single-density operating sys- 
tems with the adapter installed. 

Price, for the plug-in adapter, 
the TRSDOS'-like double-density 
DOS and a utility for converting 
files and programs from single- to 
double-density format is $219.95. 



by the Technical Staff 
Percom Data Company ^ 4io 



This problem started while 
we were studying an annoying 
problem with the TRS-80* com- 
puter. Disk drives sold by Percom 
are realigned and tested before 
shipment We noticed, however, 
that some disk d rives would pass 
the Percom inspection but just 
would not work reliably on the 
inner tracks with a TRS-80* com- 
puter. These drives were within 
the manufacturer's specifications, 
and would function perfectly on 
other disk systems Percom man- 
ufactures — "perfectly" here 
meaning more than 50 million 
bytes read without errori 

The disk read data separa- 
tion arrangement in the TRS-80* 
computer Expansion Interface 
uses an internal data separator of 
the FD1771 disk formatter/con- 
troller rC. Use of the FD1771 in- 
ternal data separator is not 
recommended by Western Digital, 
the IC manufacturer. The follow- 
ing note appears on page 17 of 
the FD 1771 datasheet: 

Internal data separation 
may work for some appli- 
cations. However, for ap- 
plications requiring high 
data recovery reliability, 
WDC recommends exter- 
nal data separation be 
used. 



We suspected the data 
separator because the problem 
was most severe on disk inner 
tracks where storage density is 
highest and data separation is 
most critical. 

To prove our point, a techni- 
cian breadboarded a standard 
Percom data separator circuit, 
and configured it to plug directly 
into the FTJ1771 IC socket of the 
TRS-80* computer controller. 

When connected to the 
TRS-80* computer, a trouble- 
some drive functioned perfectly! 
We ran a BACKUP utility many 
times and never got a track lock- 
out. Before we added the external 
data separator circuit to the com- 
puter, this same drive would al- 
ways lock out tracks, and would 
have difficulty reading from the 
inner (higher number) tracks. 

The Percom data separator 
circuit fixes the mini-disk control- 
ler of the TRS-80* computer. The 
type of drives being used is ir- 
relevant; the circuit eliminates 

disk read errors resulting from the 
inability of the Tandy controller 
design to reliably separate clock 
and data signals when reading 
high density inner tracks. 
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PRICES AND SPEOF1CATONS SUBJECT TO CHANGE WTTHOUT NOTICE. 

PERCOM DATA COMPANY, IMC. 211 n Kirby Street Garland, Texas 75042 (214) 272-3421 

•MinwfcalPwoaTt Dm Con*Mny, Inc. TflriMHk ot Tandy Mb Shack Corporation which haa no ralaaonar^ to Paroom Da* Company 



^0 RemOer Service— see papa 274 
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4305 


ED73E840 


02750 




LD 


(40E8H) ,SP 


;SAVE SP 


4309 


7B 


02800 




LD 


A,(HL) 


;BYTE TO A 


430A 


FE3A 


02850 




CP 


1 : ' 


;END OF STATEMENT? 


430C 


282C 


02900 




JR 


Z,B1D5A 


;YES | 


430E 


B7 


02950 




OR 


A 


;END OF LINE? i 


430F 


C29719 


03000 




JP 


NZ,SNERR 


;NO, SN ERROR 


4312 


23 


03050 




INC 


HL 


;END 


4313 


7E 


03100 




LD 


A, (HL) 


; OF 


<314 


23 


03150 




INC 


HL 


t PROGRAM 


4315 


B6 


03200 




OR 


(HL) 


; ? j 


4316 


CA7E19 


03250 




JP 


Z,197EH 


;YES 


4319 


23 


03300 




INC 


HL 


;LINE [ 


431A 


5E 


03350 




LD 


E,(HL) 


; NUMBER 


431B 


23 


03400 




INC 


HL 


; TO | 


431C 


56 


03450 




LD 


D,(HL) 


; DE 


431D 


EB 


03500 




EX 


DE,HL 


J SAVE 


4318 


22A240 


03550 




LD 


(LNNBUF) ,HL 


; LINE NUMBER 


4321 


00 


03600 


USROPT 


NOP 


.*** A JUMP 


OR CALL TO A USER 


4322 


00 


03650 




NOP 


;* ROUTINE MAY BE PLACED HERE 


4323 


00 


03700 




NOP 


;* WITHOUT AFFECTING LABEL 


4324 


3A1B41 


037 50 




LD 


A, (411BH) 


;TRON/TROFF ROUTINE - 


4327 


B7 


03800 




OR 


A 


; ? 


4328 


280F 


03850 




JR 


Z,B1D59 


;NO 


432A 


D5 


03900 




PUSH 


DE 




432B 


3E3C 


03950 




LD 


A,*<' 




432D 


CD2A03 


04000 




CALL 


032AH 




4330 


CDAF0F 


04050 




CALL 


0FAFH 




4333 


3E3E 


04100 




LD 


A, '>' 




4335 


CD2A03 


04150 




CALL 


032AH 




4338 


Dl 


04200 




POP 


DE 




4339 


EB 


04250 


B1D59 


EX 


DE,HL 




433A 


D7 


04300 


B1D5A 


RST 


10H 


;NEXT BYTE TO A 


433B 


11FB42 


04350 




LD 


DE,B1D1E 


; RETURN ADDRESS 


433E 


D5 


04400 




PUSH 


DE 


; TO STACK 


I 433F 


C8 


04450 


B1D5F 


RET 


Z 


;END STATEMENT 


4340 


FECF 


04500 




CP 


LBIDNT 


; LABEL IDENTIFIER? 


4342 


CA071F 


04550 




JP 


Z, 1F07H 


7 YES, NEXT LINE 


4345 


D6 80 


04600 


B1D60 


SUB 


80H 




4347 


DA211F 


04650 




JP 


C,1F21H 


;BYTE IS VARIABLE 


434A 


FE3C 


04700 




CP 


3CH 


;TOKEN? 


434C 


D2E72A 


04750 




JP 


NC,2AE7H 


;NO 






04800 


; CHECK 


FOR SPECIAL CASES 








04850 


; ENTRY: 


A-BASIC 


TOKEN-80HJ HL POINTS TO TOKEN IN BASIC LINE 


434F 


FE21 


04 900 




CP 


ONTOK-80H 


;IS COMMAND 'ON'? 


4351 


2865 


04950 




JR 


Z,CON 


;YES 


1 4353 


3012 


05000 




JR 


NC, NOSPCS 


;OUT OF RANGE 


4355 


FE0D 


05050 




CP 


GTOTOK-80H 


; IS COMMAND , GOTO' 


4357 


380E 


05100 




JR 


C, NOSPCS 


;OUT OF RANGE 


4359 


28 3B 


05150 




JR 


Z,CGOTO 


; COMMAND IS GOTO 


435B 


PE11 


05200 




CP 


GSBTOK-80H 


;IS COMMAND 'GOSUB'? 


435D 


2826 


05250 




JR 


Z, CGOSUB 


;YES 


435F 


FE1F 


05300 




CP 


RSMTOK-80H 


;IS COMMAND 'RESUME' 


4361 


2807 


05350 




JR 


Z,CRSM 


;YES 


4363 


FE0F 


05400 




CP 


IFTOK-80H 


;IS COMMAND 'IF'? 


4365 


2873 


05450 




JR 


Z,CIF 


j YES 






05500 


;END SPECIAL CASE CHECK 




4367 


C36A1D 


05550 
05600 


NOSPCS 


JP 


1D6AH 


;NOT SPECIAL CASE 






05650 


; COMMAND RESUME 






436A 


11F240 


05700 


CRSM 


LD 


DE,40F2H 


; POINT DE TO ERROR # 


436D 


1A 


05750 




LD 


A, (DE) 


; ERROR • TO A { 


436E 


B7 


05800 




OR 


A 


;NO ERROR? 


436F 


CAA019 


05850 




JP 


Z,19A0H 


; RESUME CALL ILLEGAL 


4372 


3C 


05900 




INC 


A 




4373 


329A40 


05950 




LD 


(409AH),A 




4376 


12 


06000 




LD 


(DE),A 




4377 


D7 


06050 




RST 


10H 


;NEXT BYTE TO A I 


4378 


DAC11F 


06100 




JP 


C1FC1H 


7 NUMBER 


437B 


CAC11F 


06150 




JP 


Z,1FC1H 


;END STATEMENT 


437E 


FE87 


06200 




CP 


87H 


;NEXT? 


4380 


CACD1F 


06250 




JP 


Z,1FCDH 


;YES i 


4383 


1815 


06300 
06350 




JR 


LNLBL 


; PROCESS AS LABEL 






06400 


; COMMAND GOSUB. 


SEE CGOTO 




4385 


0E03 


06450 


CGOSUB 


LD 


C,03 


;# ADDITIONS TO STACK 


4387 


CD6319 


06500 




CALL 


1963H 


;ROOM IN RAM? 


438A 


CI 


06550 




POP 


BC 


;SAVE RETURN 


438B 


E5 


06600 




PUSH 


HL 


;SAVE CUR R. LOCATION 


438C 


ED5BA240 


06650 




LD 


DE, (LNNBUF) 


;LINE • TO DE 


4390 


D5 


06700 




PUSH 


DE 


,-SAVE LINE t 


4391 


3E91 


06750 




LD 


A,91H 


; GOSUB TOKEN 


4393 


F5 


06 800 




PUSH 


AF 


; TO STACK 


4394 


33 


06 850 




INC 


SP 


;F REG. NOT NEEDED 


4395 


C5 


06 900 
06 950 




PUSH 


BC 


j RESTORE RETURN 






07000 


; COMMAND GOTO: 


JUMP TO LABEL SEARCH ROUTINE IS REQUIRED, ELSE BASIC 






07050 


; ENTRY: 


HL POINT TO COMMAND 


TOKEN IN BASIC LINE 






07100 


jEXIT: 


HL POIN1 


TO FIRST CHARACTER OF SOURCE LABEL OR LINENUMBER 






07150 


J 


(NOT APPLICABLE FOR 


ALL CASES OF RESUME) 














Program continues 
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X • P • A • N • D 



YOUR 
TRS-80* 



or 



S-100 




Z*m, -07^ " 



INTRODUCING THE XTD-TRS INTERFACE CARD 
FOR THE STD BUS 

This card permits direct connection between the TRS-80" and the STD BUS system. The 
TRS-80" can even be used as a development system for Z-80 STD BUS QC MicroSystems 
distributes a full line of STD BUS products from a number of manufacturers including 
Mostek, Xitex, Intelligence Systems, Advanced Technology. Antona Corp & others. 



DDT-80 
ROM 




- OFF THE SHI 


:l> S 


TD BUS PRODUCTS — 


AVAILABLE NOW: 






MDX-CPU1 


$260 


Z80 CPU/RAM /PROM 


MDX-CPU2 


$295 


Z80 CPU/RAM /PROM 


MDX-ORAM 8/32 




Dynamic RAM 


MOX-PIO 


$250 


Parallel I/O 


MDX-A/D 8.10 12 




A/D Converter! 


MDX-O/A 6, 12 




D/A Conveners 


SVS-CPM- 




CP/M 2 2 Disk S W 


MDX-MATH 


$699 


Floating Point Math 


MDX-SIO 


$260 


Serial I/O 


XTD-VDT 




Video interlace 


PROM-I 


$165 


PROM Programmer 


MDX-EPROM/UART 


$225 


Combination PROM/UART 


CARD CAGES 




8-22 Slot with MotherBoard 


POWER SUPPLY 


$135 




'Contact OC tor Pricing Options 



$260 Includes: DDT-80 ROM 

"TRS-80 and CP/M are registered trademarks o( Tandy Corp and Digital Research, respectively 



1 — 200 NS MEMORY!!- 


High speed 4116 RAMS for M 


aximum 


Reliability from your TRS-80* 




SET OF 8 FOR $44 


OTHER RAMS (MOSTEK) 


$(1-9) 
5.00 


2114 UCB 1K X4 450 NS 


4118N-4 1K x8 250 NS 


24.00 


4104N-4 4K x 1 250 NS 


10.50 


PROMS (MOSTEK) 




2716T/J12 2K x 8 650 NS 


13.75 


2716T/J8 2K x 8 450 NS 


14.50 


Z80 PARTS 2.5 MHZ 


4.0 MHZ 


$1(1-9) 


$(1-9) 


Z80-CPU 9.50 


13.50 


Z80-PIO 6.00 


9.50 


Z80-CTC 600 


950 


Z80-DMA 20.00 


29.00 


Z80-SIO 1775 


23 50 


MISC. 




12" Video Monitor B&W 


$149.00 



Ask For Our Full Catalog 
Ol Products And Services 

MasterCharge. Visa. American Express Check. COD accepted 
Add $3 00 lor US Shipping & Handling Allow two weeks lor 
shipment Mm order ol $10 00 AM products covered by a 90 day 
OEM warranty Pnoas subject to change without notice 



Oveneat Inquiries Welcome! 

/licro " 395 
Systems P.O. box 401326 

GARLAND, TEXAS 75040 
(214) 343-1282 

Ask for our complete catalogue' 




AUTHORIZED TRS 80® DEALER #R491 









26-1056 

16K Level II with Keypad 



26-1062 

Model III 16K RAM 
Model III, BASIC 



26 - 4002 

Model II, 64K 



$670.00 $875.00 $3500.00 

WE ACCEPT CHECK, MONEY ORDER, OR 
PHONE ORDERS WITH VISA OR MASTER 
CHARGE. SHIPPING COSTS WILL BE ADDED 
TO CHARGE ORDERS. DISK DRIVES, PRINT- 
ERS, PERIPHERALS, AND SOFTWARE - 
YOU NAME, WE'VE GOT IT. 
WRITE OR CALL FOR OUR COMPLETE 
PRICE LIST. 
C& S ELECTRONICS, LTD. 32 EAST MAIN ST. MILAN, MICH. 48160 

(31 3) 439-1 508 (31 3) 439-1 400 



FULL FACTORY WARRANTY 
ON ALL ITEMS SOLD. 
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C & S ELECTRONICS MART IS AN AUTHORIZED TRS 80 s SALES CENTER STORE #R491 



►^ Reader Service— see page 27* 
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4396 D7 


07200 


CGOTO 


RST 


10H 


;NEXT BYTE 


4397 DAC21E 


07250 
07300 




JP 


C,1EC2H 


; NUMBER, JP TO ROM 




07350 


;LINE LABEL: 


SEARCHES BASIC PROGRAM FOR A LINE BEGINNING WITH LABEL IDENTIFIER ' *'. 




07 400 


j 


CHECKS FOR SOURCE AND 


OBJECT STRING MATCH, UL ERROR AND CN ERROR 




07450 


; ENTRY : 


HL POINT TO FIRST CHARACTER OP SOURCE LABEL 




07 500 


; EXIT: 


HL POINTS TO BYTE BEFORE OBJECT ROUTINE (END OF LINE WITH OBJ LABEL). 


439A 2B 


07550 


LNLBL 


DEC 


HL 




439B CD6144 


07600 




CALL 


NXTBYT 


;NEXT BYTE TO A 


439E CA9719 


07650 




JP 


Z,SNERR 


;END STATEMENT, ERROR 


43A1 0ECF 


07700 




LD 


CLBIDNT 


; LABEL IDENT. TO C 


43A3 226B46 


07750 




LD 


(SRLBPT) , HL 


;SAVE ADD. SOURCE LABEL 


43A6 CD2044 


07 800 




CALL 


CFKMS 


;FIND OBJ. LABEL 


I 43A9 D2D91E 


07 850 




JP 


NC,ULERR 


;NO MATCH FOUND 


4 3 AC EB 


07 900 




EX 


DE,HL 




43AD 7E 


07 950 




LD 


A, (HL) 


;END 


! 43AE 23 


08000 




INC 


HL 


; OF 


1 43AF B6 


08050 




OR 


(HL) 


; PROGRAM? 


43B0 1E20 


08100 




LD 


E,32D 


;CN ERROR 


43B2 CAA219 


08150 




JP 


Z , ERROR 


;YES, ERROR 


43B5 2B 


08200 




DEC 


HL 


;POINT TO 


43B6 2B 


08250 




DEC 


HL 


; END PREV.LINE 


43B7 C9 


08300 
08350 




RET 








08400 


; COMMAND ON: 


SEE CGOTO 




43B8 D7 


08450 


CON 


RST 


10H 


;NEXT BYTE TO A 


43B9 FE9E 


08500 




CP 


9 EH 


; ERROR TOKEN? 


43BB 284D 


08550 




JR 


Z, CONER 


;YES 


43BD CD1C2B 


08600 




CALL 


2B1CH 


; EVALUATE ARGUEMENT 


43C0 7E 


08650 




LD 


A, (HL) 


;NEXT BYTE TO A 


43C1 47 


08700 




LD 


B,A 


;SAVE IN B 


43C2 FE91 


08750 




CP 


91H 


;GOSUB? 


43C4 2803 


08800 




JR 


Z,CONl 


;YES 


iir*; cf 


08850 




RST 


08H 




43C7 8D 


08900 




ADC 


A,L 




43C8 2B 


08950 




DEC 


HL 




43C9 4B 


09000 


CON1 


LD 


C,E 


; ARGUEMENT TO C 


43CA 0D 


09050 


CNTCMA 


DEC 


C 


1 SPECIFIED #? 


| 43CB 2004 


09100 




JR 


HI, NXTCMA 


;NO, NEXT COMMA 


43CD 7 8 


09150 




LD 


A,B 


; RESTORE A 


43CE C34543 


09200 




JP 


B1D60 


% EVALUATE & DO 


43D1 D7 


09250 


NXTCMA 


RST 


10H 


>NEXT BYTE TO A 


43D2 B7 


09300 




OR 


A 


; END STATEMENT? 


43D3 C8 


09350 




RET 


Z 


;YES 


43D4 FE2C 


09400 




CP 


i 


; COMMA? 


43D6 20F9 


09450 




JR 


NZ, NXTCMA 


;NO 


43D8 18F0 


09500 
09550 




JR 


CNTCMA 


;YES, COUNT IT 




09600 


; COMMAND IF: 


SAME AS BASIC 






09650 


; ENTRY 


HL POINTS TO IF TOKEN 






09700 


;EXIT: 


HL POINTS TO ARGUEMENT 


OR END OF LINE 


43DA D7 


09750 


CIF 


RST 


10H 


;NEXT BYTE TO A 


43DB CD3723 


09800 




CALL 


2337H 


; EVALUATE ARGUEMENT 


43DE 7E 


09850 




LD 


A, (HL) 


;NEXT BYTE TO A 


43DF FE2C 


09900 




CP 


r 


; COMMA? 


43E1 CC7 81D 


09950 




CALL 


Z,1D7 8H 


j YES, NEXT BYTE 


43E4 FECA 


10000 




CP 


0CAH 


;THEN? 


! 43E6 CC781D 


10050 




CALL 


Z,1D7 8H 


;YES, NEXT BYTE 


43E9 2B 


10100 




DEC 


HL 




43EA E5 


10150 




PUSH 


HL 




43EB CD9409 


10200 




CALL 


0994H 




43EE El 


10250 




POP 


HL 




43EF 2807 


10300 




JR 


Z,B2056 




43F1 D7 


10350 


B204F 


RST 


10H 




43F2 DAC21E 


10400 




JP 


C1EC2H 




43F5 C33F43 


10450 




JP 


B1D5F 


;JUMP TO 'PATCH' 


43F8 1601 


10500 


B2056 


LD 


D,01 




43FA CD051F 


10550 


B2058 


CALL 


1F05H 




\ 43FD B7 


10600 




OR 


A 




43FE C8 


10650 




RET 


Z 




43FF D7 


10700 




RST 


10H 




4400 FE95 


107 50 




CP 


95H 




4402 20F6 


10800 




JR 


NZ,B2058 




4404 15 


10850 




DEC 


D 




4405 20F3 


10900 




JR 


NZ,B2058 




4407 15 


10950 




DEC 


D 




4408 18E7 


11000 
11050 




JR 


B204F 






11100 


; COMMAND ON 


ERROR: SEE CGOTO 




| 440A D7 


11150 


CONER 


RST 


10H 




440B CF 


11200 




RST 


08H 




440C 8D 


11250 




ADC 


A,L 




440D 2B 


11300 




DEC 


HL 




440E D7 


11350 




RST 


10H 


j NEXT BYTE 


440P DA731F 


11400 




JP 


C1F73H 


;NUMBER, NORMAL BASIC 


4412 E5 


11450 




PUSH 


HL 




4413 D7 


11500 


CONER1 


RST 


10H 


;NEXT BYTE, END STATEMENT? j 


4414 20FD 


11550 




JR 


NZ,CONERl 


;NO 


4416 E3 


11600 




EX 


(SP),HL 


;YES, SAVE IN STACK 

Program continues 
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Stocking Staffers 

for good little computers 




INVADERS 

FROM SPACE 



PIGSKIN 



by J. Laurence, R. Sothen 
& W. Gavenda 

Play football against a friend or your 
computer with PIGSKIN. Featuring 
a graphic display of the field, the 
ball and scoreboard statistics, 
when you have the ball you choose 
from eleven offensive plays while 
your opponent picks which of the 
seven defenses might stop you. 

If you play against your TRS-80, 
there are five levels of difficulty. 
And they aren't easy! You can even 
save a game for later completion. 
Don't limit yourself to Sunday foot- 
ball—get PIGSKIN now for only 
$14.95 on tape, $20.95 on disk. 





SYSTEM 
SAVERS 



by Tom Stibolt 

If you ever type "SYSTEM" on your 
TRS-80*, this two-program package 
will make life easier for you. 

One of the programs, FLEXL, lets 
you make backup copies of any 
system format tape. 

Disk drive owners can use TDISK to 
save any system format tape onto 
disk, it will even load non-contig- 
uous tapes. You will get more out 
of disk drive ownership with TDISK. 

Get this two-program package now 
for only $14.95. Just one of Acorn's 
fine utility programs. 



Full 
sound 
effects 



by Carl Miller 

A NEW ATTACK IS LAUNCHED! 

A new and faster machine langu- 
age approach to this classic (and 
addictive) space game. 

In INVADERS FROM SPACE, you 
choose the game speed, the 
enemy bomb frequency and 
accuracy, the number of shots on 
screen and the number of your 
bases. 

Available for TRS-80* 16K Level II 
for only $14.95 on tape or $20.95 on 

disk. 

DUEL 

-N- 

DROIDS 

by Leo Christopherson 

Your "drold has already learned 
NIM, so now it's time to teach it how 
to wield a laser sword! 

Your 'droid starts out as a lowly 
clown. You teach it how to use a 
laser sword by controlling its move- 
ments. After training it to be a 
"Grand Master," you enter the tour- 
nament against the program's 
skilled 'droid! Entertainment for all 
ages. 

Available now for $14.95 on tape or 
$20.95 on disk, for TRS-80* Level If, 
16K. 





SUPERScript 



by Richard Wilkes 

Enhances Radio Shack's great 
Scripsit word processor with many 
new and useful features. 

Call up the disk directory or kill files 
while still in Scripsit. 

Using any printer with backspace 
capability, you can underline text 
and produce computer-type slash- 
ed zeros. 

All these capabilities, and more, are 
available when you add SUPER- 
CRIPT to your Scripsit program. 
Available for just $29.95 on disk. 



or choose from these 
popular programs. . . . 

. . . SPACE WAR 

Two-player, real-time space battle. 
$9.95 

. . . ATERM 

ASCII terminal communications 
program. $19.95 

. . . MUSIC 

Compose and play your own music, 
using your TRS-80*. $9.95 

. . . CODEBREAKER 

Puzzle-solving game tests your 
logical skills. $9.95 



Available now from these and other fine Acorn dealers 



' TRS-80 is i trademark of Tandy Corp 



DEALER INQUIRIES INVITED 



* Bfl F Software Products, Inc. 

634 North Carolina Avenue, S.E.. Washington. DC 20003 



Acorn 



ADVENTURES INTERNATIONAL 

178 0xlofd Rd 

Fern Par*. FL 32703 

CINCINNATI COMPUTER STORE 

Princeton Plaza - 

11711 Princeton Rd 

Cincinnati, OH 45246 

COMP-UTRS 

51 Florissant Oaks 

Shopping Center 

Fionssant, MO 63031 

DIGIBYTE COMPUTER CENTER 

31 East 31st St. 

New York, NY 10016 

HOBBY WORLD ELECTRONICS 

1951 1 Business Center Or 

North Ridge. CA 91324 

LEVEL IV PRODUCTS, INC 

32236 Schoolcraft Rd 

Livonia Ml 48185 



MICRO MANAGEMENT SYSTEMS 

115-C Second Ave 

Cairo. GA 31728 

MICROMATIC SYSTEMS 

1303 Powell St 
Vancouver. BC V5B-1G6 

THE PROGRAM STORE 

4200 Wisconsin Ave. 

Washington, DC 20016 

and 

W Bell Plaza - 

6600 Security Brvd 

Baltimore. M 6 21207 

RADIO SHACK 

White Oak Shopping Center 

Silver Spring, MD 20904 

and 

Gaithersburg Square 
Gaithersburg. MD 20760 



^> Header Service— see pape 274 
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4417 


CD9A43 


11650 




CALL 


LNLBL 


;FIND OBJECT LINE 


441A 


23 


11700 




INC 


HL 


;POINT TO BEG. OBJ. LINE 


441B 


22F040 


117 50 




LD 


(40F0H) f HI. 


;SAVE ADD. LINE 


441E 


El 


11800 




POP 


HL 




441F 


C9 


11850 
11900 




RET 






442* 


ED5BA440 


11950 


CFKMS 


LD 


DE, (BPRPTR) 


/POINT DE TO BASIC PROG. 


4424 


CD3344 


12000 


CFKMS1 


CALL 


FNDKEY 


;FIND LINE BEG. WITH KEY 


4427 


B7 


12050 




OR 


A 


lis a e? 


4428 


C8 


12100 




RET 


Z 


;YES, END PROGRAM 


4429 


D7 


12150 


CFKMS2 


RST 


10H 


I NEXT BYTE TO A j 


442A 


EB 


12200 




EX 


DE,HL 


;DE POINTS TO OBJ. LABEL 


442B 


E5 


12250 




PUSH 


HL 


;SAVE ADD. NEXT LINE 


442C 


CD4444 


12300 




CALL 


STRMCH 


; MATCH STRINGS 


442F 


Dl 


12350 




POP 


DE 


; ADD. NEXT LINE 


4430 


30F2 


12400 




JR 


NC,CFKMS1 


;NO MATCH, TRY AGAIN 


4432 


C9 


12450 
12500 




RET 










12550 


;FINDKEY: SEARCH BASIC PROGRAM 


FOR LINES BEGINNING WITH SEARCH KEY 






12600 


; ENTRY : 


SEARCH 


KEY IN REGISTER 


C 






12650 


; 


DE POINTS TO LINE WHERE 


SEARCH IS TO BEGIN 






12700 


;EXIT: 


A-0 IF END OF PROGRAM; IX POINTS TO LINE WITH LABEL 






12750 


; 


HL POINTS TO ADDRESS OF 


OBJECT KEY; DE POINTS TO THE NEXT LINE, THE 








OBJECT 


ROUTINE 










12800 


; 


C » SEARCH KEY 




4433 


EB 


12850 


FNDKEY 


EX 


DE,HL 


; START ADD. DE TO HL 


4434 


E5 


12900 




PUSH 


HL 


; SAVE 


4435 


DDE1 


12950 




POP 


IX 


; IN IX 


j 4437 


7E 


13000 




LD 


A, (HL) 


;END OF 


4438 


5F 


13050 




LD 


E,A 




4439 


23 


13100 




INC 


HL 


; PROGRAM 


443A 


B6 


13150 




OR 


(HL) 


; ? 


443B 


C8 


13200 




RET 


Z 


;YES 


i 443c 


56 


13250 




LD 


D, (HL) 


;DE POINTS TO NEXT LINE j 


443D 


23 


13300 




INC 


HL 


; FIRST BYTE 


1 443E 


23 


13350 




INC 


HL 


; TEXT 


443F 


D7 


13400 




RST 


10H 


; TO A 


| 4440 


B9 


13450 




CP 


C 


; -SEARCH KEY? 


4441 


20F0 


13500 




JR 


NZ, FNDKEY 


;NO, TRY NEXT LINE 


4443 


C9 


13550 
13600 




RET 










13650 


; STRING 


MATCH: 


COMPARES TWO STRINGS, IMBEDDED SPACES IGNORED. DELIMITERS APE 








i.i » 


AND 










13700 


; ENTRY : 


ADDRESS 


OF SOURCE LABEL 


IN (SRLBPT); DE POINTS TO OBJECT LABEL 






13750 


;EXIT: 


CARRY SET IF MATCH FOUND 




4444 


2A6B46 


13800 


STRMCH 


LD 


HL, (SRLBPT) 


; POINT TO SOURCE 


4447 


2B 


13850 




DEC 


HL 




4448 


IB 


13900 




DEC 


DE 




4449 


CD6144 


13950 


STRMC1 


CALL 


NXTBYT 


;NEXT BYTE TO A 


444C 


47 


14000 




LD 


B,A 


;SAVE IN B 


444D 


EB 


14050 




EX 


DE,HL 


;POINT HL TO OBJ. WORD 


444E 


280A 


14100 




JR 


Z , ENDSCE 


;JP IF END SOURCE WORD 


4450 


CD6144 


14150 




CALL 


NXTBYT 


;NEXT BYTE OBJ. WORD ! 


4453 


EB 


14200 




EX 


DE,HL 




|l 4454 


C8 


14250 




RET 


Z 


; MATCH FOUND 1 


1 4 «55 


B8 


14300 




CP 


B 


; BYTES MATCH? j 


4456 


28F1 


14350 




JR 


Z , STRMC1 


; YES, COMPARE NEXT BYTES 


4458 


AP 


14400 


NOMCH 


XOR 


A 


; CANCEL CARRY, NO MATCH 


i 4459 


C9 


14450 




RET 






| 445A 


CD6144 


14500 


ENDSCE 


CALL 


NXTBYT 


;ALSO END OBJ. WORD? 


445D 


20F9 


14550 




JR 


NZ, NOMCH 


;NO, NO MATCH 


445F 


37 


14600 




SCF 




;SET CARRY 


4460 


C9 


14650 
14700 




RET 






4461 


D7 


14750 


NXTBYT 


RST 


10H 


; RETURNS NEXT BYTE IN A 


4462 


C8 


14800 




RET 


Z 


; AND Z FLAG SET 


4463 


FE2C 


14850 




CP 


i i 

t 


; IF • , ' ' : « OR 


4465 


C9 


14900 
14950 




RET 










15000 


;LENGTE 


STRING 


COUNTS LENGTH STRING TO DELIMITER 






15050 


; ENTRY j 


HL POINTS TO STRING 








15100 


;EXIT: 


B - LENGTH OF STRING 




4466 


0600 


15150 


LENSTR 


LD 


B,00 


/INITIALIZE COUNTER 


4468 


7E 


15200 


LENST1 


LD 


A, (HL) 


;NEXT BYTE 


4469 


B7 


15250 




OR 


A 


;0 ? 


446A 


C6 


15300 




RET 


Z 


;YES, END STRING 


446B 


FE3A 


15350 




CP 


* : ' 


l'l' ? 


446D 


C8 


15400 




RET 


Z 


;YES, END STRING 


446E 


FE2C 


15450 




CP 


i i 

r 


; COMMA? j 


4470 


C8 


15500 




RET 


Z 


;YES, END STRING 


4471 


04 


15550 




INC 


B 


; COUNT IT 


4472 


23 


15600 




INC 


HL 


; POINT TO NEXT BYTE 


4473 


18F3 


15650 
15700 




JR 


LENST1 








15750 


; COMMAND LABEL 


CHECKS FOR BASIC LINE OR COMMAND ENTERED 






15800 


; ENTRY 


USER ENTRY IN BASIC INPUT BUFFER | 


4475 


CDC646 


15850 


CMDLBL 


CALL 


INTOFF 


; DISABLE INTERUPTS ? 1 


4478 


F5 


15900 




PUSH 


AF 


Program continues 
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Games from BIG FIVE will 
turn your computer into a 



SUPER 
NOVA® 




TRS-80 
HOME ARCADE 



If you and your TRS-80 have longed for a fast-paced arcade-type game that is 
truly a challenge, then SUPER NOVA is what you've been waiting for. In this 
two player machine-language game, large asteroids float ominously around the 
screen. Suddenly your ship appears and you must destroy the asteroids before 
they destroy you! (But watch out because big asteroids break apart into little 
ones.) The controls that your ship will respond to are thrust, rotate, hyperspace, 
and fire. All right! You've done it! You've cleared away all the asteroids! But what 
is that saucer with the laser doing? Quick! You must destroy him fast because that 
guy's accurate! 




GALAXY 
INVASION® 



The sound of the klaxon is calling you! Cruel and crafty invaders have been 
spotted in battle formation warping toward Earth at an incredible speed. Suddenly, 
your ship materializes just below the huge flock of invaders. Quickly and skillfully 
you shift right and left as you carefully fire your lasers at them. But watch out! A 
few are breaking out of the convoy and flying straight at you! As the whine of their 
engines gets louder, you place your finger on the fire button knowing all too well 
that this shot must connect — or your mission will be permanently over! With 
sound effects! 



! 




1 - . _ _ -V 

V | 

■ ■■ = ■■ 

• 




■ 




■ ■ 


> * * 
< 


J 



ATTACK 
FORCE® 



Your TRS-80 screen has been transformed into a maze-like playfield for this 
game. As your ship appears on the bottom of the screen, eight alien ramships 
appear on the top. All of them are traveling at flank speed directly at you! Quickly 
and boldly you move toward them and fire missiles to destroy them. But the more 
aliens you destroy, the faster the remaining ones become. If you get too good you 
must endure the wrath of the keeper of the mazefield: the menacing "Flagship". 
You must destroy him fast because, as you will find out, that guy's accurate! With 
sound effects! 




COSMIC 
FIGHTER® 



With thousands of stars whizzing by you, your SPACE DESTROYER ship 
comes out of hyperspace directly under a convoy of aliens. Almost effortlessly 
you skillfully destroy every last one. But before you can congratulate yourself 
another set appears. These seem to be slightly more intelligent than the first set 
Quickly you eliminate all of them, too. But your fuel supply is rapidly diminishing 
You must still destroy two more sets before you can dock with your space station 
All right! The space station is now on your scanners! Oh no! Intruders have 
overtaken the station! You must skillfully fire your neutron lasers to eliminate the 
intruders from the station before your engines run out of fuel and explode! With 
sound! 




METEOR 
MISSION II® 



The second il| Bug has occurred and the galaxy is full of stray asteroids 
and meteors. As you look through your space port you see a belt of asteroids 
drifting across the screen blocking your path to the safety of the space station 
above. But be careful because meteor showers, exploding suns and invading 
aliens may strike your ship and send it hurtling back to ground level. How many 
times can you and your opponent maneuver through those obstacles before time 
runs out? With sound effects! 



• 357 



BIG FIVE SOFTWARE 

P.O. Box 9078-185, Van Nuys, California 91409 



Prices per game. Level I-SH.95, Level H-S14.95, Level ll/Oisk-S 17.95 

Specify which version when ordering. 

10% discount for 2 games, 15% for 3 or more. 

Please add $1.00 postage/handling, Calif, residents add 6% tax. 

All games are written in machine language and supplied on cassette. 

Disk versions save high scores to your TRSDOS or NEWDOS diskette. 



Cassette versions require 16K memory, disk versions require 32K. 

Write for info, on Mod 3 versions. 

All games ©1980 by Bill Hogue & Jeff Konyu. 

TRS-80 b TRSDOS are trademarks of Tandy Corp. 

NEWDOS is a trademark of Apparat, Inc. 

Dealer inquiries invited. 



Gwt Cart NumbM. Exp**™ DM and Sigmturt tor M.jim Ckag* mi VISA ordwv 



^ fludtf Service— sm page 274 
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4479 


08 


15950 




EX 


AF,AF' 


j SAVE AF 




447A 


D9 


16000 




EXX 




;SAVE REGISTERS 




447B 


Fl 


16050 




POP 


AF 


; RESTORE AF 




447C 


3837 


16100 




JR 


C, LINEIN 


; BASIC LINE ENTERED 








16150 


; LABEL 


MENU: 


CHECKS INPUT AGAINST LABEL COMMANDS 








16200 


;EXIT: 


C = NUMBER OF COMMAND, 


FOR NO MATCH 




447E 


0E00 


16250 


LBLHNU 


LD 


C,00 


; INITIALIZE COUNTER 




1 4480 


116D46 


16300 




LD 


DE,WRDLST 


; POINT TO START OF LIST 




4483 


2AE640 


16350 


LBLMN1 


LD 


HL, (40E6H) 


j POINT TO ENTRY IN BUFF. 




4486 


D7 


16400 




RST 


10H 


; FIRST BYTE OP ENTRY 




4487 


0C 


16450 




INC 


C 


; INCREASE COUNTER 




4488 


1A 


16500 


NXTWRD 


LD 


A, (DE) 


; BYTE TO A 




4489 


B7 


16550 




OR 


A 


;END WORD? 




448A 


13 


16600 




INC 


DE 


; POINT TO NEXT BYTE 




448B 


20FB 


16650 




JR 


NZ, NXTWRD 


;NOT BEG. OF WORD 




448D 


1A 


16701 


LBLMN2 


LD 


A, (DE) 


; FIRST BYTE WORD 




448E 


FE80 


16751 




CP 


80H 


;END LIST? 




4490 


2002 


16 80 




JR 


NZ,NXTWR1 


I NO 




4492 


AF 


16850 




XOR 


A 


;YES 




4493 


4F 


16 90 




LD 


C,A 


;• IS FOR NO MATCH 




4494 


B7 


16950 


NXTWR1 


OR 


A 


;END WORD? 




4495 


2807 


17000 




JR 


Z,JMPR 


;YES, FIND ROUTINE 




4497 


BE 


17050 




CP 


(HL) 


;NO, BYTES - ? 




4498 


20E9 


17100 




JR 


NZ,LBLMN1 


;NO MATCH, TRY NEXT WORD 




449A 


D7 


17150 




RST 


10H 


;NEXT BYTE 




449B 


13 


17200 




INC 


DE 






; 449C 


18EF 


17250 




JR 


LBLMN2 


; BYTES MATCH SO FAR 








17300 


; JUMPER 


: JUMPS TO ROUTINE CORRESPONDING TO COMAND 








17350 


; ENTRY: 


REG. 


C " NUMBER OF WORD IN WORD LIST MATCHING ENTRY; 


IF NO MATCH 


449E 


0600 


17 400 


JNPR 


LD 


B,00 






44A0 


CB21 


17 450 




SLA 


C 


; NUMBER * 2 




44A2 


E5 


17 500 




PUSH 


HL 






44A3 


218646 


17 550 




LD 


HL,JMPTBL 


; POINT TO JUMP TABLE 




44A6 


•9 


17600 




ADD 


HL,BC 


; ADDRESS 




44A7 


7E 


17650 




LD 


A, (HL) 


1 OF 




1 44A8 


23 


17700 




INC 


HL 


; ROUTINE 




44A9 


66 


17750 




LD 


H,(HL) 


t TO 




44AA 


6F 


17 800 




LD 


L,A 


} HL 




44AB 


E3 


17 850 




EX 


(SP) , HL 


; ADDRESS TO STACK 




44AC 


C9 


17 90 




RET 




;JUMP TO ROUTINE 




44AD 


D9 


17 950 


NOMENU 


EXX 




>NO MATCH, RESTORE REG'S 




44AE 


18 


18000 




EX 


AF.AF" 
INTON 


; RESTORE AF 




44AF 


CDBC46 


18050 




CALL 


I ENABLE INTERUPTS? 




! 44B2 


C37544 


18100 
18150 


EXCHDL 


JP 


CMDLBL 


; EXCHANGED WITH BASIC RAM 








18200 


; BASIC 


LINE INPUT: LB ERROR CHECK 








18250 


; ENTRY: 


BASIC 


LINE IN INPUT BUFFER. LINE NUMBER IN DE 








18300 


i 


IF MATCH IS FOUND AND 


LINE NUMBER ARE THE SAME, LINE 


IS BEING EDITED. \ 


44B5 


2AE640 


18350 


LINEIN 


LD 


HL,(40E6B) 


1 POINT TO ENTRY IN BUFF 




44B8 


D7 


18400 




RST 


1IH 


; FIRST BYTE ENTRY 




44B9 


0ECF 


18450 




LD 


CLBIDNT 


;IS IT 




44BB 


B9 


18500 




CP 


C 


; LABEL IDENTIFIER? 




44BC 


20EF 


18550 




JR 


NZ, NOMENU 


jNO, IGNORE 




44BB 


CD6144 


18600 




CALL 


NXTBYT 


; ENTRY? 




44C1 


28EA 


18650 




JR 


Z, NOMENU 


;NO 




! 44C3 


226B46 


18700 




LD 


(SRLBPT) ,HL 


;SAVE ADDRESS LABEL 




i 44C6 


CD2044 


18750 




CALL 


CFKMS 


; MATCH IN PROGRAM? 




! 44C9 


30E2 


18800 




JR 


NC, NOMENU 


jNO, OK 




1 44CB 


D9 


18850 




EXX 




1 




44CC 


D5 


18900 




PUSH 


DE 


;GET LINE • ENTRY 




44CD 


D9 


18950 




EXX 








44CE 


Dl 


19000 




POP 


DE 






44CF 


DD6E02 


19050 




LD 


L, (IX+2) 


j LINE • OBJECT 




44D2 


DD660 3 


19100 




LD 


H,(IX+3) 


; TO HL 




44D5 


DF 


19150 




RST 


18H 


;SAME •? 




44D6 


28D5 


19200 




JR 


Z, NOMENU 


;YES, SAME LINE (EDITED) 




44D8 


C39246 


19250 

19300 




JP 


LBLERR 


; LABEL ALREADY ASSIGNED 




44DB 


CDE444 


19350 


ENTLBL 


CALL 


LBLBAS 


; ENTER LABEL TO BASIC BLOCK 




44DE 


CD5D1B 


19400 


EXTLBL 


CALL 


BASINI 


/INITIALIZE FOR BASIC 




44E1 


C3B646 


19450 
19500 




JP 


READY 


;JUMP TO READY 




44E4 


7E 


19550 


LBLBAS 


LD 


A, (HL) 


/ENTER ON CMD 'BASIC..' 




44E5 


B7 


19600 




OR 


A 


;B ? 




44E6 


2850 


19650 




JR 


Z, CHECK 


jYES, NO SWITCH 




1 44E6 


FE93 


19700 




CP 


REMTOK 


;REM TOKEN? 




44EA 


280E 


19750 




JR 


Z, REMLBL 


I YES 




44EC 


FEB6 


19800 




CP 


DELTOK 


{DELETE TOKEN? 




44EE 


281C 


19850 




JR 


Z , DELLBL 


;YES 




44P0 


18C0 


19900 
19950 




JR 


EXCHDL 


;NOT RECOGNIZED 








20000 


; DELETE 


REMARKS 






44F2 


0E93 


20050 


DELREM 


LD 


C, REMTOK 


;REM TOKEN IS SEARCH KEY 




44F4 


CD1145 


20100 




CALL 


DELLB0 


I FIND AND DELETE 




44F7 


C3B646 


20150 
20200 




JP 


READY 










20250 


; CONVERT TO LINE NUMBERS AND 


WRITE REMARKS FOR LABELS 




44FA 


CD3845 


20300 


REMLBL 


CALL 


CHECK 


; LABEL TO BASIC 




44FD 


0ECF 


21350 




LD 


C.LBIDNT 


;LABEL IDNT.IS SEARCH KEY 


Program continues 
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Poor 

Man's 

Floppy 



HIGH SPEED CASSETTE SYSTEM 



Now the widely acclaimed 
JPC Cassette System is available 
for your TRS-80* computer. 
The price is only $90.00 

TC-8 Cassette System 
JPC Products 

Albuquerque, NM 
Kit: $90 
Assembled: SI20 

by Carl A. Hollar 

1 guess 1 don'i have to tell any TRS-80 owners 
how frustrating the cassette system that 
comes with the computer can be. Even with the 
factory mod that's available, the annoyance of 
loading and checking programs becomes just 
barely tolerable. 

If you're like me, after you've just plunked 
down a chunk of money for a Level II 16K ma- 
chine, "you ain't got nuttin left" for even one 
disk drive at 500 bucks apiece. So you suffer. 

A reasonable alternative is the Exatron 
Stringy Floppy (ESF). This will cost you about 
250 bucks and totally eliminates your loading 
and saving problems, automatically and fast. 
I've had one of these for about six months and 
love it! 

But, if the price is still too steep, have 1 got a 
device for you! 

The Device 

The February 1980 issue of Microcomputing 
had an ad that intrigued the hell out of me. It 
was a high-speed cassette system by JPC Prod- 
ucts acclaimed as a "poor man's floppy." It 
made all sorts of seemingly ridiculous claims 
such as "loads five times faster," "stores 50,000 
bytes on a 10-minute cassette," "less than one 
bad load in a million bytes with the volume con- 
trol anywhere between one and eight." 

All this for a measly [90] bucks? How could 
this be? A call to Albuquerque answered a few 
questions: Yes, it had its own power supply, 
and, it stored programs five times faster be- 
cause it utilized higher density data. The com- 
puter outputs the information at a higher rate 
out of the rear keyboard connector. 

The ad had even claimed anyone could build 
it even if you have never soldered before. JPC 
would make it work, if you couldn't — for free. 
I was sold. I placed my order, and it arrived 
about two months later (parts shortage). 

I work in electronics, so I found the unit ex- 
ceptionally easy to build. It took about an 
hour. The manual is superb. (That's better than 
great.) It was cleat , concise and exact with no 
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ambiguities. Important parts placements are 
stressed (polarity markings on electrolytics, 
bands on diodes, etc.). 

JPC was right! With these instructions, you 
couldn't go wrong. The board quality is excel- 
lent. It is double-sided and parts locations are 
clearly marked on the component side of the 
board. There are no jumper wires to install. 
JPC utilizes PC traces and plated-through 
holes for connections to traces on the other side 
of the board. 

Also, there are absolutely no adjustments or 
settings to bother with. 

The documentation is a sheaf of 8 Vi x 1 1 pa- 
pers stapled together. It is written in the nicest 
format I've seen in a while. Each command 
and/or subjects is covered on its own sheet in 
large type. All explanations are in easy to read 
English — not computerese. 

Commands and Features 
SAVE'TUename": Saves your BASIC pro- 
gram on cassette. 

LOAD: Reads the next BASIC program from 
the cassette. 

LOAD" filename": Searches for and loads the 
specified file from cassette. 
LOAD? and LOAD? "filename": Reads Hie 
from cassette, and compares contents to mem- 
ory. 

LOADN: Prints a list of all the programs on a 
cassette, until interrupted by the "break" key. 
LOADN "filename": Same as above except the 
tape will stop at the end of the program named. 
KILL: Removes the file manager program 
from memory' so that the extra memory can be 
used by large programs. 
RSET: Allows the operator to rewind and posi- 
tion the tape on tape recorders that have these 
functions tied to the motor control jack. 
RUN "filename": TC-8 searches for a specified 
program and runs it immediately. 
PUT"filename": Same as SAVE "filename", 
except it is for use with system tapes. 
GET: Same as LOAD, except it is for use with 
system tapes. 

GET"filename": Same as LOAD "filename", 
except it is for use with system tapes. 
GET? and GET? "filename": Same as LOAD? 
and LOAD? "filename", except it is for use 
with system tapes. 
GETN and GETV'filename": Same as 



LOADN and LOADN'Tilename", except it is 
for use with system tapes. 
OPEN: Required before cassette input or out- 
put of a data file can be attempted. 
CLOSE: Required to end a cassette data file. 
PRINT*: Allows numerical or string data to be 
output to a cassette file. 

INPUTS Allows numerical or string data to be 
input from a cassette file. 

I haven't counted them, so I don't know 
about the "one load in a million bytes" claim, 
but my son, Anthony (age 1 1 ), loaded about 30 
of his programs from his Radio Shack format 
tape to a new TC-8 format tape. He's run them 
all and found no bad loads. 

Unlike the standard tape system, you can po- 
sition your tape anywhere before the program 
you want and not have to look for a blank spot 
between programs. The TC-8 patiently waits 
for the program you want and then starts load- 
ing without getting confused by the portion of 
the previous program you just fed it. 

Try that on your regular cassette system; 
you'll wear out the reset button.! 

ORDER NOW 

To order your TC-8 kit, send your check or 
money order for $90.00 plus $3.50 postage 
and handling to JPC PRODUCTS CO., 12021 
Paisano Ct., Albuquerque, NM 87112 (New 
Mexico residents add 4°7o sales tax). Credit card 
orders accepted by phone or mail. Personal 
checks will delay shipment. We will otherwise 
immediately ship you the TC-8 kit, the cabinet, 
the ribbon cable, the power adapter, an instruc- 
tion manual, and a cassette containing the 
software. 



IJI JPC PI 



^190 



PRODUCTS CO. 
Phone (505) 294-4623 
12021 Paisano Ct. 
Albuquerque. N.M. 87112 



^Reader Service — see page 274 
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44FF ED5BA440 


20400 




LD 


DE, (BPRPTR) 


; POINT TO BASIC PROG. 


4503 CD3344 


20450 REMLB1 


CALL 


FNDKEY 


;FIND LINE WITH KEY 


4506 B7 


20500 




OR 


A 


;END PROG? 


4507 C8 


20550 




RET 


Z 


;YES 


4508 3693 


20600 




LD 


(HL) ,REMTOK 


; REPLACE WITH REM 


450A 18F7 


20650 
20700 




JR 


REMLB1 


;NEXT LINE 




20750 


CONVERT TO LINE NUMBERS, DELETE LABELS 


450C CD3845 


20800 DELLBL 


CALL 


CHECK 


; LABEL TO BASIC 


450F 0ECF 


20850 




LD 


CLBIDNT 


; LABEL IDNT.IS SEARCH KEY 


4511 ED5BA440 


20900 


3ELLB0 


LD 


DE, (BPRPTR) 


; POINT TO BASIC PROGRAM 


4515 CD3344 


20950 


3ELLB1 


CALL 


FNDKEY 


;FIND LINE BEG. WITH KEY 


4518 B7 


21000 




OR 


A 


;END PROG? 


4519 C8 


21050 




RET 


Z 


;YES 


451A C5 


21100 




PUSH 


BC 


;SAVE KEY 


451B DDE5 


21150 




PUSH 


IX 


; BEGINNING LINE 


451D 2AF940 


21200 




LD 


HL,(SCLRPT) 


» POINT TO VARIABLES 


4520 ED52 


21250 




SBC 


HL,DE 


j NUMBER OF BYTES TO MOVE 


4522 E5 


21300 




PUSH 


HL 


; TO 


4523 CI 


21350 




POP 


BC 


; BC 


4524 El 


21400 




POP 


HL 


;BEG.LINE TO HL 


4525 EB 


21450 




EX 


DE,HL 


} 


4526 EDB0 


21500 




LDIR 




;MOVE fc DELETE 


4528 ED53F940 


21550 




LD 


(SCLRPT) ,DE 


;NEW SCALAR POINTER 


452C DDE5 


21600 




PUSH 


IX 


;BEG. LINE 


452E Dl 


21650 




POP 


DE 


; TO DE 


452F CDFC1A 


21700 




CALL 


1AFCH 


;WRITE LINE POINTERS 


4532 DDE5 


21750 




PUSH 


IX 


;BEG. LINE 


4534 Dl 


21800 




POP 


DE 


; TO DE 


4535 CI 


21850 




POP 


BC 


j RESTORE SEARCH KEY 


4536 18DD 


21900 
21950 




JR 


DELLB1 


;NEXT LINE 




22000 


; CHECK: 


CHECKS BASIC PROGRAM 


FOR COMMAND WHICH MAY TAKE A 




22050 


; 


CALLS 


APPROPRIATE PROCESSING ROUTINE & WRITES LIN 


4538 2AA440 


22100 


CHECK 


LD 


HL, (BPRPTR) 


; POINT TO BASIC PROG. 


453B 2B 


22150 




DEC 


HL 




453C 2B 


22200 




DEC 


HL 




453D 113D45 


22250 


CHECK 


LD 


DE,CHECK0 


; RETURN ADDRESS 


4540 D5 


22300 




PUSH 


DE 


; TO STACK 


4541 D7 


22350 


CHECK1 


RST 


10H 


;NEXT BYTE 


4542 2018 


22400 




JR 


NZ,CHECK2 


j NOT END STATEMENT 


4544 FE3A 


22450 




CP 


' : ' 


;END STATEMENT? 


4546 28F9 


22500 




JR 


Z, CHECK 1 


j YES 


4548 Dl 


22550 




POP 


DE 


;SAVE RETURN 


4549 23 


22600 




INC 


HL 


;ADDRESS LINE 


454A E5 


22650 




PUSH 


HL 


; TO 


454B FDE1 


22700 




POP 


IY 


; IY 


454D 7E 


22750 




LD 


A, (HL) 


J END 


454E 23 


22800 




INC 


HL 


; of 


454F B6 


22850 




OR 


(HL) 


; PROG? 


4550 C8 


22900 




RET 


Z 


;YES 


4551 D5 


22950 




PUSH 


DE 


; RESTORE RETURN 


4552 23 


23000 




INC 


HL 


;LINE 


4553 5E 


23050 




LD 


E, (HL) 


; NUMBER 


4554 23 


23100 




INC 


HL 


; TO 


4555 56 


23150 




LD 


D, (HL) 


1 DE 


4556 ED53A24B 


23200 




LD 


(LNNBUF) ,DE 


;SAVE LINE ♦ 


455A 18E5 


23250 




JR 


CHECK1 


; BEGIN CHECK OF LINE 


455C FEA1 


23300 


CHECK 2 


CP 


ONTOK 


;ON TOKEN? 


455E 2814 


23350 




JR 


Z , PRCSON 


;YES, JUMP 


4560 FE8D 


23400 




CP 


GTOTOK 


;GOTO TOKEN? 


4562 2828 


23450 




JR 


Z , PRCSGG 


;YES, JUMP 


4564 FE91 


23500 




CP 


GSBTOK 


;GOSUB TOKEN? 


4566 2824 


23550 




JR 


Z , PRCSGG 


;YES, JUMP 


4568 FE9F 


23600 




CP 


RSMTOK 


;RESUME TOKEN? 


456A 2801 


23650 




JR 


Z , PRCSRM 


;YES, JUMP 


456C C9 


23700 
23750 




RET 








23800 


; PROCESS RESOME: SEE PRCSGG 




456D D7 


23850 


PRCSRM 


RST 


10H 


j NEXT BYTE 


456E FE87 


23900 




CP 


NXTTOK 


; RESUME NEXT? 


4570 C8 


23950 




RET 


Z 


;YES 


4571 2B 


24000 




DEC 


HL 




4572 1818 


24050 




JR 


PRCSGG 


; PROCESS AS GOTO/GOSUB 




2tt!l 


; PROCESS ON: 


SEE PRCSGG 




457 4 D7 


24200 


PRCSON 


RST 


10H 


;NEXT BYTE 


4575 2002 


24250 




JR 


NZ, PRCSOl 


;NOT END STATEMENT 


4577 2B 


24300 




DEC 


HL 




4578 C9 


24350 




RET 






4579 FE8D 


24400 


PRCSOl 


CP 


GTOTOK 


;ON GOTO? 


457B 280A 


24450 




JR 


Z , PRONOK 


;YES, OK 


457D FE91 


24500 




CP 


GSBTOK 


;ON GOSUB? 


457F 2806 


24550 




JR 


Z , PRONOK 


;YBS, OK 


4581 PE2C 


24600 




CP 


* , ' 


; COMMA? 


4583 2802 


24650 




JR 


Z , PRONOK 


;YES, OK 


4585 18ED 


24700 




JR 


PRCSON 


j NEXT BYTE 


4587 CD8C45 


24750 


PRONOK 


CALL 


PRCSGG 


; PROCESS AS GOTO/GOSUB 


458A 18E8 


24800 
24850 




JR 


PRCSON 


> NEXT BYTE 



LABEL 
C NUMBER FOR LABEL 



Program continues 
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The finest Data Base Manager Available 



tticro 
*tanafer 

MAXI MICRO MANAGER for TRS-80 Models 1 & 3 
Requires 48K of RAM and 1 Disk Drive Minimum. 



JUST CHECK SOME OF THE FEATURES 



• Supports six different relational 

search techniques. 

• Comes with programmer's interface. 

• Over 93 pages of documentation. 

• Supports up to 20 user defined fields. 

• Each field records up to 800 characters. 

• Files can be up to four disks in length. 

• Compatable tp 35. 40 & 77 track drives. 

• Has calculated equation fields. 

• Complete report generator. 

• Data can be merged into letters. 

And much, much More! 



REGULAR SPECIAL 41QQC 

PRICE INTRODUCTORY }/§.§) 

$99.95 PRICE offer Expires 1/31/81 



NOW AVAILABLE AT 

YOUR LOCAL 
COMPUTER STORE 
IF NOT. CALL 
OR WRITE TO: 


( 


.V 1 


DEALER 


kw ■ 


INVITED 



GH iSfgAdveriture 

J^^WHL V2>^ INTtRNAIIONAI 

™ BOX 343b, LOIMGWOOD, FLA 32750 (305)862-6917 A 



LOST SHIP ADVENTURE 




Floating lazily in the balmy South Sea waters is a 
mystery ship. She's rigged and ready for a voyage to 
an unknown destination. Where did the Ghost ship 
come from? Where will it take you? Is she an old 
Pirate taking you to gold and glory or a Flying 
Dutchman dooming you to eternal wandering. 
Armed with Scuba gear and a bold wit only the 
bravest or most foolhardy may attempt the LOST 
SHIP ADVENTURE. 

TAPE $14.95 T|_ _ DISK $19.95 

• 364 

POBox66 

Peterboro. NH 03458 

PH (603)924-6065 



The 
Programmers 

Guild 




NrilUi 



12 Issues For Only $12.00 

All The TRS-80®* News You Need 
When You Need It 

Now In Our 3rd Year Of 
Continuous Publication 

One Of The Oldest 

TRS-80®* Newsletters 

Still In Circulation 

— Featuring — 

• Applications • Product Reviews • 

• Machine Language Tutorials • 

• And Much More • 

Call: 312-782-9750 

Write For Free Sample: 

Chicatrug News "« 
c/o EBG & Associates 
203 N. Wabash Av 
Chicago, IL 60601 

■ TRS-80*" is a Trademark of Tandy Corp 



^ Rtmdw Service— s*e p»g* 274 
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24900 


I PROCESS A GOTO 


OR GOSUB: 


CHANGES LABELS TO LINE NUMBERS 








24950 


; ENTRY : 


HL POINTS TO BYT! 


BEFORE 


FIRST CHARACTER OF LABEL OR LINE NUMBER 








25000 


;EXIT: 


HL POINTS TO NEXT 


BYTE TO 


BE CHECKED (BY CHECK) FORGOTO, GOSUB, ETC. 




458C 


D7 


25050 


PRCSGG 


RST 


10H 




NEXT BYTE 




458D 


D8 


25100 




RET 


C 




NUMBER 




458E 


2002 


25150 




JR 


NZ,PRCSG2 




LABEL 




4590 


2B 


25200 


PRCSG1 


DEC 


HL 








4591 


C9 


25250 




RET 










4592 


FE2C 


25300 


PRCSG2 


CP 


' , ' 




COMMA? 




4594 


28FA 


25350 




JR 


Z , PRCSG1 




YES 




4596 


CD9A43 


25400 




CALL 


LNLBL 




PROCESS A LABEL 




1 4599 


23 


25450 




INC 


HL 




LINE 




| 459A 


23 


25500 




INC 


HL 




NUMBER 




459B 


23 


25550 




INC 


HL 




OF 




459C 


5E 


25600 




LD 


E, (HL) 




ROUTINE 




459D 


23 


25650 




INC 


HL 




TO 




459E 


56 


25700 




LD 


D, (HL) 




DE 




459F 


CDAD45 


25750 




CALL 


FNDLNE 




'FOUND A LINE' 




45A2 


08 


25800 




EX 


AF,AF' 




RESTORE FLAG 




j 45A3 


D0 


25850 




RET 


NC 




LINE POINTERS OK 




45A4 


D9 


25900 




EXX 






SAVE REG'S 




45A5 


FDE5 


25950 




PUSH 


IY 




ADDRESS OF 




i 45A7 


Dl 


26000 




POP 


DE 




LINE TO DE 




45A8 


CDFC1A 


26050 




CALL 


1AFCH 




WRITE NEW LINE POINTERS 




45AB 


D9 


26100 




EXX 






RESTORE REGISTERS 




4 5 AC 


C9 


26150 
26200 




RET 










45AD 


CD06 46 


26250 


FNDLNE 


CALL 


BIND EC 




CONVERT TO DECIMAL 




45B0 


CDBA45 


26300 




CALL 


SPACE 




ADJ. SPACE IN PROG. 




45B3 


08 


26350 




EX 


AF,AF' 




SAVE FLAG 




45B4 


CDP545 


26400 




CALL 


WRNUM 




WRITE DECIMAL NUMBER 




45B7 


EB 


26450 




EX 


DE,HL 








45B8 


2B 


26500 




DEC 


HL 




HL POINTS TO END LINE 




45B9 


C9 


26550 
26600 




RET 














26650 


; SPACE: 


MOVES PART OF BASIC PROGRAM IN RAM TO ALLOW A LINE NUMBER TO BE 








26700 


; 


WRITTED 


IN PLACE 


OF A LABEL. 








26750 


} ENTRY : 


ADDRESS 


OF SOURCE LABEL 


CN (SRLBPT) 








26 800 


; 


LENGTH 


OF ASCII REPRESENTATION ON LINE NUMBER IN (LENDEC) 








26 850 


;EXIT: 


CORRECT 


AMOUT OF 


SPACE' 


[N PROGRAM TO WRITE LINE NUMBER. 








26 900 


; 


CARRY SET IF NEW 


LINE POINTERS MUST BE WRITTEN 




45BA 


2A6B46 


26 950 


SPACE 


LD 


HL, (SRLBPT) 


POINT TO SOURCE LABEL 




45BD 


CD6644 


27000 




CALL 


LENSTR 




COUNT STRING 




45C0 


3AD340 


27050 




LD 


A, (LENDEC) 


LENGTH ASCII REP. 




45C3 


B8 


27100 




CP 


B 




COMPARE TO LEN. STRING 




45C4 


C8 


27150 




RET 


Z 




SAME 




45C5 


08 


27200 




EX 


AF,AF' 




SAVE FLAG 




45C6 


EB 


27250 




EX 


DE,HL 




END STRING TO DE 




45C7 


48 


27300 




LD 


C,B 




COUNT TO 




45C8 


AF 


27 35 




XOR 


A 




BC & 




45C9 


47 


27400 




LD 


B,A 




CANCEL CARRY 




45CA 


2AF940 


27450 




LD 


HL, (SCLRPT) 


POINT HL TO VARIABLES 




45CD 


E5 


27 500 




PUSH 


HL 




SAVE 




45CE 


ED52 


27550 




SBC 


HL,DE 




NUMBER BYTES TO MOVE 




45D0 


E3 


27600 




EX 


(SP) ,HL 




TO STACK , RESTORE HL 




i 45D1 


08 


27650 




EX 


AF.AF' 




RESTORE FLAG 




1 45D2 


300F 


27700 




JR 


NC, INCSP 




NEED MORE SPACE IN PROG. 








27750 


; DECREASE SPACE 


IN BASIC 


PROGRAM 






45D4 


2A6B46 


27 800 


DECSP 


LD 


HL, (SRLBPT) 


POINT TO SOURCE LABEL 




45D7 


4F 


27 850 




LD 


C,A 




LENGTH ASCII REP. TO BC 




45D8 


09 


27 90 




ADD 


HL,BC 




DESTINATION TO DE 




45D9 


EB 


27950 




EX 


DE,HL 




SOURCE TO HL 




45DA 


CI 


28000 




POP 


BC 




BYTES TO MOVE TO BC 




45DB 


EDB0 


28050 




LDIR 






MOVE k DELETE 




45DD 


ED53F940 


28100 




LD 


(SCLRPT) 


DE 


NEW SCALAR POINTER 




45E1 


37 


28150 




SCF 






SET CARRY 




45E2 


C9 


28200 




RET 














28250 


; INCREASE SPACE 


IN BASIC 


PROGRAM 






45E3 


E5 


28300 


INCSP 


PUSH 


HL 




SAVE VARIABLE POINTER 




45E4 


91 


28350 




SUB 


C 




NUMBER OF BYTES TO ADD 




45E5 


4F 


28400 




LD 


C,A 




TO BC 




45E6 


09 


28450 




ADD 


HL,BC 




•DESTINATION 




45E7 


CD6C19 


28500 




CALL 


196CH 




; ENOUGH RAM? 




45EA 


22F940 


28550 




LD 


(SCLRPT) 


HL 


;NEW SCALAR POINTER 




45ED 


EB 


28600 




EX 


DE,HL 




; DESTINATION TO DE 




! 45EE 


El 


28650 




POP 


HL 




; SOURCE TO HL 




! 45EF 


CI 


28700 




POP 


BC 




; BYTES TO MOVE TO BC 




45F0 


03 


28750 




INC 


BC 




•FUDGE FACTOR 




45F1 


EDB8 


28800 




LDDR 






;MOVE, MAKE ROOM IN PROG 




45F3 


37 


28850 




SCF 






;SET CARRY 




! 45F4 


C9 


28900 
28950 




RET 














29000 


; WRITE 


NUMBER: 


WRITE ASCII DECIM 


AL REPRESENTATION OF LINE NUMBER IN BASIC PROG. 








29050 


; ENTRY 


NUMBER 


OF BYTES 


IN NUMBE 


R IN (LENDEC) 








29100 


; 


ASCI REP. OF NUMBER IN B 


UFFER POINTED TO BY (DECPTR) 








29150 


; 


ADDRESS 


WHERE NUMBER TO 


BE WRITTEN POINTED TO BY (SRLBPT) 




45F5 


0600 


29200 


WRNUM 


LD 


B,00 




;INTIALIZE COUNTER 




45F7 


21D340 


29250 




LD 


HL, LENDEC 


; POINT TO BUFFER 


















Program conti 


m/es 
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FMG CORPORATION NOW CARRIES GRAHAM-DORIAN & PEACHTREE SOFTWARE 



JJPN P.O. Box 16020 

Fort Worth, Texas 

76133 

12 (817) 294-2510 



(T) 



(T) 



NEW 



VERSATILITY 

For Your TRS-80 




CONTROL PROGRAM 
FOR MICROCOMPUTERS 
ENABLING YOU TO RUN 
SOFTWARE PUBLISHED 
FOR CP/M 1.4 ON THE 
TRS-80 
CP/M is considered the industry stand- 
ard disk operating system because it 
gives you the hardware-independent 
interface you need to make your com- 
puter work for you. CP/M 2.0 is the 
latest in the evolution of a proven relia- 
ble and efficient software system. FMG 
CORPORATION NOW OFFERS THE 
CP/M 2.0 FOR THE TRS-80. 
It features an enhanced upward com- 
patible file system and powerful new 
random access capabilities. The CP/M 
2.0 from FMG provides the ability to 
run software published for the CP/M 
system, on the TRS-80 Model II. From 
minidisks, floppy disks, all the way to 
high-capacity hard disks, the flexibility 
of CP/M 2 makes it a truly universal 
operating system. The package in- 
cludes an 8" system disk, editor, as- 
sembler and debugger for the TRS-80 



MUtn-WKXilUMMING MONITOR 

NEW INDUSTRY 
STANDARD 

A deluxe operating system that 
provides big computer facilities at 
small computer prices. MP/M is a 
monitor program which operates 
with your microcomputer to provide 
multi-terminal access with multi- 
programming at each terminal. 
Best of all, it's CP/M compatible 
which means you can run a wide 
variety or programming languages, 
applications packages, and devel- 
opment software. 

You can run simultaneous edi- 
tors, program translators, and 
background printer spoolers. Or 
you can use MP/M for data entry or 
data-base access from remote ter- 
minals. Or you can use MP/M real- 
time features to monitor an assem- 
bly line and automatically schedule 
programs for execution throughout 
the day. MP/M makes an excellent 
focal point for a cluster of con- 
nected microcomputers. The pos- 
sibilities are limitless. 



wffaitA 



All FMG Software Products Include All Necoi 
ury Manuals 

soriWAM 
«"■■■» ■ MICROPRO INTERNATIONAL 
L I SUPER-SORT I - Sort, merge, extract utility as abso- 
l SJI\ lu,e execulable program or linkable module in Micro- 
(M) "0" 'O'mal Sons li.ed or variable records wilh dale 
in binary. BCD. Packed Decimal. EBCDIC. ASCII, 
floating & fixed point, exponential, field justified etc 
Even variable number of fields per record* S225/S25 
SUPIR-SORT II - Above available as absolute pro- 
gram only SI7S/S2S 
SUPER-SORT III - As II without SELECT'EXCLUDE 
1125/125 
WORD-STAR - Menu driven visual word processing 
ndard lerminals Te.t format- 



ting performed t 



lustily 



center 
nt while ! 



I paginate 
core User 
sly editing 



a second Edit facilities include global search and 
replace. Read/Write to other le>t tiles, block move 
etc Reouires CRT terminal with addressable cu-sor 

positioning 14SS/S40 

WORD-STAR Customization Notes - For sophisticated 
users who do not have one of the many standard 
terminal or printer configurations in the distribution 
version of WORD-STAR , .... , .. .MA/ttS 

WORD-MASTER Text Editor - In one mode has super- 
set of CP'M's ED commands including global searchi- 



ng and replacing, 
/ideo mode, providi 
lenal addressable-! 



i lull 



I r-let 



nlh 



(M) 




OESPOOL — Allows flexibility and efficiency. 
(Disk file printing can be accomplished while 
simultaneously using the computer for other 
tasks) Slower printers do not tie up the com- 
puter. Requires 32K minimum $7S/t 10 

■ SCREEN EDIT — Text editor for program en 
try — allows user the ability to see entries as 
they are being made Has command which en- 
ables user to move the viewed position of the 
file anywhere within the current data file OR 
add information anywhere in the file. Requires 

16K minimum $125/125 

(Also available in TRS DOS format 
Specify model or TRS-801 

• MAC — Disk-based, powerful macro assem- 
bler utilizes Standard Intel Mnemonics. In- 
cludes macro processor. 

The CP/M 8080 Macro Assembler reads as- 
sembly language statement from a diskette 
file and produces an Intel "HEX" format object 
file on the disk suitable for processing in the 
TRS-CP M environment. Requires 32K mini- 
mum and CP M $100/$25 

■ ZSIO— Efficient and reliable program testing 
system for 280 microcomputers. Capabilities 
include traceback and histogram facilities. Al 
lows real time break points. 

ZSID is a symbolic debugger which expands 
upon the features of the TRS-CP'M standard de- 
bugger, providing greatly enhanced facilities 
for assembly language program check-out Re- 
quires 32K minimum and CP/M S99/S2S 

^^ MAIL UST — Mailing list maintenance package 
sV * No sorting required to print normal address la- 
^*^ bets in zip code sequence. Supports new larger 
(M) "P code Sorts and selects on multiple fields 
Labels may be | 

ort and I 



n 

(M) 



FMG's LIBRARY: 



(T) 



(T) 



(T) 



(T) 



FLOPPY SAVER - Protaciion for centef holes of 5" 
and 6" floppy disks Only i needed per diskette Kit 
contains centering post, pressure tool and tough 
7 mil mylar reinforcing rings for 25 diskettes. 

5". Kit J14.95 

5". Rings Only J7.9S 

8". K.I si6.es 

8". Rings only SI.B5 

HEAD CLEANING DISKETTE - Cleans the drive Read/ 
Write head in 30 seconds Diskette absorbs loose 
onde particles, fingerprints, and other foreign parti- 
cles that might hinder the performance of the drive 
head Lasts at least 3 months with daily use 

8" $32.00 

5V4" $30 00 



(T) 



(T) 



(T) 



(T) 
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PEACHTREE SOFTWARE SYSTEMS 

GENERAL LEDGER - Records details of all financial 
transactions Generales a balance sheet and an in- 
come statement Flexible and adaptable design tor 
bolh small businesses and firms performing client 
wriieup services Produces reports as follows Trial 
Balance. Transaction Registers. Balance Sheet. Prior 
Year Comparative Balance Sheet. Income Statement. 
Prior Year Comparative income Statement and De- 
partment income Statements, interactive with other 
PEACHTREE accounting packages. Supplied in 
source code lor Microsoft BASIC 1*90/130 
ACCOUNTS PAYABLE - Tracks current and aged 
payables and incorporates a check writing feature. 
Maintains a complete vendor file with information on 
purchase orders and discount terms as well as active 
account status Produces reports as follows: Open 
Voucher Report. Accounts Payable Aging Report and 
Cash Requirements Provides input to PEACHTREE 
General Ledger Supplied in source code for Micro- 
soft BASIC $t$O/$$0 

ACCOUNTS RECEIVABLE - Generates invoice regis- 
ter and complete monthly statements. Tracks current 
and aged receivables Maintains customer file includ- 
ing credit information and account status. The cur- 
rent status of any customer account is instantly avail* 
able Produces reports as follows: Aged Accounts 
Receivable. Invoice Register. Payment and Adiust- 
ment Register and Customer Account Status Report 
Provides input to PEACHTREE General Ledger- Sup- 
plied in source code for Microsoft BASIC $MQ/$M 
PAYROLL — Prepares payroll lor hourly, salaried and 
commissioned employees Generates monthly, quar- 
terly and annual returns. Prepares employee VV-2's 
includes tables for federal withholding and FICA as 
well as withholding for all 50 states plus up to 20 
cities from pre-compuied or user generated tables. 
Will print checks. Payroll Register. Monthly Summary 
and Unemployment Tax Report Provides input to 
PEACHTREE General Ledger Supplied in source 

code for Microsoft BASIC $SM/$M 

INVENTORY - Maintains detailed information on 
each inventory item including part number, descrip- 
tion, unit of measure, vendor and reorder data, item 
activity and complete information on current item 
costs, pricing and sales. Produces reports as follows 
Physical Inventory Worksheet. Inventory Price List, 
Departmental Summary Report. Inventory Status Re- 
port. The Reorder Report and the Penod-to-Date and 
Year-to-Date reports. Supplied in source code for 

Microsoft BASIC $1,1tO/S30 

MAILING ADDRESS - Keeps track of name and ad- 
dress information and allows the selective printing of 
this information m the form of mailing lists or ad- 
dress labels Allows the user to tailor the system to 
his own particular requirements User-defined for- 
mal and print-out system uses a special format tile 
which tells programs how to print the mailing list or 
address labels Standard format files are included 
with system Automatic sorting of data uses indexed 
hie management routines which allow the name and 
address information to be sequentially retrieved and 
printed without file sorting Supplied m source code 
lor Microsoft BASIC $790 131) 

• GRAHAM-DORIAN SOFTWARE SYSTEMS 

GENERAL LEDGER - An on-line system; no batch- 
3 is required Entries to other GRAHAM-DORIAN 
counting packages are automatically posted. User 
labhshes customized C O.A Provides Iransaciion 
register, record of journal entries, trial balances and 
monthly closings Keeps 14 month hislory and pro- 
vides comparison of current year with previous year 
Requires CBASIC-2 Supplied in source SMS/S35 

ACCOUNTS PAYABLE - Maintains vendor list and 
check register. Performs cash flow analysis Flexible 
- writes checks to specilic vendor for certain in- 
voices or can make partial payments Automatically 
posts to GRAHAM-DORIAN General Ledger or runs as 
stand alone system Requires CBASIC ? Supplied in 
source $MS/$33 

ACCOUNTS RECEIVABLE - Creates trial balance re- 
ports, prepares statements, ages accounts and rec- 
ords invoices Provides complete information describ- 
ing customer payment activity Receipts can be 
posted to different ledger accounts Entries auto- 
matically update GRAHAM-DORIAN General Ledger 
or runs as stand alone system. Requires CBASIC-2. 

Supplied m source $MS/$3S 

PAYROLL SYSTEM - Maintains employee master file 
Computes payroll withholding for FICA, Federal and 
Slate taxes Prints payroll register, checks, quarterly 
reports and W-2 forms. Can generate ad hoc reports 
and employee form letters with mall labels Requires 
CBASIC-2 Supplied in source SS90/U5 

INVENTORY SYSTEM - Captures stock levels, costs 

action mtormation may be entered for reporting by 
salesman type of sate, date of sale, etc Reports 
table both for accounting and decision making. 
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■ MICROSOFT PRODUCTS 

HASiC-80 - Disk Extended BASIC. ANSI compatible 
with long variable names. WHILE/WEND, chaining. 

variable length file records $350/$25 

BASIC COMPILER - Language compatible with 
BASiC-80 and 3-10 times faster execution Produces 
standard Microsoft relocatable binary output. In- 
cludes MACRO-S0 Also linkable to FORTRAN-60 or 

cobol-bo code modules $395/$2S 

FORTRAN RO - ANSI 06 (except for COMPLEX) plus 
many extensions includes relocatable object com- 
piler, linking loader, library with manager Also in- 
cludes MACRO-80 (see below) $500/$25 

COBOL -80 - Level 1 ANSI '74 standard COBOL plus 
most of Level 2 Full sequential, relative, and In- 
dexed file support with variable file names STRING. 
UNSTRING. COMPUTE. VARYING/UNTIL. EXTEND, 
CALL. COPY, SEARCH. 3-dimensionai arrays, com- 
pound and abbreviated conditions, nested IF Power- 
ful interactive screen-handling extensions Includes 
compatible assembler, linking loader, and relocat- 
able library manager as described under MACRO-80 

$750 $2 5 

MACRO-BO - 6080/Z80 Macro Assembler. Intel and 
/■lag mnemonics supported Relocatable linkable 
output Loader. Library Manager and Cross Refer- 
ence List utilities included $1S0/$25 



PA8CAL/M' - Compiler generates P code from ex- 
tended language, implementation of standard PAS- 
CAL Supports overlay structure through additional 
procedure calls and the SEGMENT procedure type 
Provides convenient string handling capability with 
the added variable type STRING Untyped files allow 
memory image I/O Requires 56K CP/M $150/820 

PASCAL Z - Z80 native code PASCAL compiler Pro- 
duces optimized. ROMabie re-entrant code All Inter- 
facing to CP/M is through the support library. The 



package ir 

locating assembler and 
library modules Variant 
I/O are supported. Requir 



Microsoft Compatible 
nker. and source for an 
icords. strings and direct 
i 56K CP/M and Z60 CPU 

$3t5/$2S 

PASCAL/MT - Subset of standard PASCAL Gener- 
ates ROMabie 8080 machine code. Symbolic debug- 
ger included Supports interrupt procedures. CP/M 
file I/O and assembly language interface Real vari- 
ables can be BCD. software floating point, or AMD 
95'1 hardware floating point. Version 3 includes 
Enumeration and Record data types Manual explains 
BASIC to PASCAL conversion Source tor the run- 
time package requires Digital Research's MAC Re- 
quires 32K $250/830 

CBASIC-2 Disk Extended BASIC - Non-interactive 
BASIC with pseudo-code compiler and run-time in- 
terpreter Supports full file control, chaining inteqer 
and extended precision variables, etc. $110/$15 



(M) 



BSTAM - Utility to link one computer to another also 
equipped with BSTAM Allows file transfers at full 
data speed (no conversion to hex), with CRC block 
control check for very reliable error detection and 
automatic retry. We use it! Its great! Full wildcard 
expansion to send * COM. etc 9600 baud with wire. 
300 baud with phone connection. Both ends need 
one. Standard and g versions can talk to one another. 

1150 $5 

SELECTOR IM-C2 - Data Base Pjocessor to create 
and maintain multi Key data bases. Prints formatted 
sorted reports with numerical summaries or mailing 
labels Comes with sample applications, including 
Sales Activity. Inventory, Payables, Receivables. 
Check Register, and Client/Patient Appointments, etc 
Requires CBASiC-2 Supplied in source $349 $20 

GLECTOR - General Ledger option to SELECTOR 
IU-C2 Interactive system provides 'or customized 
COA Unique chart o( transaction types insure proper 
double entry bookkeeping Generates balance sheets 
P&L statements and journals Two year record allows 
tor statement of changes m financial position report. 
Supplied m source Requires SELECTOR IU-C2. 
CBASIC-2 and 52K system .250 525 

TEXTWRITER III - Text formatter to Justify and pagi- 
nate letters and other documents Special features 
include insertion of text during execution Irom other 
disk dies or console, permitting recipe documents 
to be created from linked fragments on other tiles 
Has facilities tor sorted index, table of contents and 
footnote insertions Ideal for contracts, manuals, etc 
Now compatible with Electric Pencil' prepared files 
$125/820 



Requires CBASIC-2 Supplied in ! 



$SM/$3S 
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JOB C08TING - Designed lor general contractors 
To be used interactively wilh olher GRAHAM-DORIAN 
accounting packages for tracking and analysing ex- 
penses User establishes customized cost categories 
and job phases Permits comparison of actual versus 
estimated costs Automatically updates ORAHAM 
DORIAN General Ledger or runs as stand alone sys- 
tem Requires CBASIC-2 Supplied in source SfK>5/S39 

Sample Program Disk For Each Graham-Dorian 
Business Package Specify Package . . S45 



The sale of each 
proprietary software 
package conveys a 
license for use on 
one system only. 



Prices FOB. 
Fort Worth. Tex. 
Shipping, hand- 
ling and CO. D. 
charges extra. 



FORMATS AVAILABLE: 

(A) TRS-80 Model I (Ml Keys Only 

ORDERS MUST IBI TRS-80 Model II 

SPECIFY DISK ICI TRS-80 Model III IMI Keys Only 

SYSTEMS AND IDI HEATHKIT H89 (Ml Keys only 

FORMATS: IEI NORTH STAR 

(F) SUPER BRAIN QD 

IGI STANDARD UNIMPLEMENTED 

(Ml Modified version available for use with CPM as 
i'* 1 ' implemented on Heath and TRS-80 Model I 
computers. 

mFor all (T) nems listed above . the rec- 
ommended system configuration consists of 
48K CPM 2 full di*e disk drives. 24 x 80 CRT and 
132 column printer 



•CP/M and MP/M are trademarks of Digital Resean 
Z10 is a trademark of Ziiog. Inc. 
TRS-80 is a trademark of Tandy Corp 
Pascal/M is a trademark of Sorcim 



PASCAL USER MANUAL & REPORT 

12nd) Edition by K. Jensen and /V. Wirth 
■ Medal Manual ami Concise Ralaranca Report lor Both Pro- 
grammers ind Irnulementors 
• Includes Hilplal Examples to Dimtmslnts the Virtual Fai- 
lure of pascal 

The book consists of two parts the user manual and the revised 
report The manual is directed lo those who have some familiarity 
with computer programming and who wish to gel acquainted with 
the PASCAL language The report defines standard PASCAL, 
which constitutes a common base between vanous implementa- 
tions ol the Ujnguage 



PASCAL PRIMER Problem Solving 

This book has three malor goals 

• TO introduce all aspects Ol the programming and problem 

solving process (Incledes problem specification and organi- 
zation, algorithms coding, debugging, testing, documenta- 
tion and maintenance); 

• lo teach good programming style and how lo produce a high 

Sal ity finished product, and 
teach tka syntai ol Hie PASCAL programming language 
Numerous examples are employed throughout the text PAS- 
CAL is used as a vehicle to teach various aspects of programming 
techniques 



Microcomputer Problem Solving Using Pascal 
by Kenneth L Bowles 

■ A loot Designed lor Both College Coarsas AN0 individual 
Salt- Study 

- Ideal lor use with UCS0 Pascal 

- Includes Extensions lo Standard PASCAL 

This book is designed both for introductory courses in com- 
puter problem solving at the freshman and sophomore college 
level, and lor individual self-study II includes many examples and 
actually executable programs II includes information on the nec- 
essary functions and procedures lor handling graphics and 
Strings 



BEGINNER'S MANUAL FOR UCSD PASCAL 
SYSTEM 

- An Enlightening Introduction lo UCSD PASCAL 

- Demoaslralai How to Use the UCSD PASCAL System and How 
to Program In PASCAL 

• Includes Many Practical Examples ol PASCAL Programs 

This book is intended to be used as an introduction and refer- 
ence manual lor people iust beginning to use the UCSD Pascal 
Software System Whether you have never used a computer be- 
fore or whether you are an experienced programmer who is unfa- 
miliar with UCSO PASCAL this book will provide a relatively easy, 
yet thorough introduction to UCSD PASCAL 



PROGRAMING IN PASCAL 

by Peter Grogono 
■ Aa Excellent Introduction to One el the Fasten Growing Pro- 

an mm lag Languages May 
• Sectloni m Pro c edure s and File. PLUS a Chapter on Dynamic 

Data SlractarM net as tees and Linked Lists 

The text is arranged as a tutorial containing both examples and 
exercises to increase reader proficiency m PASCAL Concepts are 
illustrated by examples, ranging Irom the Tower ol Hanoi problem 
to circumscribing a circle about a mangle PROGRAMMING IN 
PASCAL is sure lo hold the reader s interest 



UCSD Reference Book 

> A Reference Gu Id. lo the Complete 
UCSO PASCAL System 

> Includes Mormattea on Compiler 



This reference book can be a valuable and time-saving guide to 
tr Kough mtormation on the UCSD PASCAL system The easy-to- 
read manual provides last access lo pertinent data 



t* Reader Service— see page 274 
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45FA 4E 
45FB 23 
45FC 5E 
45FD 23 
45FE 56 
45FF 2A6B46 

4602 EB 

4603 EDB0 
4605 C9 



4606 
4607 
460A 
460B 
460E 
460F 
4612 
4613 
4616 
4619 
461A 
461D 



EB 

CD9A0A 

AF 

CD3410 

B6 

CDD90F 

22D440 

CD6644 

78 

32D340 

C9 



461E CD9A43 
4621 CD4646 
4624 C3B646 



4627 3E01 
4629 329C40 



462C ED5BA440 
4630 0ECF 
4632 CD3344 

4635 B7 

4636 CAB646 

4639 D5 
463A DDE5 
463C El 
463D CD4646 

4640 CD9B1D 

4643 Dl 

4644 18EA 



4646 
4649 
464C 
464F 
4651 
4654 
4656 
4659 
465A 
465B 
465C 
465D 
465E 
4661 
4664 
4667 
466A 



DD6E02 

DD6603 

22EC40 

DDE5 

CDAF0F 

3E20 

CD2A03 

El 

23 

23 

23 

23 

CD7E2B 

2AA740 

CD752B 

CDFE20 

C9 



466B 0000 



466D 00 
466E 42 
4673 00 
467 4 B6 

4675 9C 

4676 93 

4677 00 
467 8 B4 

4679 52 
467A A0 
467B 00 
467C 46 

4680 00 

4681 B5 

4682 52 



29300 
29350 
29400 
29450 
29500 
29550 
29600 
29650 
29700 
29750 
29800 
29850 
29900 
29950 
30000 
30050 
30100 
30150 
30200 
30250 
30300 
30350 
30400 
30450 
30500 
30550 
30600 
30650 
30700 
307 50 
30800 
30850 
30900 
30950 
31000 
31050 
31100 
31150 
31200 
31250 
31300 
31350 
31400 
31450 
31500 
31550 
31600 
31650 
31700 
31750 
31800 
31850 
31900 
31950 
32000 
32050 
32100 
32150 
32200 
32250 
32300 
32350 
32400 
32450 
32500 
32550 
32600 
32650 
32700 
32750 
32800 
32850 
32900 
32950 
33000 
33050 
33100 
33150 
33200 
33250 
33300 
33350 
33400 
33450 
33500 
33550 
33600 
33650 
33700 
33750 



LD 

INC 

LD 

INC 

LD 

LD 

EX 

LDIR 

RET 



C,(HL) 

HL 

E,(HL) 

HL 

D,(HL) 

HL, (SRLBPT) 

DE,HL 



LENGTH ASCII REP. TO C 
ADDRESS OF 
ASCII REP. 
TO 
; DE 
; POINT TO SOURCE LABEL 

;WRITE ASCII REP. OF I 



; BINARY TO DECIMAL: CONVERT INTEGER IN BINARY TO ASCII DECIMAL REPRESENTATION. 

; SAVE ASCII REP. IN BUFFER, COUNT LENGTH 

; ENTRY: NUMBER IN DE 

;EXIT: ASCII REP. IN BUFFER POINTED TO BY (DECPTR) , LENGTH IN (LENDEC) 



BINDEC 



EX 

CALL 

XOR 

CALL 

OR 

CALL 

INC 

LD 

CALL 

LD 

LD 

RET 



DE,HL 

0A9AH 

A 

1034H 

(HL) 

0FD9H 

HL 

(DECPTR) ,HL 

LENSTR 

A,B 

(LENDEC) ,A 



;ON ENTRY DE=# 



SAVE LOCATION ASCII REP. 

COUNT ASCII REP. 

SAVE 

LENGTH 



; FINDS AND DISPLAYS LINE WITH LABEL IN BASIC PROGRAM. 
;CALED BY COMMAND FIND 'ROUTINE NAME' 
FINDER CALL LNLBL ;FIND LABEL 

CALL PRLNE ; PRINT LINE WITH LABEL 

JP READY 

;LLIST ALL LINES WITH LABEL IDENTIFIER 
LLISTR LD A, 01 

LD (409CH),A 

;LIST ALL LINES WITH LABEL IDENTIFIER 



LISTER 
LISTE1 



LD 

LD 

CALL 

OR 

JP 

PUSH 

PUSH 

POP 

CALL 

CALL 

POP 

JR 



DE, (BPRPTR) 

CLBIDNT 

FNDKEY 

A 

Z , READY 

DE 

IX 

HL 

PRLNE 

1D9BH 

DE 

LISTE1 



; PRINT LINE: PRINTS A LINE OF 
; ENTRY: IX POINTS TO LINE 
L, (IX+2) 



POINT TO BEG. BASIC PROG. 

LABEL IDNT.IS SEARCH KEY 

FIND LINE 

END PROG? 

YES 

SAVE 

BEG. LINE 

TO HL 
PRINT LINE 
BREAK OR SHIFT§ ? 
RESTORE 
DO IT AGAIN 



THE BASIC PROGRAM 



PRLNE 



LD 

LD 

LD 

PUSH 

CALL 

LD 

CALL 

POP 

INC 

INC 

INC 

INC 

CALL 

LD 

CALL 

CALL 

RET 

SRLBPT DEFW 



H,(IX+3) 

(40ECH) ,HL 

IX 

0FAFH 

A,20H 

032AH 

HL 

HL 

HL 

HL 

HL 

2B7EH 

HL,(BUFPTR) 

2B7 5H 

20FEH 



0000H 



LINE t 
TO HL 

ENABLES 



AS CURRENT LINE 



ADDRESS OF LINE 
DISPLAY LINE # 
SPACE 
DISPLAY 
POINT TO LINE 
POINT 
TO 
TEXT 

WRITE TO BUFFER 
POINT TO BUFFER 
DISPLAY 
ADVANCE CURSOR 



; SAVES ADD. SOURCE LABEL 



;WORD LIST: HOLD LIST OF WORDS RECOGNIZED BY LABEL. 
;LIST LOOKS WIERD BECAUSE OF IMBEDDED TOKENS (ROUT > 



R + OUT TOKEN, ETC.) 



WRDLST 



DEFB 
DEFM 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFM 
DEFB 
DEFB 
DEFB 



00 

•BASIC 
00 
DELTOK 

LNETOK 

REMTOK 

00 

LSTTOK 

*R' 

OUTTOK 

00 

'FIND' 



LLSTOK 

'R' 
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Program continues 



Fully TRS-80 
Compatible 







MPI B/51 BSfcS^ 




Save time . . . Order by phone 

Toll free: 1-800-323-4335 

IN ILLINOIS CALL: 312-251-5955 



Includes: Case and 
Power Supply 

Fully tested 
Guaranteed for 90 days! 

Here's why the MPI/B-51 
is the drive for success: 

■ 40 tracks 

■ 5 ms track-to-track 

■ Auto-eject 

■ Hi-Temp stability 

■ Fully-closable door 

■ Speed constant <1 1 / 2 % 

■ Double density head 

■ Optical sensors— no switches 
102K per disk 



ADDS MORE POWER 
TO YOUR SYSTEM 



Other Money Savings Opportunities 
Order by Phone or Mail 



TRS- 



TANDY CORP 



CABLES 



TRS-80 



2 Drive Cable $29.00 

4 Drive Cable $39.00 



Diskettes 



Verbatim 10 for 

$31.00 

BASF with Lib. 

Case 10 for 

$28.00 

Dysan 5 for 

$21.00 

Plastic File Box $3.95 

Operating Systems 

TRSDOS2.3 $14.95 

40 Track Patch $9.95 

VTOS 4.0 

"The Ultimate" $99.00 

NEWDOS + 

40 track $99.00 

TRSDOS Manual $5.95 



16K Level II with 

keypad $729.00 

Expansion Interface 

QfK $274.00 

Printers 

Centronics 779 

(freight collect). .$849.00 

Centronics 737-1 $815.00 

IDS 460 $1219.00 

Okidata Microline 80 with 

tractors $709.00 

NEC Spinwriter 5530 

(freight collect) $2579.00 

16K Memory Kits 

Prime NEC 200ns dynamic 
RAM. Comes with complete 
instructions $44.95 

MPI Service 

Manual $3.00 

MPI Engineering 

Manual $30.00 



Midwest "" 
Computer 
Peripherals 



P.O. Box 437 • Wilmette, Illinois 60091 



MIDWEST COMPUTER PERIPHERALS 
P.O. BOX 437 • WILMETTE. ILLINOIS 60091 

Scanned by Ira Goldklang - www.lrs-80.coms 



m^ 



085 



ACCEPTED' 



Quantity 


Description 


S each 


Total 


















































6% III. Tax 




TOTAL 




D Check enclosed (Min. Order $10.00) 





Bill my □ Visa 

□ Master Charge 
Ace. No 



Exp. 



LI Please send catalog 



Name 



Address 

City 



State. 



Zip. 




this 
publication 

is available 

in 

microform 



Please send me 
additional reformation 
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4683 A0 

4684 00 

4685 80 



4686 AD44 
4688 DB44 
468A F244 
468C 2C46 
468E 1E46 
4690 2746 

4692 219P46 
4695 CDA728 

4698 AF 

4699 32E140 
469C C3B646 

469F 45 
46B4 0D 
46B5 00 



46B6 CDBC46 
46B9 C3191A 



46BC 
46BD 
46C0 
46C1 
46C3 
46C4 
46C6 
46C7 
46CA 
46CB 
46CD 
46CE 
46CF 



08 

3AO046 

B7 

280B 

FB 

1808 

08 

3AD046 

B7 

2801 

F3 

B8 

C9 



46D0 00 



33800 

33850 

33900 

33950 

34000 

34050 

34100 

34150 

34200 

34250 

34300 

34350 

34400 

34450 

34500 

34550 

34600 

34650 

34700 

34750 

34800 

34850 

34900 

34950 

35000 

35050 

35100 

35150 

35200 

35250 

35300 

35350 

35400 

35450 

35500 

35550 

35600 

35650 

35700 

35750 

35800 

35850 

35900 

35950 

36000 

36050 

36100 

36150 

36200 

36250 

36300 

36350 

36400 



DEFB OUTTOK 
DEFB 00 
DEFB 80H 

.-LOCATION OF ROUTINES CORRESPONDING TO WORD LIST 



JMPTBL 



LBLERR 



LBERMS 



DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 

LD 

CALL 
XOR 
LD 

JP 

DEFN 
DEFB 
DEFB 



NOMENU 
ENTLBL 
DELREM 
LISTER 
FINDER 
LLISTR 

HL, LBERMS 

DISSTR 

A 

(40E1H) , A 
READY 



; LABEL ERROR MESSAGE 



;TURN OFF AUTO 



•ERROR, LABEL ASSIGNED' 

0DH 

00 



; THE FOLLOWING ROUTINES ARE INCLUDED TO MAINTAIN 

; CONSISTANCY WITH THE PROGRAM TO BE OFFERED BY INSTANT 

; SOFTWARE. THEY ALLOW THE USER TO SET (INTFLG) TO RUN 

; LABEL WITH INTERUPTS ON OR OFF. 

;THE ROUTINES ARE CALLED FROM *CMDLBL' AND 'NOMENU'. 

; WHILE THE BASIC PROGRAM IS BEING MODIFIED, THE 

; INTERUPTS SHOULD BE OFF, HOWEVER, PEOPLE CALL 

; INSTANT SOFTWARE AND COMPLAIN THAT THEIR CLOCK 

; LOSES TIME I I 



READY 



INTON 



INTOFF 



INTEX 



CALL 
JP 

EX 

LD 
OR 
JR 
EI 
JR 
EX 
LD 
OR 
JR 
DI 
EX 
RET 



INTON 
1A19H 

AF.AF' 

A, (INTFLG) 

A 

Z, INTEX 

INTEX 

AF,AF' 

A, (INTFLG) 

A 

Z, INTEX 

AF,AF' 



I EI ? 

;JP TO READY 



INTFLG DEFB 00 







36450 


; END OF INTERUPT CHECK AND 


SET 


ROUTINES 






36500 
















36550 
















36600 


; INITIALIZE: 


NOT SAVED AFTER 


INITIALIZATION 






36650 


; NOTE 


111 THIS INITIALIZATION 


ROUTINE IS DESIGNED TO 






36700 


; PROTECT LABEL IN * LOW * 


MEMORY. CHANGES MUST BE 






36750 


; MADE 


TO USE 


HIGH MEMORY. 










36 800 












46D1 


21C441 


36850 


INIT 


LD 


HL,BLNRAM 




; POINT TO RAM 


46D4 


11F842 


36900 




LD 


DE,EXBLN 




; POINT TO BYTES IN PROG. 


46D7 


0603 


36950 




LD 


B,3 




; NO. BYTES TO EXCHANGE 


46D9 


CDF7 46 


37000 




CALL 


EXCHNG 




; EXCHANGE 


46DC 


21B241 


37050 




LD 


HL,PSTRAM 






46DF 


11B244 


37100 




LD 


DE,EXCMDL 






46E2 


0603 


37150 




LD 


B,03 






46E4 


CDF7 46 


37200 




CALL 


EXCHNG 






46 E7 


21D146 


37250 




LD 


HL,INIT 




;POINT TO INIT. ROUT. 


46EA 


3600 


37300 




LD 


(HL) ,00 




;WILL BE START 


46EC 


23 


37350 




INC 


HL 




; OF BASIC PROGRAM 


46ED 


22A440 


37400 




LD 


(BPRPTR) ,HL 




;NEW BASIC PROG. POINTER 


46F0 


01191A 


37450 




LD 


BC,B READY 




; RETURN TO READY 


46F3 


C5 


37500 




PUSH 


BC 






46P4 


C34D1B 


37550 
37600 




JP 


NEW 




;NEW ROUT. IN BASIC ROM 


46 F7 


7E 


37650 


EXCHNG 


LD 


A, (HL) 






46F8 


08 


37700 




EX 


AF,AF' 






46F9 


1A 


37750 




LD 


A, (DE) 






46FA 


77 


37 800 




LD 


(HL),A 






46 FB 


08 


37 850 




EX 


AF,AF' 






46FC 


12 


37 900 




LD 


(DE),A 






46FD 


23 


37950 




INC 


HL 






46PE 


13 


38000 




INC 


DE 






46PP 


10F6 


38050 




DJNZ 


EXCHNG 






4701 


C9 


38100 
38150 
38200 


LAST 


RET 








46D1 




38250 




END 


INIT 






00000 TOTAL 


ERRORS 
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The MICROCONDUCTOR 



TM 



1 the ultimate 

i 



database manager 
for your TRS-80® 



Compose Any Software Program 
Dy simply answering the questions, 
YOU Describe the file layouts 
YOU Specify the print formats 
YOU Design the update functions. 
The CONDUCTOR D6eS THE WORK!!! 




The MICROCONDUCTOR'" direas your computer ro 
compose, organize ond summarize all information you 
need ro solve your sofrwore and business problems 

With The MICROCONDUCTOR"'. your computer will 
be oble to compose any record-keeping software you 
need. In the office. The MICROCONDUCTOR'" can help 
with anything from accounts receivable to property 
manogement You'll find that The MICROCONDUCTOR'" 
is ideal for the shop too. Let it toke core of your inventory 
records, sales analysis, price lists, and more. 

The MICROCONDUCTOR'" is not just a file manager 
but a true Doto Base Manogement System suitable for 
both the novice ond professional users. 
Some of the modules of this masterpiece are: 

DATA FILE —One step file creation Just set it, ond forget if 
MAINT.— Monipulore your data files with ease odd 

delete, modify, scon, relocate, and more 
SORT— Sort any number of fields, in any sequence 

ascending or descending order 
UPDATE— Single or dual file report ond update utility 

Introductory Prices 
TRS-60® Model I $ 249 

TRS-60® Model II S 399 



The MICROCONDUCTOR'" is power or your fingertips! 
Power to set up. maintain, sort, report, ond update doto 
files of whim. Just imagine with rhe MICROCONDUCTOR'" 
you can establish a custom moiling list system in 30 
minutes, accounts receivable in 2 hours, a complete 
business sysrem in only o few working days. Never 
before has your computer been given such power 1 

DATA FILES— No limit on the number of records a file 
can have 
FIELDS— Any type (string, interger, single, double) 
Eight entry modes (including defaults 
counting, ond suppress) 
REPORTS— Four ways ro generate reports Total nu- 
meric column(s) Print on ony paper in 
ony format (statements labels, etc.) 
SORT— Any field(s) in any combination (i.e. mul- 
tiple-key sort) Any size file, numeric or 
ASCII. Ascending or descending 
MAINT.— Command anticipation. Record duplica- 
tion Direct occess ond sequential search 
UPDATING/ 
MERGING— Add, subtract, multiply, divide fields Com- 
bine results from previous calculations 
Test for ony condition and take oction 

•Registered trade mark of Radio Shock. 



sr, 



TECHNOLOGY Jg« (714)979-9923 * 



usawaawii uiiMiHin'l 



Order Desk Only 600-854-7222 



!!l£^mS 



DISCOUNTED FREE CATALOGUE 

FREIGHT FOD/FACTORY 







ijjFFir I rvr-^j^ini'^ | 




VISA 1 







^ Reader Sirvlct—at* page 274 
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HARDWARE 



To know the joys of being on the stick, you'd better read this now. 



Joystick City 



Larry Suter 

1643 Warsaw Ave. 

Livermore, CA 94550 



For a few bucks and a couple 
hours of time you can put 
together a joystick, or paddle 
control, that plugs into your 
TRS-80 cassette port. 

The joystick is a tool that con- 
verts variable resistances to dig- 
ital signals, giving you new free- 
dom in controlling family 
games. Beyond games, you can 
use this same, simple hardware/ 
software combination to make 
your TRS-80 into a two-channel 
recording thermometer, a proxi- 
mity sensor, a solar flux/light 
level meter or two ohmmeters. 





9 SB 




R2 


OUTPUT 


Rl 









All this is done with a 35 cent 
chip, a few resistors and some 
capacitors. 

Joystick Fundamentals 

The joystick is an analog sen- 
sor that produces varying resis- 
tances. 

I'm going to be using the word 
joystick throughout this article 
to describe anything that pro- 
duces measurable resistances. 

The basic point about joy- 
sticks is that they have two vari- 
able resistors or "pots" (poten- 
tiometers). Following normal 
electronic's usage, these pots 
are called R1 and R2. Both pots 
are hooked up to the control 
stick by a small mechanism. Be- 
cause of this mechanism, when 
you swing the joystick left or 
right, only one of the pots in- 
creases or decreases its resis- 
tance. 

When you move the stick for- 
ward or backward, the other 
pot's resistance is changed. 
When you move it diagonally, 
both pots change. To interface a 
joystick to your TRS-80 your 



— «| -Ri* m \— 



LT~ 



H-»' h- 



computer must be able to distin- 
guish R1 and R2. We'll use a 555 
oscillator and an algorithm. 

The Hardware 

To make the interface there's 
only one fact you need to know 
about the 555 oscillator: It puts 
out a square wave as shown in 



Fig. 1. 

The duration of high and low 
parts of the square wave are 
controlled by two resistors, R1 
and R2, also shown in Fig. 1 . The 
oscillator will be low for a length 
of time which is proportional to 
R1. Then it will be high for a time 
proportional to R1 + R2. 



Fig. 1 



5 CLS 

7 REM CALL JOYSTICK INPUT SUBROUTINE 

10 GOSUB 900 

20 PRINT90,DE,DP 

25 REM SET THE JOYSTICK'S POINT ON THE SCREEN 

30 X=DE:Y=DP 

40 RESET(X0,Y0) :SET(X,Y) :X0-X:Y0=Y 

50 GOTO 10 

875 REM ****-**-*«-****»*****************«« 

885 REM JOYSTICK INPUT SUBROUTINE 

895 REM WAIT FOR A TRANSITION 

900 GOSUB 1000 

905 REM MEASURE TIME TILL NEXT TRANSITION AND STORE IN 

DE 

910 GOSUB 1000 

915 REM MOVE DE TO DP AND MEASURE TIME TILL NEXT TRANSI 

TION 

920 GOSUB 1000 

925 REM MAKE SURE DE HAS THE LARGER OF DE AND DP 

926 REM SWAP "EM IF NECESSARY 

930 IF DE<DP THEN TM=DE: DE=DP: DP=TM 

940 DE-DE-DP 

945 REM VOI LA! DE IS PROPORTIONAL TO R2, DP TO Rl 

950 RETURN 

985 REM 

986 REM *****-*•«****-*********************** 

995 REM MOVE DE TO DP 

1000 DP=DE 

1005 REM ZERO THE COUNTER 

1010 DE=0 

1P1 S REM RESET CASSETTE INPUT FLIP-FLOP 

1020 OUT 255,0 

1025 REM INCREMENT COUNTER 

1030 DE=DE+1 

1035 REM READ IN PORT 255 

1040 A=INP(255) 

1045 REM MASK OFF BIT 7 

1050 A=A AND 128 

1055 REM IF BIT 7*0 THEN LOOP BACK. OTHERWISE RETURN 

1060 IF A=0 GOTO 1030 

107 RETURN 

Program Listing 1. The BASIC Algorithm 
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Now NRI takes you inside the 

world's most popular microcomputer 

to train you at home as the # 

new breed of computer specialist! 



NRI teams up with Radio Shack 
to teach you how to use, 
program and service 
microcomputers . . . make you 
the complete technician. 
It's no longer enough to be just a 
programmer or a technician. With micro- 
computers moving into the fabric of our 
lives (over 200,000 of the TRS-80™ alone 
have been sold), interdisciplinary skills 
are demanded. And NRI can prepare 
you with the first course of its kind, 
covering the complete world of the 
microcomputer. 

Learn At Home 
in Your Spare Time 

With NRI training, the program- 
mer gains practical knowledge of hard- 
ware, enabling him to design simpler, more 
effective programs. And, with advanced 
programming skills, the technician can 
test and debug systems quickly and easily. 

Only NRI gives you both kinds of 
training with the convenience of home 
study. No classroom pressures, no night 
school, no gasoline wasted. You learn at 
your convenience, at your own pace. Yet 
you're always backed by the NRJ staff and 




IraiaLag iacMes TIS-80 coapater, traasistorized 

vo 1 t-ofcm meter, digital fir q»e ocy co inter, 

and tbe NRI Discover)- Lab wit* hundreds of tests 

and experiments. 

.TRS-80 6 a trademark of the Radio Shack division of Tandy Corp ) 
*> R—d*r Service— see page 274 




#'4v— - 




your instructor, answering questions, giving 
you guidance, and helping you over the 
tough spots. 

Explore the TRS-80 
Inside and Out 

NRI training is hands-on training, 
with practical experiments and demon- 
strations as the very foundation of your 
knowledge. You don't just program your 
computer, you introduce and correct faults 
.. .watch how circuits interact. .. interface 
with other systems. . .gain a real insight 
into its nature. 

You also build test instruments and 
the NRI Discovery Lab, 
performing over 60 
separate experiments 
in the process. You 
learn how your 
trouble-shooting 
tools work, and gain 
greater understand- 
ing of the informa- 
tion they give you. 
Both microcomputer 
and equipment come 
as part or your train- 
ing for you to use 
and keep. 



Send for Free Catalog... 
No Salesman Will Call 

Get all the details on this exciting 
course in NRI's tree, 100-page catalog. It 
shows all equipment, lesson outlines, and 
facts on other electronics courses such as 
Complete Communications with CB, TV and 
Audio, Digital Electronics, and more. Send 
today, no salesman will ever bother you. 
Keep up with the latest technology as you 
learn on the world's most popular a>rnputet 
If coupon has been used, write to NRI 
Schools, 3939 Wisconsin Ave., Washington, 
D.C. 20016. 




NRI Schools 

McGraw-Hill Continuing 

Education Center 
3939 Wisconsin Awnue 
Washington, DC. 20016 
NO SALESMAN WILL CALL 
Please check for one free catalog only 

□ Computer Electronics Including 
Microcomputers 

D TV/Audio/Video Systems Servicing 
D Complete Communications Electronics 

with CB • FCC licenses • Aircraft. 

Mobile, Marine Electronics 

□ CB Specialists Course 




□ Digital Electronics • Electronic 
Technology • Basic Electronics 

□ Small Engine Repair 
D Electrical Appliance Servicing 

□ Automotive Mechanics 

□ Auto Air Conditioning 
D Air Conditioning, Refrigeration. & 

Hearing including Solar Technology 



(Pleas* Print) 



A* 



Street 



City/ State Zip 

Accredited by the Accrediting Commission of the National Home Study Council 



179-120 
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5 REM LOAD MACHINE LANGUAGE ALGORITHM 

10 AD-20223:FOR 1-1 TO 51: READ A: POKE AD+I,A:NEXT 

15 REM SET UP TRS-80 POINTER TO CALL MACHINE LANGUAGE A 

LGORITHM 

21 POKE 16526, 4 : POKE 16527,79 

365 REM... 

398 REM... 

395 REM ROUTINE TO CONVERT JOYSTICK TO DIGITAL THEN PRI 
NT 

396 REM AND DISPLAY THE POINT 

400 CLS:AD«20226:Q-256:YM-.200:XM-.50 

405 REM A WILL BE PROPORTIONAL TO Rl . B TO R2 . 

410 A*USR(0) :B-PEEK(AD)+Q*PEEK(AD+1) 

420 PRINTe0,A,B 

424 REM SCALE X AND Y VALUES BEFORE PLOTTING 

425 X-XM*A:Y-YM*B 

427 REM MAKE SURE X AND Y AREN'T TOO LARGE FOR SET(X,Y) 

428 IF Y>47THEN Y-47 

429 IF X>127THEN X-127 

430 RESET (X0, Y0 ): SET (X,Y) :X0-X : Y0-Y :GOTO 410 
985 REM... 

990 REM... 

995 REM THE MACHINE LANGUAGE ROUTINE IS CONTAINED IN TH 
E 

996 REM DATA STATEMENT 

1000 DATA 0,0,0,0,205,36,79,205,36,79,205,36,79,213,217 
,225,237,82,56,1,217,213,217,225,237,82,34,2,7 9,235,34, 
0,79,195,154,10,217,17 5,211,255,17,0,0,19,219,255,230,1 
28,40,249,201 

Program Listing 2. To Load the Machine Language Algorithm 



The high and low durations 
can be input to the TRS-80 by us- 
ing the cassette input plug. An 
alternative procedure is to use 
the expansion connector in the 
rear of the TRS-80, but this ap- 
proach would turn our one-night 
one-chip project into a week 
long multi-chip wire-wrap mess. 

Using the cassette port is 
safe because the input is cou- 
pled by capacitors to the com- 
puter. This means you can mess 
up and dump a ±9 volt DC sig- 
nal into the input and not worry 
about roasting the components. 

Fig. 2 is a circuit diagram il- 
lustrating the interface of the 
555 oscillator to the cassette in- 
put port. The left side of the 
figure is the oscillator you'll 
build. The right side of the 



diagram represents the parts of 
the TRS-80 which are important 
to the interface. A more com- 
plete (completely confusing?) 
diagram is shown in the back of 
the TRS-80 Microcomputer 
Technical Reference Manual. 

Cassette Port Explained 

Consider the diagram of the 
TRS-80 in Fig. 2. Low level 
voltage pulses entering your 
computer through the cassette 
ear jack go Into the signal condi- 
tioner. 

This conditioner converts 
these pulses (about 0.2 volts) or 
either polarity into pulses which 
can SET the flip-flop. For exam- 
ple, if the output is 0, then the 
pulse makes it a 1. If the output 
is 1, it stays 1. 



L2 


0000 


Scratchpad to R1 and R2 


13 


00 00 




LI 


CALL LOOP 






CALL LOOP 


Collect data from caasatta port. 




CALL LOOP 


Store In DE and DE'. 




PUSHDE 






EXX 


Find which of DE, DE' Is larger 




POPHL 






SBCDE 






JRC. LA 






EXX 


Put the larger in HL smaller in DE. 


LA 


PUSH DE 


Subtract DE from HL. Then DE has Rl. 




EXX 


HL has R2. 




POPHL 






SBCDE 






LOS (L3), HL 






EX 


Store R1 and R2 in scratchpad. 




LD(L2), HL 






JP0A9AH 




LOOP EXX 






XORA 


Initialize timing loop— Swap DE, DE'; 




OUT FF 


Reset flip-flop: zero counter 




LD DE. 00 00 




LE 


INCDE 






IN FF 


Timing loop 




AND SOU 






JRZ.LE 






RET 




Program 


Listing 3. Machine Language Algorithm with Func- 


tions Explained 





nj— Lr~L_r 



Fig. 2 also shows some bipo- 
lar pulses which will SET the 
flip-flop. 

The output of this flip-flop can 
be read as the eighth bit of a 
data word. We will read this 
whenever an INP(255) BASIC 
function, or its machine lan- 
guage equivalent, is executed. 
The path of data into your 
machine begins at the cassette 
jack, moves to the signal condi- 
tioner, to the flip-flop and to port 
255 where it's read. 

It's important to know that 
once that flip-flop is SET, it 
stays SET— until it is RESET. 

If you want the computer to 
be aware of more than one 
pulse, you must RESET the flip- 
flop each time it is SET. To RE- 
SET it, send an OUT 255,0 BASIC 
command or its machine lan- 




guage equivalent. 

Remember that the output of 
the 555 oscillator is controlled 
by the variable resistors R1 and 
R2, but this square wave output 
is not directly into the TRS-80. 
First it passes through a capaci- 
tor which produces bipolar 
pulses several microseconds 
long on the cassette input port 
so that every time the 555 oscil- 
lator makes a transition, up or 
down, the flip-flop will be set. 

By measuring the time be- 
tween successive settings and 
using an algorithm, we can find 
R1 and R2 or, rather, generate 
numbers which are propor- 
tioned to R1 and R2. 

The Algorithm 

We'll measure time between 



Fig. 2 



1 Joystick w/100 K pots 

1 555 chips 

2 1 K resistors 

1 0.1 microfarad capacitor 
1 1.0 microfarad capacitor 

(optional) 
1 9-volt battery 
1 battery chip 
1 miniature phone jack 
1 300 Q resistor 
1 4.7 nF capacitor 

Parts List 
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Combine accurate flight characteristics with the best in animation graphics 
and you'll have SubLOGIC's 

T80-FS1 Flight Simulator 

fortheTRS-80 



SubLOGIC s T80-FS 1 is the smooth, realistic 
simulator that gives you a real-time, 3-D, 

out-of -the-cockpi t view of flight. 

Thanks to fast animation and accurate repre- 
sentation of flight, the non-pilot can now learn 
basic flight control, including take-offs and 
landings! And experienced pilots will recog- 
nize how thoroughly they can explore the 
aircraft's characteristics. 

Once you've acquired flight proficiency, 
you can engage in the exciting British Ace 
3-D Aerial Battle Game included in the 
package. Destroy the enemy's fuel depot 
while evading enemy fighters. 

Computer and aviation experts call the 
T80-FS1 a marvel of modem technology. 
You'll simply call it fantastic! 



Special Features: 

• 3 frame-per-second flicker free 
animation 

• Maximum transfer keyboard input 

• Constant feedback cassette loader 

Hardware Requirements: 

• Radio Shack TRS-80. Level 1 or 2 

• 16K memory 

• Nothing else! 



$ 



Only 



25 




See your dealer or order direct. For 
direct order, include $1.25 and specify 
UPS or first class mail. Illinois residents 
add 5% sales tax. Visa and Mastercard 
accepted. 



ioMOGIC 

Distribution Corp. 
„ 150 Box V, Savoy, IL 61874 

(217)359-8482 



! STOP ! 

OUT OF MEMORY ERRORS 

with 

VARKEEP 



MEMORY M.4.\.4C.FUFXT I 



UJJIL 



• Chain programs without losing variables 

• Chang* the amount of string space 
without losing variable* 

• Redlmenaion arrays 

• Reclaim memory from variables no 
longer needed. 

• Protect variables from deletion when 
making program changes 

ADO 
FOUR POWERFUL COMMANDS 

TO YOl'R BASIC 

LEVEL II OR DOS 

$16.95 diskette tape S 14.95 

• 517/485-0344 517/487-3358 • 
COD/MC/VISA 

MC/VISA CAMD 4% AODfTIOMAL CHARGE 
To order your copy. Coil or Send name, address 
and S/6.95 for disk or SI4.95 for tape, plus 
.75* skipping to: ** 138 

THE ALTERNATE SOURCE 
Sir]- 1806 ADA STREET 

# 1 1 1: '> LANSING, Ml 48910 



Let Your TRS-80® 

Teach You 

ASSEMBLY LANGUAGE 

Tired of buying book after book on assembly 
language programming and still not knowing your 
P0f» from your PUSH? 

REfVlsoFT proudly announces a more effi- 
cient way. using your own TRS-80* . to learn the 
fundamentals of assembly language programming 
-at YOUR pace and at YOUR convenience 
Our unique package. INTRODUCTION TO TRS-80' 
ASSEMBLY PROGRAMMING ". will provide you with 
the following 

• Ten 45-minute lessons on audio cassettes 

• A driver program to make your TRS-80® video 
monitor serve as a blackboard tor the instructor 

• A display program for each lesson to provide 
illustration and reinforcement for what you are 
hearing 

• A textbook on TRS-80* Assembly Language 
Programming 

• Step by-step dissection of complete and useful 
routines to test memory and to gain direct control 
over the keyboard, video monitor, and printer 

• How to access and use powerful routines in your 
Level II ROM 

This course was developed and recorded by 
Joseph E Willis and is based on the successful 
series of courses he has taught at Meta Technologies 
Corporation, the Radio Shack Computer Center, and 
other locations in Northern Ohio The minimum 
system required is a Level II. 16K RAM 

REM ASSEM-1 only $69.95 



t* 



REMsorr, inc 
571 E. 185 St. 

Euclid. Ohio 44119 
(216)531-1338 



% 



• 70 



include $1 SO lor snipping and handling 
Ohio residents add i'/i\ sales tax 

TRS-80* is a trademark ot the Tandy Corp 



% STAT-BALL % 
Baseball Simulation 




% STAT-BALL S> is noi an arcade type game hut a 
comprehensive. 3 part statsbcaf b asebal l smuiawn 
pa ck ag e mat uses real life pitcher ana batter statistics to 
simulate game (Kay 

During tne game 12 performance categories are 
computed ana displayed lor Darters 10 for pitchers These 
stats reflect tne player s game performance and will folio* 
closely a player s actual ability Stats may be viewed on a 
per game oasis or kept for many games 

Agonize when your Desf power hitter drops a routine 
fly. leel the thrill of victory when he hit's a deep fly over the 
wall All action is descrfted as it happens to add tension and 
encitemeni lo this engrossing game 

YOU HE THE MANAGER 1 Select your own lineup 
make an types ot substitutions, call your own strategy and 
live with it' I Play modern old timer or mixed learns 

This package consists of 3 programs: 

(1) GAME 

(2) RECORDS (Sorts up lo ISO players 

into 1 4 categories cased 
on relative performance 
(31 WORKUP/EDIT (Establish edit, or mi» 
players) 

Matures include 

• Solitare or head lo head competetion 

• batters ability ratings include bunting 

running, and errors 

• Pitcher tiring factor 

• 3 offensive and defensive strategy 

options 

• Full 25 man rosters 

• Printer option (32 chr/ln or more) 

• Top quality tape 

• Detailed instructions 

• *R£E r-9 Pirates and Orioles tor series 

replay 

Kw prompt. 1st class delivery send 
S25 CXJ Check or money order to 



J L S SOFTWARE 

PO Bob 10385 

Ocago Ihnos 60610 



^315 



(We pay snipping and handling) 

(Trademark Tandy CORP ) 



,* Reader Service— see page 274 
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NOT FOR 

PROGRAMMERS 

ONLY 

S & M Systems, Inc. in- 
troduces the first non 
programmers system 
available for 
NEWDOS-80. 

PROGRAM 80 allows you to 

define your own information 

file, make additions, changes 

and deletions... without any 

programming! This system costs only 599.00 etnd 

provides the capability of data collection, updating 

and printed reports. Also included is our machine 

language NEWSOR T 80 which will allow you to sort 

your data files in any order you require. 

Call S & M Systems today at (617) 373-1599 and 
order PROGRAM 80 today! 

"Let us put your system to work for you!" 

SBmsvsTEms, inc. 

P.O. Box 1225 

2 Washington Street 

Haverhill. Massachusetts 01830 




AT LAST! 

Mass production prices on this high quality software Buy direct and save 
50V Now. also available for CBASIC on CP M and MBASIC on HEATH 
HD0S 

DATA BASE MANAGER Mod-i S69 Mod-ll $199 

You can use it to maintain a data base & produce reports without any user 
programming Define file parameters & report formats on-line Key 
random access, fast multi-key sort, field arith . label, audit log. No time- 
consuming overlays 500 happy users in a year Mod-ll version has over 
50 enhancements including 40 fields max IDM-M2 is great 1 ' - 80-US 
A/R Mod-I S69 Mod-ll S149 

Invoices, statements, aging sales analysis, credit checking, form input 
order entry As opposed to most other A/R. ours can be used by doctors 
store managers, etc 

WORD PROCESSOR Mod-I $49 Mod-ll $49 

Center, justification, indentation page numbering Mod-I version features 
upper/lower case without hardware change 1 

MAILING LIST Mod-I $59 Mod-ll $99 

The best! Compare and be selective. Form input. 5-digit selection code, zip 
code ext . sort any field, multiple labels Who else offers a report writer'? 
INVENTORY Mod-I S99 Mod-ll $149 

Fast, key random access Reports include order info, performance 
summary. E.O.Q.. and user-specified reports Many have converted their 
inventory system to ours' 

GL. A/R. A/P. & PAYROLL Mod-ll $129 each 

Integrated accounting package ISAM. 100* page manual. Uses80column 
screen, not 64 A S 1.000 value Dual disk required 

L216. a cassette package of 10 business programs for Level II 16K 
systems. S59. Includes word processor & data base Poker game $19. 

Most programs are on-line, interactive, random access, bug free, 
documented and delivered on disks. Mod-I programsrequire32KTRSD0S 
Don't let our low prices fool you 1 If still not convinced, send SASE (28C) for 
catalog 

v MICRO ARCHITECT. INC., "» 

hl^. 96 Dothan St.. Arlington. MA 02174 




CASSETTE IN PLUG 



CASSfc'Tl OUT PLUG 
"»Ux" 



Fig. 3 



5 REM LOAD MACHINE LANGUAGE ALGORITHM AND SET-UP USR(0) 

POINTER 
10 AD-20223:TP=16526 :FORI«l TO SI: READ A:POKE AD+I,A:NE 

XT 
IS POKE TP,4:POKE TP+1,7 9 

18 REM MACHINE LANGUAGE ALGORITHM IS IN DATA STATEMENT 
20 DATA 0,0,0,0,205,36,79,205,36,79,205,36,79,213,217,2 

25,237,82,56,1,217,213,217,225,237,82,34,2,7 9,23 5, 

34,0,7 9,195,154,10,217,17 5,211,255,17,0,0,19,219,2 

55,230,128,40,249,201 
85 REM... 
90 REM... 
95 REM... SLALOM GAME FOLLOWS 

98 REM Y(I) IS THE VERTICAL LOCATION OF GATE # I 

99 REM WE START OFF WITH NO GATES DISPLAYED 

100 DIM Y{3) ,X(3) :CLS:N=34:F0RI=1T03:Y(I)«45:NEXT 
115 REM BEGIN MAIN LOOP 

117 REM DY IS THE VERTICAL GATE MOVEMENT PER LOOP. 

118 REM THIS IS CONTROLLED BY YOUR JOYSTICK. 
120 DY-PEEK(AD+3)/48 

122 GOSUB 500 

13 8 REM BEGIN GATE MOVEMENT LOOP 

139 REM I IS THE GATE INDEX. WE COUNT DOWN IN THIS LOOP 



140 
148 

149 

150 
154 

155 
159 
160 
170 
177 
178 

180 

195 

196 
200 
210 
290 



300 

304 
305 
309 
310 
390 
400 
409 

410 
415 
420 
428 
430 
440 
450 
455 
460 
470 
490 

580 
505 

510 



1J,K) AND (M,K) FORM THE GATE. IP IT 



1 = 2 

REM THE POINTS 

S 
REM OFF THE SCREEN THEN WE GOTO 300 TO GET A NEW GA 

TE 
K-Y(I) :J-X(I) :M»J+10:IF K>43 THEN 300 
REM GET SKIIER'S POSITION. SET HIS LOCATION. 
GOSUB 500 
REM MOVE GATE * I 
L«K+DY:Y(I)-L 

RESET(J,K) :RESET(M,K) :SET(J,L) :SET(M,L) 
REM SEE IF SKIIER CROSSED THE GATE'S Y-POSITION. 
REM IF SO THEN GOSUB TO SEE IF HE PASSED THRU THE G 

ATE 
IF K<N AND L>N GOSUB400 
REM NEXT GATE'S INDEX, OR LOOP TO 120 IF WE'VE MOVE 

D ALL 
REM THE GATES. I>1 FOR 2 GATES. I>0 FOR 3. 

I-I-1:IFI>0 GOTO 150 
GOTO120 
REM 1-.90 IS THE PROBABILITY THAT A GATE WILL BE GE 

NERATED. ADJUST THIS PARAMETER TO SUIT YOURSEL 

F. 
RESET(J,K) :RESET(M,K) :IF RND(0X.90 GOTO 200 
REM NG COUNTS THE NUMBER OF GATES GENERATED 
NG-NG+1 
REM GENERATE NEW GATE'S X-POSITION. 

Y(I)-0:X(I)-117*RND(0) :GOTO 200 
REM SEE IF SKIIER PASSED THRU THE GATE 
IF S>J AND S<M RETURN 
REM NM COUNTS ♦ OF GATES MISSED. MISS 5 AND YOU'RE 

DONE. 
NM-NM+1: I FNM<5THEN:PRINTe0,NM: RETURN 
REM SCORING ALGORITHM 
CLS:SC«RND(10000) 
REM PRINT HOW SKIIER DID 
PRINT"* OF GATES " , NG 
PRINT"* MISSED", NM 
FORI«1TO1000:NEXT 
REM PRINT SCORE IN BIG LETTERS 
CLS:OUT255, 8: PRINT'S C O R E = " , SC 
FOR I-1TO3000:NEXT:CLS 
REM THIS SUBROUTINE READS THE JOYSTICK AND DISPLAYS 

THE SKIIER'S POSITION. 
S-USR(0)/2-15:IFS>127THENS=127 
IF S<0 THEN S=0 
RESET(S0,N) :SET(S,N) :S0-S:RETURN 



Program Listing 4. Slalom 
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SOFTWARE- TRS-80 - SOFTWARE 




PACKAGE ONE INCLUDES: graphic 
TREK "2000" - This full graphics, teal 
tune game is full of fast, exciting action 1 
Exploding photon torpedoes and phaseis 
fill the screen' Vou must actually navigate 
the enterprise to dock with the giant space 
stations as well as to avoid klingon 
torpedoes! Has shields, galactic memory 
readout, damage reports, long range 
sensors, etc! Has 3 levels for beginning. 
average, or expert players 1 » INVASION 
WORG - Time: 3099, Place: Earth's Solar 
System Mission: As general of Earth's 
forces. your job is to stop the Worg 
Invasion and destroy their outposts on 
Mars, Venus, Saturn, Neptune, etc' Earth's 
Eorces. Androids Space Fighters 

Lazer Cannon Neutrino Blasters! Worg 

^ orces: Robots — Saucers — Disintegrators 
• Proton Destroyers 1 Multi level game lets 
you advance to a more complicated game 
as you get Detter! * STAR WARS 
Manuever youi space tighter deep into the 
nucleus of the Death Star! Drop your 
Domp. then escape via the only exit. This 
giaphics game is really fun 1 May the Force 
he with youi * SPACE TARGET 
Shoot at enemy Ships with your missiles. 
II they eject in a parachute, capture them 
or if you're cruel, destroy them! Full 
graphics, real time g*me' * SAUCERS 
This fast action graphics game has a time 
limit! Can you be the commander to win 
the distinguished cross! Requires split 
second timing to win! Watch out' 

ONLY 14.95 





vwiMMimmKn. 

■| ■ ■ ■ WJHXDD5 (.1 

* I c i t r t » 

•r. 



PACKAGE TWO INCLUDES: CHECK- 
ERS 2.1 Finally! A checkers program 
that will challenge everyone! Expert as 
well as amateur! Uses 3-ply tree search to 
find best possible move. Picks randomly 
between equal moves to assure you of 
never having identical games. * POKER 
FACE - The computer uses psychology as 
well as logic to try and beat you at poker. 
Cards are displayed using TRS-80's full 
graphics. Computer raises, calls, and 
sometimes even folds! Great practice for 
your Saturday night poker match! (Plays 5 
card draw). * PSYCHIC - Tell the 
computer a little about yourself and he'll 
predict things about you, you won't 
believe 1 A real mind bender! Great 
amusement for parties. * TANGLE MAN- 
IA Try and force your opponent into an 
immobile position. But watch out, they're 
doing the same to you! This graphics game 
is for 2 people and has been used to end 
stupid arguments. (And occasionally starts 
them!) * WORO SCRAMBLE — This 
game is for two or more people. One 
person inputs a word to the computer 
while the others look away. The computer 
scrambles the word, then keeps track of 
wrong guesses. 

ONLY 14.95 




PACKAGE THREE INCLUDES: POE- 
TRY - This program lets you choose the 
subject as well as the mood of the poem 
you want. You give TRS 80 certain nouns 
or names, then the mood, and it does the 
res' 1 It has a 1000-word ♦ vocabulary of 
nouns, verbs, adiectives and adverbs' * 
ELECTRIC ARTIST - Manual: draw, 
erase, move as well as. Auto: draw, erase 
and move. Uses graphics bits not bytes. 
Saves drawing on tape or disk' * GALAC- 
TIC BATTLE - The Swmeus enemy have 
long range phasers but cannot travel at 
warp speed' You can, but only txave short 
range phasers! Can you blitzkrieg the 
enemy without getting destroyed' Full 
graphics — real time! * WORD MANIA - 
Can you guess the computer's words using 
your human intuitive and logical abilities' 
You'll need to, to beat the computer' * 
AIR COMMAND Battle the Kamikaze 
pilots. Requires split second timing. This is 
a FAST action arcade game. 



ONLY 14.95 




PACKAGE FOUR INCLUDES: LIFE 

This Z-80 machine language program uses 
full graphics! Over 100 generations per 
minute make it truly animated! You make 
your starting pattern, the computer does 
the rest! Program can be stopped and 
changes made' Watch it grow! * SPACE 
LANDER — This full graphics simulator 
lets you pick what planet, asteroid or 
moon you wish to land on! Has 3 skill 
levels that make it fun for everyone. * 
GREED II - Multi-level game is fun and 
challenging! Beat the computer at this dice 
game using your knowledge of odds and 
luck! Computer keep; track of his 
winnings and yours. Quick fast action. 
This game is not easy! * THE PHARAOH 
Rule the ancient city of Alexandria' 
Buy or sell land. Keep your people from 
revolting! Stop the rampaging rats. Re- 
quires a true political personality to 
become good! * ROBOT HUNTER - A 
group of renegade robots have escaped and 
are spotted in an old ghost town on Mars' 
Your job as "Robot Hunter" is to destroy 
the pirate machines before they kill any 
more settlers! Exciting! Challenging! Full 
graphics! 



ONLY 14.95 
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HARDWARE^ TRS-80 - HARDWARE 



.,,1. ;t.i I or «9 M KT.ttM KUDO' WE. 



PACKAGE FIVE INCLUDES: SUPER 
HORSERACE - Make your bets just like 
at the real racetrack! 8 horses race in this 
spectacular graphic display! Up to 9 
people can play! Uses real odds but has 
that element of chance you see in real life' 
Keeps track of everyone's winnings and 
losses. This is one of the few computer 
simulations that can actually get a room of 
people cheering! * MAZE MOUSE — The 
mouse with a mind! The computer 
generates random mazes of whatever size 
you specify, then searches for a way out! 
The second time, he'll always go fastest 
route! A true display of artificial intelli- 
gence' Full graphics, mazes & mouses! * 
AMOEBA KILLER — You command a 
one man submarine that has been 
shrunken to the size of bacteria in this 
excitmq graphic adventure! Injected into 
the president's bloodstream, your mission 
is to destroy the deadly amoeba infection 
ravaging his body! * LOGIC — This 
popular game is based on Mastermind but 
utilizes tactics that make it more exciting 
and challenging — has 2 levels of play to 
make it fun for everyone. * SUBMARIN- 
ER Shoot torpedoes at the enemy ships 
to get points. Fast action graphics, arcade 
type game is exciting and fun for 
everybody! 



ONLY 14.95 



MICRO 
SPEED 

Upgrade your "slow" TRS-80 to a 
SUPER FAST MACHINE!! (2.66 
MHZ) over 50% FASTER! Some of 
the features: 

Auto turn-off during cassette or 
disk access. (This means NO lost 
programs EVER!) (Turns back on 
automatically too!) MANUAL con- 
trol. (Unit may be turned on or off 
at any time. Yes even during 
program execution!) Keyboard 
indicator light "blinks" when mi- 
cro-speed is on. Stops blinking 
when off! Don't wait for SARGON 
II or any other program!!! Comes 
with easy to follow instructions. 
(Some soldering required.) OR take 
to your local computer store or 
TV-Appliance Center for quick 
installation. (5-10 minutes!!) Works 
with any model, TRS-80. 

ONLY 29.95 complete 



MICRO 
BEEP 

Simple hook up: Just plug cassette 
remote )ack into unit. 



EASILY CONTROLLED FROM 
BASIC: 

OUT 255,4 = on 
OUT 255,0 = off 

MICRO-BEEP make games more 
fun as well as provide useful sound 
output for professional applica- 
tions! 

Works with Any Model I TRS-80 




PACKAGE SEVEN INCLUDES: BACK- 
GAMMON 5.0 — 2 different skill levels 
make this game a challenge to average or 
advanced players FAST (15 second avg) 
Looks for best possible move to beat you! 
FANTASTIC GRAPHICS. Plays doubles 
and uses international rules * SPEED 
READING — Increases your reading 
speed. Also checks for comprehension of 
material. Great for teenagers and adults to 
improve reading skills * pt 109 — Drop 
depth charges on moving subs. Lower 
depths get higher points in this fast action 
graphics game. * VAHTZEE — Play Yaht- 
zee with the computer. This popular game 
is even more fun and challenging against a 
TRS-80! * WALL STREET — Can you 
turn your $50. 000 into a million dollars' 
That's the object of this great game 
Simulates an actual stock market! 

ONLY 14.95 



PACKAGE SIX INCLUDES: 20 HOME 
FINANCIAL PROGRAMS Figures am- 
ortization, annuities, description rates, 
interest tables, earned interest on savings 
and much, much more. These programs 
will get used again and again. A must for 
the conscientious, inflation minded per- 



sor 



ONLY 15.95 complete 



ONLY 14.95 
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Exceptional Products through Research & Imagination 
Send Check, Money Order or Bank Card No. orders to: 



SIMUTEK 
P.O. Box 13687 
Tucson, AZ 85732 



FREE Postage and Handling 



Call Toll Free 
Master (800)528-1149 

Charge (C.O.D.$3extra) 

Same Day Shipment on Bank Cards, 
Money Orders & C.O.D. 

All Tape Programs Require a Minimum of 16K Level 2 

Packages Available on Diskette (32K System) $4.25 Extra 

3 or More Packages Get 10% Discount 

Dealer Inquiries Invited 
TRS 80 IS A REGISTERED TRADEMARK OF TANDY CORP. 



Visa 



^ Reader Service — see page 274 
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S^Kff ^.PRODUCTS ■ TRS-80* 




MALL 
YSTEM 



NEW! 



WHISTLER: HONE CONTROLLER INTERFACE - 134.9;. Ilti hardware product That 
controls lights, anoliane»s, coaouter oerioherals, darkroom tia*rs and oth*r 
115 volt d»»ic*s an/«ih*r* in your house! Software controlled by cassette 
caBle. Use with Sears or BSR Mo»e Control Systea with ultrasonic option. 
Assembled, tested, self-contained, and includes Basic software. 

T«s-M RISK I OTHER MYSTERIES - S22.95, H.C. Pennington. Best disk book 
we've seen' Directory secrets, file formats, daaagrd disk recovery, etc. 

LEARNING LEVEL II - 115.95, 0.«. Lien. Learn Level-Z like you did Level-1, 
step by steo. S*«e author and style as Level-1 aanual. Super new book 1 

UTILITIES 

RSR-2: MACHINE LAMUACC MONITOR fOR If* TRS-SU'S - S26.95 
a.SM-20: THREE VERSIONS Of RSM-Z FOR RISK SYSTEMS - 29.95 
tSM-2 RELXATOR: PUT RSM-2/20 ANYWRERE IN MEMORY - 9.95 

Hachine Language aomtors with ISO d l sasscabl er ! HEI and ASCII aaaory 
duaps; EDIT, MOVE, EXCHANGE, VERIFY, FILL, ZERO, TEST, or SEARCH aeaorj., 
read/write SYSTEM tapes, enter BREAKPOINTS, PRINT with TRS232 or Centronics, 
read/write disk sectors directly' RSM-2 tape loads at top of 16* LEVEL I or 
II; RSH-20 disk includes 5 versions for 16K, J2K and *8x. 

RCV-1: CONVERT SYSTEN PROGRAMS TO RISC FILES -S9.95. E.ecute Adventure, 
Air Raid, RSL-1, ESP-1, T-BUG, etc. froa disk, even if they interfere with 
TRSOOS! New version works with TRSDOS 2. J. 

BASIC-IP: LIV€L-1 BASIC MITH PRINTING! - S19.95. Run any LEVEL-I BASIC 
Drograa on your 16*. Level-2. PLUS LPRINT and LLIST with our TRS252 or 
Centronics, furnished on tape; can be used froa disk. 

MACHINE LANGUAGE GAMES 

Alt IAIR, BMMICAM or RSL-1: - 110.00 each, all 3 for S2S.00 



AIR RAID: • super shooting gallery; our 
■issile launcher shoots high speed aircra 



st popular gaae. Ground bas 
! Hours of fun! 



MRRICARE: "BREAKOUT" for the TRS-80! Break through 5 walls with 
high-speed ball and keyboard controlled paddle! 96 different options! 

RSL-1: Enter patterns with repeating keyboard! Save pattern! on tape (A 
furnished). Play John Conway's LIFE. FAST - about 1 second per generation! 



MODELII TRS-80" 

CP/M" VERSION 2.0 FOR THE MODCL-II - S1 70.00. Latest version froa Digital 
Research. Runs both single and double density disks! "Standard" version 
runs nearly any CP/M software, including Cobol, Fortran, C -Basic, M-Basic, 
business and accounting packages, etc. Hundreds of progress available 1 

RSMII: ENHANCED RSN MONITOR FOR THE MCHXLII - SJ9.95. Relocatable version 
of RSM-2D plus screen editor for aodifying either «e»ory or disk sectors in 
both He< and ASCII, split screen scrolling, and formatted serial or parallel 
printing. Sold on self-booting disk; directions to save as TRSDOS file. 

PROFESSIONAL SOFTWARE 

THE ELECTRIC PENCIL FOR TMC TRS-00: TAK-B99.95, 0ISK-S1 50.00. Popular 

video editor for creating and saving tent files. Prints formatted copy with 

right justification, page titling t numbering, etc. Upper case only, or 
lower case with aodi f i cat ion. 16K Level-1 or 2 (tape). 

CP/N" OPERATING SYSTEM FOR THE MOOEL-I - SU5.00. The 8080/Z80 "Software 
Bus for the Model-1 TRS-80. Includes TBS232 and RS-232-C software, 
lower-case support, rtebounce, DCV-2 and other uniQue utilities. Allows use 
of aany available programs written for CP/M. 

PRINTER SUPPORT 

TRS232 PRINTER INTERFACE - S4.9.95 (S59.95 after June 30). Assembled t 
tested printer interface for RS2J2 or 20-n i I current loop printers. 
Eipansion interface not required. Print froa level-II BASIC, CP/M, 
BASIC-1P, ELECTRIC PENCIL, etc. Standard 
S2.00 for shipping. 



ette software included. Add 



SMALL SYSTEM SOFTWARE 



NEW HIT PAH. Cm 81321 



TIS232 "FOBJWlTTEt" SOFTWARE PACKAGE - 114.95. Adds page and line length 

control, printer pause, "jaart" line teraination, etc. to TRS232. 

■SK232: Adds RS-232-C capability to RSN-2/2D aonitors - S14.95 
PEN232: RS-232-C for cassette version Electric Pencil - S14.9S 
EBT232: TRS232 and RS-232-C for tape version of EDTASM - $14.95 

OTHER PIOBUCTS FOR THE TRS-00 

EJP-1: 829.95. Asseabler, Editor, Monitor (8080 aneaonics) 
LST-1: a.OO. Listing of Level-1 BASIC with soae coaaents 

"CP/M ta Digital Research, Inc. 'TRS-80 ta Tandy Corp. 

See your dealer or order direct. Calif. Residents add 6X tan 



SMALL SYSTEM SOFTWARE 



HE Will Y PAIR, CA 91320 



PRINTERS & CRT'S From Orange micro 



CENTRONICS 737 i£2S2m*) 

Word Processing Print Quality 




• 18 x 9 dot matrix; suitable for word 
processing • Underlining • proportional 
spacing • right margin justification • serif 
typeface • 50/80 CPS • 9Vi" Pin 
Feed/Friction feed • Reverse Platen • 
80/132 columns 



CENTRONIC 737-1 



(List $995) 



SCall 



EPSON MX80 




L_ 



Low-Priced 
Professional Print Quality 

• 9 x 9 dot matrix • Lower case descenders 

• 80 CPS • Bidirectional, Logic seeking • 
40, 66, 80, 132 columns per line • 64 special 
graphic characters: TRS-80 Compatible • 
Forms handling • Multi-pass printing • Ad- 
justable tractors 




TELEVIDEO CRT'S 

PRICES SLASHED! 



TVI912C 
TVI 920C 



} 



Please Call Toll Free 
Prices are too low to 
advertise 



PRINTERS 

ANACOM 150 150 CPS, wide carriage, 9 x 9 dot (List S1350) S Call 

CENTRONICS 737 Text processing dot matrix (Radio Shack LP IV) $ Call 

CENTRONICS 730 (Radio Shack Line Printer ll) 639 

BASE 2 800B graphics printer (List $699)5649 

OKIDATA MICROLINE 80 (List) $800) 599 

NEL 5530-5 letter quality. RO, parallel, tractors (List $2970)52549 

MALIBU Dot graphics, 132 Col, Letter quality 5 Call 

PAPER TIGER IDS 440 w/graphlcs & 2K buffer (List $1094) 939 

QU ME 5/45 Typewriter quality (List $2905) 2499 

INTERFACE EQUIPMENT 

APPLE II — BASE 2 parallel graphics interlace board 160 

SSM AIO BOARD Serial/Parallel interlace board (List $225) 1 99 

TRS-80 CABLES expansion interface or direct $ Call 



TOLL FREE (800) 854-8275 

CA.AL, HI (714)630-3322 



Call for FREE CATALOG 



EPSON MX80 



(List $645) 



SCall 



Phone orders WELCOME. Same day 
shipment for VISA, MASTER 
CHARGE, and AMERICAN EX- 
PRESS. Personal checks require 2 
weeks to clear Add 3% for ship- 
ping and handling. California resi- 
dents add 6%. Manufacturer's 
warranty included. Prices subject to 
revision. 




Oronge 

miCrO. Inc. 

3148 E. La Palma, Suite E 
Anaheim, CA 92806 



LA 



LC 

AVRG 



L9 



LD 



00 00 

00 00 

CALL LOOP 

CALL LOOP 

CALL LOOP 

PUSMDE 

EXX 

POPHL 

SBCDE 

JRC, LA 

EXX 

PUSH DE 

EXX 

POPHL 

SBCDE 

PUSH HL 

LD IX,(L3) 

CALL AVRG 

LD(L3).HL 

POPDE 

LD IX,(L2) 

CALL AVRG 

LD(L2).HL 

LDB.04H 

LD A.7FH 

SRLH 

RRL 

DJNZLB 

CPL 

JR NC. LC 

LDLA 

JP0A9AH 

PUSH IX 

POPHL 

LD B.03H 

SRLH 

RRL 

DJNZL6 

SBCDE 

LDA.L 

JR C.L7 

NEG 

CP04 

JRC, LB 

EX 

PUSH IX 

POPHL 

SBCDE 

RET 

EX 

LDB.03H 

SLA.L 

RRH 

DJNZL9 

RET 

EXX 

XORA 

OUTFF 

LDDEOOO0 

INC DE 

IN FFH 

AND80H 

JR Z, LD 

RET 



Sat Program Listing 3 tor description 



Stashes R2 on stack. Averages and stores R1. 



Retrieves R2. Averages and stores R2. 



Puts the smaller of R2/16 or 
127 into HL. Returns HL as the 
value of the USR(0) function. 



Averaging subroutine. 
Divides N by 16. 



N/8 -R into HL 
IF ABS<N/8 - R)>4 

THEN GOTO LB 
ELSEHL-7/8'N + R 

HL = R-8 

Same timing loop as Program Listing 3. 



Program Listing 5 



10 AD«20227:TP-16526xFORWTO115:READA:POlC£AD+I,A:NEXT: 
POKETP , 4 : POKETP+1 , 7 9 

15 DATA 215,104, 79,205,104, 79, 205, 114, 79, 213, 217,225, 23 
7 , 82 , 56 , 1 , 217 , 213 , 217 , 225 , 237 , 82 , 229 , 221 , 42 , 2 ,7 9 , 2 
05,65,7 9,34,2,7 9,209,221,42,0,7 9,205,65,7 9,34,0,7 9 
,6,4,62,127,203,60,203,29,16,250,189,48,1,111,195, 
154,10,221,229,225,6,3,203,60,203, 

20 DATA 16,250,237,82,125,48,2,237,68,254,4,48,7,235,22 
1,229,225,237,82,201,235,6,3,203,37,203,20,16,250, 
201,217,17 5,211,255,17,0,0,19,219,255,230,128,40,2 
49,201 

100 CLS:Q-256: AD-20224 

105 XM-.05:YM-.02 

110 S«USR(0) :X»PEEK(AD-MQ*PEEK(AD+1) :Y-PEEK(AD+2) *Q*PEE 
K(AD+3) 

120 PRIMT§0,S,X,Y:X-XM*X:Y-YM*Y 

125 IF X>127 THEN X-127 

126 IF Y>47 THEN Y-47 

130 RESET(X0,Y0) :SET(X,Y) :X0-X:Y0-Y 
140 GOTO 110 



Program Listing 6. Data statement 



MARK GORDON 

COMPUTERS 
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DIVISION OF MARK GORDON ASSOCIATES. INC 

P.O. Box 77, Charlestown. MA 02129 

(017)491-7505 



SORT-W 

Produced exclusively for 

Mark Gordon Computers by SBSG 

TRS-80* disk files may be sorted and merged using 
SORT-80, the general purpose, machine language, sort 
program. Written in assembly language for the Z-80 
microprocessor, it can: 

—Sort files one disk in length 

—Sort Direct Access, Sequential Access and 

Basic Sequential Access files 
— Reblock and print records 
— Recontrol files from disk 
—Be executed from DOS 
—Be inserted in the job stream 
—Allow parameter specification 

• input/output file specification 

• input/output record size 

• lower/upper record limit 

• print contents of output file 

• input/output file key specifiers 

The minimum requirement is a 32K TRS-80* Level II com- 
puter with one disk drive or a single drive Model II com- 
puter. It will operate on 35, 40 and 77 track drives, and has 
been tested on TRSDOS 2,1 , 2.2, 2.3, NEWDOS 2.1 , 3.0 and 
VTOS 3.0.1. It is compatible with most machine language 
printer drivers. Sort time is fast: for example, a 32K file will 
sort in approximately 40 seconds. $59. 

IhfoBox is the easiest-to-use information manager 
available for the TRS-80*. It's ideal for keeping track of 
notes to yourself, phone numbers, birthdays, inventories, 
bibliographies, computer programs, music tapes, and 
much more. This fast assembly language program lets you 
enter free-format data, variable length items and lets you 
look up items by specifying a string of characters or words 
that you want to find. You can also edit and delete items. 
Items entered into InfoBox can be written to and read from 
cassette and disk files. All or selected items can be printed 
on a parallel or serial printer. InfoBox occupies 3K. Specify 
cassette or disk version. $29.95 



DBUG+ 29.95 

The ultimate monitor/disassembler 

Compare the features and price of DBUQ + with other 
monitor/disassembler programs. It offers nine true, 
single-byte breakpoints, single step program execution, 
hex and decimal arithmetic including multiply and divide 
and conversions, ASCII dump that distinguishes all 256 
codes, disassembly to screen and printer in full Zilog 
mnemonics, and register set command. It also has the 
usual port I/O, hex and decimal memory dump, change, 
move, copy and exchange memory features offered by 
others. Ideal for the user who wants to experiment with 
assembly language or to write subroutines to call from 
BASIC; essential for the serious programmer. Special in- 
troductory price. 



•TRS-80 is a Tandy Corp. Trademark 
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transitions with a timing loop. 
After locating a transition, zero 
a counter; RESET the input flip- 
flop with an OUT 255,0 instruc- 
tion; and ENTER the loop. The 
loop is diagrammed in the Flow 
Chart. 

When a transition has oc- 
curred the counter has a number 
proportional to either R1 or R1 
+ R2. 

(You're half way. You'll be fin- 
ished when you store the coun- 
ter's value; re-zero the counter; 
RESET the flip-flop; and repeat 
the loop.) 

If you had R1 the first time, 
this time you'll have R1 + R2 
(and vice versa). At this point 
you have two numbers, and you 
don't even know which is which. 
The algorithm takes advantage 
of the fact that R1 + R2 is ob- 
viously larger than R1. 

Program Listing 1 is a BASIC 
form of the algorithm which es- 
tablishes the joystick's settings. 
It also PRINTs the numbers pro- 
portional to R1 and R2 and 
displays them as points on the 
screen. 

This BASIC program has one 
drawback: It's dreadfully slow. 
To use it, C1 of Fig. 2 has to be 
large. Ten microfarads is barely 
enough with 100K pots on the 
joystick. Even though it's slow, 
try it before moving on to the 
machine language version. 

Machine Language Algorithm 

Program Listing 2 automati- 
cally loads a machine language 
version of the joystick algorithm 
into memory. The program sets 
up the appropriate TRS-80 
pointer so that when you exe- 
cute the A = USR(0) function, 
you will convert the joystick set- 
tings. 

Type the listing and double 
check the DATA statement. 
Since the program's more than 
1000 times faster than the 
BASIC algorithm of Program 
Listing 1 , you'll need to make C1 
about 0.1 microfarads. 

A, the value returned by 
A = USR(0), will be proportional 
to R1. Since USR(0) returns only 
one value, we've chosen to store 
the number proportional to R2 
as a two-byte integer in loca- 
tions 20224 and 20225. 



B = PEEK(20224) + 256-PEEK(20225) 

Line 10 of Program Listing 2 
recovers R2. If you make C1 
equal to 0.1 microfarad and put 
a large resistor (200K to 500K) in 
parallel with R2, R2 will be less 
than 255. This means that the 
number proportional to R2 is 
stored entirely in 20224 and the 
much quicker B = PEEK(20224) 
will recover it for you. 

The rest of Program Listing 2 
is a demo which shows you the 
type of coding you can use to let 
the joystick move a dot all over 
your monitor. Note that you'll 
have to multiply A and B by 
scale factors to make the full 
travel of the joystick's dot com- 
parable to the screen size. You 
may have to juggle these param- 
eters a bit. 

Program Listing 3 is an as- 
sembly language listing of the 
algorithm in Z-80 mnemonics, 
accompanied by an explanation 
of each function. 

Slalom 

Program Listing 4 lets you 
play an arcade-type joystick 
game on your TRS-80. The ob- 
ject of Slalom is to ski a point 
through a series of gates which 
move down from the top of the 
screen. You move the skier 
around the screen with the joy- 
stick. Moving the joysticks for- 
ward or backward controls the 
speed of the gates. 

Since I'm more interested in 
building and interfacing periph- 
erals than in BASIC program- 
ming, I'm sure there's room for 
you to improve Slalom. 

I kind of like Slalom— not only 
because it demonstrates how to 
utilize your joystick, but also be- 
cause it demonstrates a useful 
way of interfacing a machine 
language routine with a BASIC 
program. When you run the 
game, the first thing the pro- 
gram does is to load the algor- 
ithm into memory and set up the 
USR(0) pointer. 

The DATA statement of this 
figure contains exactly the 
same algorithm as Listing 2 and 
3. When you write your own joy- 
stick games you might want to 
use lines 1 to 20 to start your 
routine. 



The Loophole Algorithm 

One problem with increasing 
the joystick's speed is that we 
end up with about one percent 
jitter in its settings. When run- 
ning Program Listing 2, this jit- 
ter causes the point to occa- 
sionally hop back and forth on 
the screen. This causes no trou- 
ble for a simple game such as 
Slalom. But it would cause prob- 
lems if you were using the joy- 
stick to do something more 
precise, such as manipulate a 
cursor. 

You can eliminate the jitter 
with an auxiliary algorithm. 
When you measure A = USR(0), 
where A is proportional to R1, 
set: 

N = 7/8-N + A 

This will make N the running 
average of the last eight values 
we measured. N will have little 
jitter. 

The drawback of this averag- 
ing technique is that you have to 
wait while N establishes its new 
value when you move the joy- 
stick and suddenly change A. 

To get around this, include a 
loophole in the software so that 
when you move the joystick, N 
will first change rapidly and 
then start averaging to produce 
low jitter values. The loophole 
algorithm is: 



IF ABS(N/8 - AK3 THEN N= 875-N+A 
ELSE N= 8- A 



Try this in the routine in 
Listing 2. You'll have to change 
line 425 to read X = XM • N before 
doing the SET(X.Y). 

The same technique can be 
used to eliminate any up and 
down jitter, too. 

If you need to eliminate the jit- 
ter and want to do it quickly, use 
the machine language algor- 
ithm of Program Listing 5. This 
algorithm reads the joystick, 
finds numbers proportional to 
R1 and R2 and averages them 
over the last eight reads. It's just 
like the BASIC coding, except 
it's much faster. 

Program Listing 6 shows a 
DATA statement which you can 



use to automatically load the 
algorithm into memory. This 
algorithm will store the value of 
N, proportional to R1, as a two- 
byte integer in locations 20224 
and 20225. Following the usual 
convention, 20224 has the least 
significant byte and 20225 has 
the most significant. 

The averaged value propor- 
tional to R2 is stored in 20226 
and 20227. In addition to storing 
the numbers, when you execute 
this algorithm with S = USR(O), S 
will be proportional to R2. 

Beyond a Single Joystick 

Fig. 3 is a circuit which lets 
you use two joysticks. The key 
trick here is to use the cassette- 
out plug to select the joystick. 
We "amplify" and invert the cas- 
sette-out signal (0V to 0.9V) with 
a transistor. 

The signal goes into select 
pin A of a 4051 analog switch. A 
zero at input A of the 4051 hooks 
up one of the 555s to the capaci- 
tor. A one on A hooks up the 
other. 

To select one joystick, you 
must issue an OUT 255,2 in- 
struction which puts zero volts 
on the cassette-out plug. To se- 
lect the other joystick, you issue 
an OUT 255,1 instruction. This 
puts 0.9V on the cassette-out 
plug. You must do this before 
calling the algorithm. You must 
also do this, consistently, within 
the algorithm. 

Games are fun, but this sys- 
tem and your imagination can 
make much more than games. 
With minor modifications you 
can also use this hardware/soft- 
ware system to make relatively 
sophisticated instruments and 
controls. ■ 
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FAST, REAL-TIME 
ACTION WITH 

SOUND 



by John Allen 

New machine language action game, with 
sound, from the author of the acclaimed 
"PINBALL!" 

You have to be fast to keep up with the ac- 
tion as you try to outscore your opponent in 
five minutes of one-on-one basketball. 
Compete against a friend or your com- 
puter. 

Steal the ball, duck around your opponent 
and slant toward the basket for a lay up! 
The graphics are based on a 3-dimensional 
depiction of a basketball court, and ball 
dribbling sounds add to the realism. It's all 
there but the cheers— so real you'll 
wonder how the ball keeps from coming 
through the screen of yourTRS-80! Dribble, 
Dribble! 



Available for Level 
$20.95 on disk. 



16K. $14.95 for tape, 




•»• 



^34 
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Software Products, Inc. 



634 North Carolina Avenue, S.E., Washington, DC. 20003 




PINBALL 



by John Allen 

Get your flipper fingers ready for action in 
this real-time, machine language game. 

Lots of sound and flashing graphics make 
this fast action game so much like the real 
thing that you'll have to remind yourself not 
to shake your TRS-80*. Choose from five 
playing speeds to match your skill — but be 
prepared for alot of practice if you ever 
hope to master the fastest speed. 

Can you beat your friends' scores? Will you 
avoid the dreaded "Bermuda Square?" Get 
PINBALL today and find out. Available for 
$14.95 on tape or $20.95 on disk. 



• TRS-80 is a trademark of Tandy Corp 

These and other popular Acorn programs 
are available now at fine computer stores. 
Ask for them. 



DEALER INQUIRIES INVITED 
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In all my dealings with software 
houses the one company 
which has always impressed me with its high 
quality service has been 

Instant Software 
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SCOTT AC 

President o 
Adventure 
and author 
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Instant Software 

Now Sells The Adventure Series* 



i) 



2) 



3) 



4) 



5) 



6) 



7) 



YOU CAN CALL 1-800-258-5473 TO ORDER THESE NEW INSTANT SOFTWARE 
OFFERINGS. OR STOP BY ONE OF OUR 300 DEALERS THROUGHOUT THE 
U.S.A. AND THE WORLD, FOR PERSONALIZED SERVICE. 



"AND 
MORE 



ADVENTURE! 

ADVENTURELAND - You wander through 

an enchanted world trying to recover the 13 

lost treasures. You'U encounter wild animals, 

magical beings, and many other perils and 

puzzles. 

TRS-80 Tape Order No.5501R 



PIRATE'S ADVENTURE - "Yo ho ho and a 
bottle of rum.... "You'll meet up with the 
pirate and his daffy bird along with many 
strange sights as you attempt to go from your 
London flat to Treasure Island. 
TRS-80 Tape Order No.5505R 



MISSION IMPOSSIBLE ADVENTURE 

Good morning, your mission is to. ...and so it 
starts. Will you be able to complete your 
mission in time? Or is the world's first 
automated nuclear reactor doomed? 
TRS-80 Tape Order No.5507R 

VOODOO CASTLE - Count Cristo has had a 
fiendish curse put on him by his enemies. 
There he lies, with you his only hope. 
TRS-80 Tape Order No.5508R 

THE COUNT • You wake up in a large brass 

bed in a castle somewhere in Transylvania. 

Who are you, what are you doing here, and 

WHY did the postman deliver a bottle of 

blood? 

TRS-80 Tape Order No. 5511 R 

STRANGE ODYSSEY - Marooned at the 
edge of the galaxy, you've stumbled on the 
ruins of an ancient alien civilization complete 
with fabulous treasures and unearthly tech- 
nologies. 
TRS-80 Tape Order No.5512R 

MYSTERY FUN HOUSE - Can you find your 
way completely through the strangest Fun 
House in existence. 
TRS-80 Tape Order No. 551 3R 



MORE* 



ALL 3 PAKS 
TRS-80 32K 
Apple 48K 



3 PAKS 



Apple 

No. 5503 AD 

TRS-80 

No.5504RD 



3 PAKS 



Apple 

NO.5509AD 
TRS-80 
NO.5510RD 



8) PYRAMID OF DOOM - An Egyptian Trea- 
sure Hunt leads you into the dark recesses of 
a recently uncovered Pyramid. 

TRS-80 Tape Order No.5516R 

9) GHOST TOWN • Explore a deserted western 
mining town in search of 13 treasures from 
rattlesnakes to runaway horses, this Adven- 
ture's got them all! 

TRS-80 Tape Order No.5517R 



3 PAKS 



Apple 

No.5514AD 
TRS-80 
No.5515RD 



STAR TREK 3.5: Get those Klingon's! The newest, most 
sophisticated Star Trek version by the Grand Master - Lance 
Micklus. The top program of it's kind available. 
TRS-80 Mod.l L.II 16K 
Order No.5518RD $19.95 Disk 
Order No.5519R $14.95 Tape 

SLAG: War gaming at it's best. Real time graphics combined with 
long range planning make this an exciting, fascinating game. 
TRS-80 Mod.l L.II 16K 
Order No.5520R $14.95 Tape 

ASTEROID: The real time, high resolution graphics game that's a 

smash hit at Arcades all over the world. Three levels of difficulty. 

Save your quarters. 

Apple 2 Disk 

Order No. 5521 AD $19.95 

KID VENTURES: #1 Little Red Riding Hood. Allows your child to 
interact with the story, learning as they go. Designed for readers and 
non readers alike. Includes sound and play along cassette tape. 
TRS-80 Mod. 1 16K 
Order No.5522R $14.95 Tape to Dusk 

GALACTIC EMPIRE: Good strategy space war game. You as 

commander of Galactica's Imperial forces, must capture and hold 

the 20 inhabited worlds of the Galactic System. 

TRS-80 Mod. 1 16K 

Order No.5523R $14.95 Tape 

Order No.5524RD $19.95 Disk 

GALACTIC TRILOGY: Special all three games of the Trilogy - 
Galactic Empire, Galactic trader, and Galactic Revolution all on one 
disk at a special savings. 
TRS-80 Mod. 1 16K 
Order No.5525RD $39.95 

ir INTERACTIVE FICTION: The computer sets the scene with a 
fictional situation. Then you become a character in the story. When 
its your turn to speak, you type in your response. The resulting 
dialogue and even the plot will depend on what you say. 

SIX MICRO STORIES:An introduction to interactive fiction. 
Involves the reader in a variety of situations from being a spy to a 
pilot in a doomed 747 and more. 
Order No.5526RD $14.95 Disk TRS-80 Mod. 1 16K 



LOCAL CALL FOR DEATH: A detective story considerably more 

challenging them the above program. 

Order No.5527RD $19.95 Disk TRS-80 Mod. 1 16K 

TWO HEADS OF THE COIN: Psychological Mystery set in the 
London of Sherlock Holmes. Most challenging of all. Will tax your 
observational and imaginitive skills. 
Order No.5528RD $19.95 Disk TRS-80 Mod. 1 16K 



Prices: All Tapes 16K . . .$14.95 
All 3 Paks Disk . . $39.95 



We Guarantee It! 

g/O Guarantee ^\; Vv J, 

OUR PROGRAMS ARE GUARANTEED 2* 

TO BE QUALITY PRODUCTS. IF NOT M 

COMPLETELY SATISFIED YOU MAY S 

RETURN THE PROGRAM WITHIN 60 3 

DAYS. A CREDIT OR REPLACEMENT JT: 

WILL Bl WILLINGLY GIVEN EOR » 

'C ANY REASON. »> 



DEALERS: 

Instant Software is offering you SUBSTANTIAL discounts when order- 
ing these top selling programs. Just call toll-free 1-800-258-5473 to place 
your order. WE SHIP RIGHT AWAY!!! Call us, if you need any further 
information. 



Instant Software 

PETERBOROUGH, NEW HAMPSHIRE 03458 603-924-7296 



UTILITY 



Speed up your I/O 

programming with this collection of subroutines and get a robot to boot! 



COMPAC 



Daniel M. Romanchik KB6NU 

4178Decoro*1 

San Diego, CA 92122 



This article is not about as- 
sembling robots. Not the 
way you think, anyway. It's all 
about how to use the assembly 
language capabilities of your 
TRS-80 more easily. 

One of the more time-con- 
suming jobs of assembly lan- 
guage programming is the I/O. 

Below is a description of a 
collection of subroutines I call 
"COMPAC ", which is short for 
"communications package". 

COMPAC, an assembly of sub- 
routines, displays a byte on the 
CRT, fetches a byte from the 
keyboard, displays a message, 
clears the CRT screen, adds 
spaces between characters, po- 
sitions the cursor anywhere on 
the screen and puts back lines 
between blocks of text. These 
routines enable you to better 
use the keyboard and CRT in 
your assembly language pro- 
grams. 

At the end of this article is the 
program which tells about "as- 



sembling" a robot on the screen, 
once the groundwork is down. 

Getting Going 

CRT, to begin, is the subrou- 
tine which displays a byte on the 
CRT screen (see Listing). To use 
this, just load the ASCII code for 
the character you want into the 
A register, and call CRT. The 
first thing we do is save the con- 
tents of the DE and IY registers 
by pushing them onto the stack, 
because we use these registers 
in CRT. If we didn't, we'd lose 
the data in the registers. 

The next instruction, CALL 
33H, jumps to a subroutine in 
the Level II ROM (CALL works 
like the GOSUB in BASIC). The 
byte in the A register is dis- 
played at the cursor, and the 
cursor incremented. Then, the 
program returns to our subrou- 
tine, and the original values of IY 
and DE are popped off the stack. 
The last instruction, RET, re- 
turns us to the main program. 

The next subroutine, KBSCAN, 
scans the keyboard. It places 
the ASCII value of the next key 
into the A register. KBSCAN re- 
turns characters in ASCII, 
doesn't give numeric values, 
and returns one character at a 
time. It requires only one in- 
struction: CALL KBSCAN. When 
KBSCAN is called, the contents 
of the DE and IY registers are 
saved as in CRT. 

A Level II routine at 002BH is 
then called and does most of the 



work. It scans the keyboard 
once, and if any of the keys are 
pressed, places the ASCII value 
of the character into the A regis- 
ter. If none are pressed, it re- 
turns a value of 00H. When fin- 
ished with the scan, execution is 
returned to KBSCAN. 

The next two instructions 
check to see if any of the keys 
are pressed. CP compares the 
value in the A register to 00H. If 
A = 00H (meaning no key was 
pressed), the Z flag is set to 1. If 
AO00H (one is pressed), the Z 
flag is reset to 0. 

The next instruction, JP 
Z.AGN, checks the condition of 
the Z flag, and jumps to the 
statement labeled AGN if the 
flag was set. This sends us back 
to the scanning routine in the 
Level II ROM. We loop over and 
over until somebody hits a key. 
If the flag is reset ( = 0) we go to 
the next instruction, which pops 
the values of DE and IY off the 
stack. This routine can be used 
to stop program execution. It 
stays in a loop until a key is 
pressed. 

The next subroutine, MES- 
AGE, displays a message. The 
programmer must first store the 
message in memory and keep 
track of it. Say we wanted to dis- 
play MY PROGRAM. Store the 
characters in the message at 
some known place in memory: 

ORG 6000H 

DEFM MY PROGRAM' 

DEFB 



We use 00H as our end-of-text 
character. To print this onto the 
CRT requires the following 
steps: 

LD IX.600OH 

CALL MESAGE 

IX is located with the memory lo- 
cation of the first character and 
then the subroutine is called. 

The next instruction gets a 
character from memory, and 
puts it in the A register. It is com- 
pared to 0. If the value is 0. we 
are at the end of the string. If 
not, there is a character to 
display, and we call the CRT 
routine to display it. 

The next instruction, INC IX, 
increases the pointer, and JP 
AGAIN jumps to the beginning 
of the subroutine to fetch the 
next character. This time the IX 
register is pointing to the next 
character. We repeat these 
steps until we get to the "0" at 
the end of the string. 

The CLRCRT subroutine is 
used to clear the screen. First, 
we load the A register with 1CH, 
and CALL CRT as if to display 
this byte. However, when the 
CRT subroutine sees 1CH, it re- 
sets the cursor to the home po- 
sition. 1FH is then loaded into 
the A register and CRT is called. 
1FH clears the screen from the 
current position of the cursor to 
the end of the screen. This sub- 
routine requires one instruc- 
tion-CALL CLRCRT. 

Continue to 203 
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...AND YOUR MONEY. 



SAVE YOUR TIME 

Instant Software has the two best mail list programs available 
for your TRS-80 Model I and Model II. 




WRITE FOR 
OUR NEW 
CATALOG 




Mail/List for Model I and Model II 

This mailing list program maintains separate alphabetical and zip code files in constant sort. When you add a 
name to your list, it will automatically be inserted into its correct position in the files; therefore it's always 
ready to print labels! 

It will record your information in these fields: NAME, ADDRESS, CITY, STATE, ZIP, PHONE 
NUMBER. PHONE EXTENSION and a five character CODE field. You have the choice of a 3 line, 
4 line, or user defined label format. It can even include (optionally) a message line on your 
label! 

The programs most outstanding feature is its sorting capabilities. Mail/List allows 
you to choose which names you want to be printed from the whole list. For exam- 
ple, all people in one zip code, or all people named Jones, who are living in a 
particular city or state. For any name in your list you can assign a code 
within the CODE field. You can then specify the code when printing 
labels, and only names with that code will be printed out. You can 
specify up to 9 different codes! 

Every business and organization will save time and 
money with Mail/list to keep track of customers or 
members. 
TRS-80 Model I version. Order No. 5000RD $99.00. 

Requires 16K RAM. Expansion Interface 

with at least 16K RAM, one disk-drive 

and a printer. 
TRS-80 Model M version, Order 
No.5001RDS199.00. 

Requires 64K RAM and 
printer. 



One-D 

Mailing 

List 

Here is a mail- 
ing list system 
that can be run on 
only ONE disk-drive! 
You can have up to 17 
fields of selection for 
name/address retrieval. 
Disk versatility allows you 
to add, delete, or change the 
numerous details stored in the 
system. 

•Features of the One-D Mailing 

List includes: 

•Automatic name sort (alphabetically 

or by ZIP code). »Rapid access to any 

name on file. "Easy error correction and 

recovery. 'Prints selective name listings. 

• Revise or update listings at any time. "Up to 

2500 names on-line (with 4 drives). 'Prints a 

st of all names on file. "Prints mailing labels. 

This package requires the following minimum system: 

1. A TRS-80 Model I Level II microcomputer with 16K 

RAM. 2. An Expansion interface with to 32K of RAM. 3. A 

single disk drive (extra drives optional). 4. A printer. 5. Any 

TRSDOS compatible Disk Operating System. 

Order No. 0123RD $24.95. 

Instant Software 

PETERBOROUGH. N.H. 03458 
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Merry Christmas 
From Your TRS-80* * 




TRS-80* 

16K 
LEVEL II 



COMPU 
CAROLS 



FEATURING 
SOUND 




ORDER NO. 0036R $9.95 



e^ 



Here is a selection of all time Christmas favorites. These beautiful Christmas Carols will be displayed 
verse-by-verse, accompanied by clear, soft music on your TRS-80. The pretty music for each carol is played for 
your enjoyment over an AM radio, easily hooked up to your TRS-80. This lovely Christmas Album will bring 
hours of enjoyment from your Micro. The soft musical notes offer an ideal Christmas setting, seeming to blend 
perfectly with gently falling snow, as the flickering flames from the fireplace logs reflect from each glowing 
ornament on the tree. We wish you much enjoyment with Compucarols and a MERRY CHRISTMAS! 



12 OF THE BEST LOVED SONGS OF CHRISTMAS 



AWAY IN A MANGER (7) 

DECK THE HALLS (8) 

GOD REST YE MERRY GENTLEMEN (9) 

HARK! THE HERALD ANGELS SING (10) 

JINGLE BELLS (11) 

JOY TO THE WORLD (12) 



NOEL 

O COME ALL YE FAITHFUL 

O LITTLE TOWN OF BETHLEHEM 

SILENT NIGHT 

WE THREE KINGS 

WHAT CHILD IS THIS? 




Instant Software 



S2 



TO ORDER: 

1) See your local 
Instant Software 
Dealer 

OR 

2) Call toll-free 
1800-258-5473 



'A trademark of Tandy Corporation 



PETERBOROUGH, N.H. 03458 603-924-7296 




KING 



OF THE 



HILL! 



■ 



We've taken artistic license with our illustration in order to make a point: 
MYCHESS is the most powerful microcomputer chess program on the market, 
bar none. 

Proof? All you want and then some. For example, MYCHESS was the winner of 
the Fifth West Coast Computer Fair". At the "Third World Computer Chess 
Championship" in Unz. Austria, it was the highest finishing micro... in addition to 
winning the special Blitz Tournament (5 to 1 ) against six top players. Add to this its 
USCF rating of 1565, and you know you're dealing with the King of the Hill. 

You'll find MYCHESS is the perfect companion or opponent whether you're an 
advanced player, or starting your first game. For it lets you set the difficulty of the 
game from level 1 to 9. And, you can change levels of play as you go ... or even 
change sides. Want to set time limits for moves? MYCHESS can do it. Want to save 
a game for later? MYCHESS will store up to 6 games. And. for added interest, it will 
even predict the upcoming line of play. 

If you're a player, you'll appreciate the MYCHESS challenge. If you're a beginner, 
you'll enjoy learning from a master. Either way, when it comes to superior chess, 
make your move ... to MYCHESS. Available for the TRS-80* with 32K. for $34.95 
including disk, documentation and backing by Programma International. Apple** 
version coming soon. 



Can you beat 



MYCHESS 
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If you're looking 
for the best 
prices in the 

U.S.A. on 4 

TRS-80® 

MICROCOMPUTERS 

We are consistently offering the TRS-80 line at savings 
up to 20% which means you can save $150 to $1500 by 
buying directly from Computer Discount of America 

Our savings are as big on all TRS-80 systems, hardware 
accessories, and software, and. most models are in stock 
for immediate delivery (usually within 7-10 days) 

TRS-80 Model I, Model II, Model III, Pocket Computer, 
Color Computer. ATARI Model 400. and Model 8CC - 
we have them all' They are brand new, in factory- sealed 
cartons, and carry a full factory warranty. 

Our TRS-80 computers are pure Radio Shack Factory 
built — no add-on, untested memory chips from us 1 

So, if you're looking for the best prices In the U.S.A., for 

microcomputers, and 

accessories . . . CALL 

TOLL FREE: 800-526-5313 ^, 

Computer Discount of 

America. West Milford Mall 

West Milforcf, N.J. 07480 

201-728-8080. MaH 



Computer 
Discount 

of America 



or 

] 



NO TAX ON OUT OF STATE 

SHIPMENTS 



Radio /hack 
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At last... the 



Typewriter Interface! 






Turn your electric typewriter into a low cost, high 
quality hard copy printer. 1 Year Warranty 

Dynatyper-the patented ' RDI-I / O Pak is fast becoming the industry 
standard for typewriter output Why? Because: 

1 It takes 2 minutes to initially install and 5 seconds to remove or 
replace 

2 You do not have to modify your typewriter All factory warranties 
and maintenance agreements on your typewriter will be honored 

3 You can use it with all powered carriage return typewriters that 
have US keyboard Our Model I works with all non Selectrics and 
our Model II works with Selectrics. Conversion between models 
takes 2 minutes and the kit (26 plungers) is available for a nominal 
charge. 

4 You don't have to lug around a bulky printer when you travel If 
there is a typewriter at your destination, you can install the light 
(3 lbs ) I/O Pak in just 2 minutes 

5. Same interlace for TRS-80. Apple and GPIB Centronics and Pet 
compatible interfaces are available in third quarter 1980 Electric 
pencil available. 

6. Delivery. Stock to two weeks Price: $499 for the complete system 
FOB Rochester, Domestic 

Over 1000 in ooeration today VISA and MasterCard accepted Call 
Ken Yanicky at MeMJIMMt. or «me Dept M 



HI-RESOLUTION 
GRAPHICS FOR TRS-80* 




INTRODUCING: 

E/RAM 



•»•!•»• ••- I f.', ( v 468 

3100 Monroe Avenue. Rochester. New York 14618 



incorporated 



E/RAM Graphics is a unique hardware/software package which will integrate high 
speed high lesolution graphics into any Level II TRS-80 system E/RAM hardware is a 
fully plug compatible box. which installs in minutes and requires absolutely m 
modifications to the TRS-80 system E/RAM software is a compact, relocatable set of 
utilities which provides the user with easily accessible graphics functions For instance 
the user pokes the end point coordinates o< a line into certain locations, does a USR call 
and an optimized dot raster line is automatically drawn on the screen at very high speed 
(less than 10 milliseconds for a medium length line) 

E/RAM does not require the purchase of an additional monitor CRT The high-resolution 
graphics video is syncrom/ed with the TRS-80 video and appears on the screen with the 
normal TRS 80 display Alphanumencs TRS-80 graphics and E/RAM high-resolution 
graphics may be displayed simultaneously or individually 

E/RAM hardware contains its own 6144 byte video memory which provides a true 256 « 
192 matrix of Independent graphic elements lE'RAM is NOT a programmable character 
generator type graphics system Character generator systems have serious limitations 
in full screen graphics applications ) 

E/RAM will operate with or without an expansion interlace, and with any standard 
memory configuration (4k through 48k) 

E/RAM is list E/RAM is an acronym for Extended Random Access Memory, a very 
short description of the Patent-Pending method of 1/0 employed by this device, which 
gives it memory-mapped speed without interfering with the memory space used by the 
TRS-80 

The installation of E/RAM will not affect 
normal operation of the TRS-80 High 
resolution ON/OFF is under program or 
manual control (a switch is provided) An 
expansion card edge connector is provided 
so that other peripherals may be used on 
the TRS-80 bus 

E/RAM software package is compact (less than 1000 bytes), fast, easy to use. and very 
flexible A relocating loader is provided The user can delete unneeded routines if more 
memory space is required Lines can be drawn as fast as 13 per second using BASIC USR 
calls and as fast as 200 per second using assembly language programs 

Routines usable through USR of BASIC and of course an assembler CALL are 

INIT 

PLOT 

READ 

BLACK 

WHITE 

CLEAR 

LINE 




Sets up display 

Plots a point 

Reads a point from the screen 

Sets drawing mode to black (off) 

Sets drawing mode to on 

Clears the high resolution graphics screen 

Draws a line 



As an example after the utilities package is loaded and you desire to draw a line the 
following sequence of BASIC instructions could be executed 

U-USR(O) Return the communications area 

POKE U-1.X0 Provide the beginning X coordinate 

POKE U«3.Y0 Provide the beginning Y coordinate 

POKE U*5 XI Provide the ending X coordinate 

POKE U-7.Y1 Provide the ending Y coordinate 

V-USRi4i Draw the line (Current speed is 

approximately 13 vectors /second! 

The complete E/RAM package is available tor only $349 95 and includes case, power 
supply, cables, software cassette, and complete documentation 

To order, or for further details, write or call 

VERN STREET PRODUCTS •"■ 

114 West Taft 
Sapulpa. Oklahoma 74066 
Phone (918) ?24-5347 
Send S10OO lor a set ot the manuals provided (applicable towards purchase) 
Dealer inquiries are invited 

Terms COD Welcome, check money order Master Charge, or Visa 
Delivery Stock to 60 days 

E/RAM was designed and is manufactured by KEYLINE COMPUTER PRODUCTS INC 
13 East 6th Street M/C 200. Tulsa Oklahoma 74119 

* TRS 80 is a registered trademark ot Radio Shack, a Tandy Corporation 



We handle a full line 
of Radio Shack products 



»>■ Reader Service— see page 274 
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Surplus TRS-80* 
RAM Memory Chips 



DUE TO CHANGES IN PRODUCT 
STRUCTURE AMERICAN BUSINESS 
COMPUTERS IS OFFERING SEV- 
ERAL THOUSAND 200 NANOSEC- 
OND RAM MEMORY CHIPS AT 
CLOSE-OUT PRICES. 



$45 

(per 16K set) 



AMERICAN BUSINESS COMPUTERS 
GUARANTEES ALL MEMORY CHIPS 
TO BE BRAND NEW AND FREE 
FROM DEFECTS FOR 180 DAYS. 
PRICE ($45) INCLUDES 8 CHIPS. 
QUANTITY DISCOUNTS AVAIL- 
ABLE. 



AMERICAN BUSINESS COMPUTERS ^397 

♦TM TANDY CORP. 

118 S. MILL ST. - PRYOR, OK 74361 - 918-825-4844 
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THE MICRO CLINIC 



CENTRONICS 779/RS PRINTER I LOWER CASE KIT 

Don't let the newer low-priced printers with lower-case capabilities make your 
Centronics 779/Radio Shack Printer I obsolete. Our assembled and tested CLC-1 
conversion kit will give your 779 the full upper/lower case character set at a 
fraction of the cost of a new printer. Illustrated instructions make installation 
easy - just 3 connections, no etch cuts. Compare our introductory price to other 
kits selling for $125 - at $99 our CLC-1 kit brings your 779 into the 80's and makes 
word processing a practical application. 

CLC-1 INTRODUCTORY PRICE: $99 Includes P/H CA add 6% tax. 




VISA/MC include card number, signature, exp date, phone number. 
MC include interbank number. Introductory price good thru 1/31/81 . 



VISA' 



THE MICRO CLINIC • 17375 Brookhurst • Suite 114 • Fountain Valley, CA 92708 
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TRS-80 Owners: 
Turn Your Typewriter Into A Printer 

...With the KQS~80 Keyboard Actuator 

• Plug-in compatibility with the TRS-80 . . . attrac- 
tive enclosure contains actuator and interface. 

• Least expensive way to get letter quality printing. 

• No mechanical modifications to the typewriter 
are necessary. 

• Rests firmly above the typewriter keyboard. Can 
be installed or removed in 5 seconds. 

• Does not require any software to operate . . . 
works with Pencil, Scripsit and other word pro- 
cessing programs. 

• Solenoids with soft plastic tips strike typewriter 
keys with the same force a typist would exert. 

KGSl KOGYOSHA CO., LTD. 

1 79 Rlveredge Rd., Tenaf ly, N.J. 07670 (201) 569-8769 
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Dealer Inquiries Invited. 



! ! ! ANTS ! ! ! a stimulating action game $14.95 

Two colonies ot ants ere at war Opposing queen ants produca 
loui lypaa ol offspring workers, soldiers guard*, and drone* 
The challenging strategy is lo produce anls in the proper 
to sting the enemy queen or overrun it's neat 
SPECIAL FEATURES Full screen action with SOUND Hundreds of 
ants battle with machete language speed 3 game variatons 
Pan another parson or the computer mu el at 4 difficulty levels 
EAST TO PLAY. CHALLENGING TO MASTER' 




PARSECTOR V the ultimate space war $19.95 



Two opponents must navigate powerful mother ships through the 
galaiy and capture parsectors Launch fleet battle craft 
fytars cruiem and bases Fire high powered energy beams 
or deadly short range weapon spreads To win you must conquer 
the galaiy or destroy your opponents mother ship 
SPECIAL FEATURES Unique split screen gives each player a 
private video display Action Sounds and Graphics: eaplosions. 
weapon releases launches and more Variable galaiy sue 
Play another person or the computer opponent at 3 difficulty levels 
LAUNCH A COMPLETE SPACE FORCE IN MINUTES ' 



W"H SOUklp 



HIGH SPEED LIFE the fastest $9.95 

John H Conway s famous game come* lo life with full ammetio 
The taste*! most advanced version Many patterns average over 
JOO generaliona per mmuie SPECIAL FEATURES Full screen 48a 
metrii 32 preprogrammed pattern* Special pattern generator* 
Create, edit ft save your pattens on data tape Sound Single 
key function* erase save, singl* slap, delay, scroll eight way* 
SPEEDS UP TO 2000 GENERATIONS PER MINUTE I 



NAME THAT STATE QUIZ 



$14 95 



A laacneting way to learn about our SO stales It leeches the state 
shapes, names, capitals populations, areas and geographic regions 

Three type* i* queues true* false, multiple choree, and fill in i 
blank SPECIAL FEATURES Action Sounds, rewarding tune* 
harassment burner* Continuous score. Easy lo use 



TRS 80 L2 1GK for cassette t instructions 

SEND CHECK OR MONEY ORDER TO: 

Synergistic Solar Inc " 







^134 



Presents: 

TRAKCESS! 

by: Roxton Baker 

• Most powerful disk utility yet ' 

• "Smart" DUPLICA It command analyzes every track! 
(2 drives) 

• Super Pencil-type Editing! 

• Read/Write/Edit/Create— any— track or sector, standard 
or not' 

• A great tool lor learning about disk structures — includ- 
ing the formerly little documented info! 

• Fingertip control ot all disk functions on 1-4 drives. 

• Recover damaged disks Oddball tracks and sectors 
don't late it feed it TRSOOS. CPIM, protected disks, 
almost anything' 

• Use it to create special disks interactively! 

An experiment! 

An experiment to make this incredible program 
available to all: Add 1 cent lor each copy (up to 5) you 
want to make and resell lor your Iriends. We license you. 
The idea is to make TRAKCESS available to everyone who 
needs it. Appreciate this effortf Make it a success — Order 
now' S24.9S on Disk Trakcess is over 23K ot code. It re- 
quires 46K to run. Handles any number ol tracks. 

MC/V ISA/COD -Add $1.25 

Phone: 517/485-0344 

TAS, 1806 Ada, Lansing, Ml 48910 



SPACES lets you put up to 
255 spaces between characters. 
Do it this way. Load the B regis- 
ter with the number of spaces 
you want and call SPACES, as in 
the following: 

LD B.10 

CALL SPACES 

The A register is loaded with 
20H, which is the ASCII code for 
space. Call CRT which displays 
the space. The next instruction, 
DJNZ SPACES, does this: 

• Decrements the B register. 

• Checks if B equals 0. 

• If B is not equal to 0, it jumps 
to the statement labelled 
SPACES. 

• If B equals 0, it continues. 

It causes a number of loops, 
equal to the initial value of the B 
register, to be executed. 

The next subroutine, POSIT, 
positions the cursor. Load the 
BC registers with the desired po- 
sitions, and call POSIT. Try this: 

LD BC512 
CALL POSIT 

to place the cursor at position 
512. The contents of the HL reg- 
isters are saved, as in CRT. HL is 
loaded with the value 3C00H 
which is the start of the video 
RAM, or position 0. Next, add BC 
to HL. Load it into memory loca- 
tion 4020H. 4020H and 4021 H 
contain the cursor position. Re- 
store HL to its original value by 
popping its contents off the 



stack. Return to the main pro- 
gram. 
Last Step 

LINES is the last subroutine 



and places blank lines between 
text. To get started, load the B 
register with the number of lines 
to be inserted. For example, to 



place two lines between mes- 
sages, do this: 



LD 
CALL 



B.2 
LINES 











Program Listing 








00090 


.*«* BEGINNING 


OF COMPAC 


*** 


7C00 




00100 




ORG 


7C00H j 


LOAD COMPAC AT LOCATION 7C00H 






00104 


;CRT IS 


THE BYTE DISPLAY 


ROUTINE 






00105 


;A REG 


1UST CONTAIN BYTE 


TO BE DISPLAYED 


7C00 


D5 


00110 


CRT 


PUSH 


DE 




7C01 


FDE5 


00120 




PUSH 


IY 




7C03 


CD3300 


00130 




CALL 


33H | 


33H IS ENTRY POINT FOR 


7C06 


FDE1 


00140 




POP 


IY 




7C08 


Dl 


00150 




POP 


DE 




7C09 


C9 


00160 




RET 










00165 


; KB SCAN 


GETS A 


CHARACTER 


FROM THE KEYBOARD 


7C0A 


D5 


00170 


KBSCAN 


PUSH 


DE 




7C0B 


FDE5 


00180 




PUSH 


IY 




7C0D 


CD2B00 


00190 


AGN 


CALL 


2BH 


2BH IS ENTRY POINT FOR 


7C10 


B7 


00200 




OR 


A 


IF NO KEY PRESSED, 00H RETURNED 


7C11 


28FA 


00210 




JR 


Z,AGN 


IF BYTE- 00 H, SCAN AGAIN 


7C13 


FDE1 


00220 




POP 


IY 




7C15 


Dl 


00230 




POP 


DE 




7C16 


C9 


00240 




RET 




BYTE WILL BE IN A REG 






00245 


; MESAGE 


DISPLAYS A MESSAGE ON SCREEN 


7C17 


DD7E00 


00250 


MESAGE 


LD 


A, (IX) 




7C1A 


FE00 


00260 




CP 





CHECK FOR END OF STRING 


7C1C 


CA277C 


00270 




JP 


Z,RETN 


IF END OF STRING, RETURN 


7C1F 


CD007C 


00280 




CALL 


CRT 


DISPLAY BYTE 


7C22 


DD23 


00290 




INC 


IX 


INCREMENT POINTER 


7C24 


C3177C 


00300 




JP 


MESAGE 


GO BACK FOR ANOTHER BYTE 


7C27 


C9 


00310 


RETN 


RET 










00315 


j CLRCRT 


BLANKS 


THE SCREEN 


7C28 


3E1C 


00320 


CLRCRT 


LD 


A,1CH 


1CH IS SPECIAL CHARACTER - 


7C2A 


CD007C 


00330 




CALL 


CRT 




7C2D 


3E1F 


00340 




LD 


A,1FH 


1FH IS SPECIAL CHARACTER - 


7C2F 


CD007C 


00350 




CALL 


CRT 




7C32 


C9 


00360 




RET 










00365 


; SPACES 


INSERTS A NUMBER 


OF SPACES 


7C33 


3E20 


00370 


SPACES 


LD 


A,20H 


•20H IS ASCII CHAR FOR SPACE 


7C35 


CD007C 


00380 




CALL 


CRT 


•B REG CONTAINS • OF SPACES 


7C38 


10F9 


00390 




DJNZ 


SPACES 




7C3A 


C9 


00400 




RET 










00405 


; POSIT 


POSITIONS CURSOR 








00406 


;BC CONTAINS THE CURSOR 


POSITION DESIRED 


7C3B 


E5 


00410 


POSIT 


PUSH 


HL 




7C3C 


21003C 


00420 




LD 


HL,3C00H 




7C3F 


09 


00430 




ADD 


HL,BC 


Program continues 



40% 



OFF!! 
OR MORE 



BRAND NEW, TOP QUALITYJXACT REPLACEMENT RIBBONS 
FOR ALL OF THE DOT MATRIX TRS 80, & CENTRONICS PRINTERS: 

Your PRINTER RETAIL L IST Wholesale Price 

(3 PACK) 1 1 .95 PER 3 PACK 



Send order blank below & 
PAYMENT (Min. $20) TO: 



TRS-80 LINE PRINTER II 
TRS-80 LINE PRINTER III 
TRS-80 TRACTOR FEED 
CENTRONICS MODS 700-704 
CENTRONICS #730 
CENTRONICS #737 
CENTRONICS #779 



18.95.t.« 

21 .95-* Tax (IN CART 
1 8. 95+ Tax (3 PACK) 
18. 95* Tax (3 PACK) 
18.95*Tax (3 PACK) 
18. 95. Tax (3 PACK) 
18.95*Tax(3 PACK) 



12.95 PER RIBBON 
1 1 .95 PER 3 PACK 
1 1 95 PER 3 PACK 

I 1 95 PER 3 PACK 

II 95 PER 3 PACK 
11 95 PER 3 PACK 



ITEM NUmpER 
-700 

h 

"] 

" 7 

" 7 
. - I 

C-7I 



ANCIE LABORATORIES 

9202-9206 BALTIMORE BOULEVARD 
COLLEGE PARK MD 20740 

(301 ) 345-6000 
Volume Discounts: 
10%, 10-36 packs 
15%, 37-100 



MINIMUM ORDER: $20.00 No shipping charges or taxes. 

PLEASE SEND ME: 0*700, 3 RIBBON PACKS & T'3 RIBBONS. 

I WILL USE THESE RIBBONS ON A PRINTER. 

$ ENCLOSED SEND C.O.D. ( ) 



Name 

Address. 



City, State, Zip 



ANCIE LABORATORIES 9202 9206 B»lt.mof. Blvd.. Collaga P.M. MO 20740 901-345-MOO, j 




* TANDY CORP T.M 



Scanned by Ira Goldklang wwlrs-80.com 



7C40 


222040 


00440 




LD 


(4020H) 


HL 


7C43 


El 


00450 




POP 


HL 




7C44 


C9 


00460 




RET 










00465 


; LINES 


INSERTS 


A NUMBER 


OF BLANK LINES 






00466 


;BC CONTAINS THE NUMBER 


DESIRED 


7C45 


3E13 


00470 


LINES 


LD 


A,13H 


;13H IS ASCII FOR NEWLINE 


7C47 


CD007C 


00480 


NXTLIN 


CALL 


CRT 




7C4A 


10FB 


00490 




DJNZ 


NXTLIN 




7C4C 


C9 


00500 
00510 




RET 










00520 


;*** END OF COMPAC *** 








00530 














00560 


;LOAD 


4ESSAGE 


INTO MEMORY AT 7A00H 


7A00 




00570 




ORG 


7A00H 




7A00 


41 


00580 




DEFM 


*A ROBOT' 


7A07 


00 


00590 
00600 




DEFB 











00610 


;DISPLA IS USED TO DISPLA A FULL BLOCK AT THE CURSOR 


7A08 


3EBF 


00620 


DISPLA 


LD 


A.0BFH 


;0BFH IS ASCII FOR THE FULL 


7A0A 


CD007C 


00630 




CALL 


CRT 


;BLOCK GRAPHICS CHARACTER 


7A0D 


C9 


00640 
00650 




RET 










00660 


; BODY 


DISPLAYS 


ONE BODY 


SEGMENT 


7A0E 


CD087A 


00670 


BODY 


CALL 


DISPLA 




7A11 


0601 


006 80 




LD 


B,l 




7A13 


CD337C 


006 90 




CALL 


SPACES 




7A16 


0603 


00700 




LD 


B,3 




7A18 


CD087A 


00710 


TRUNK 


CALL 


DISPLA 




7A1B 


10FB 


00720 




DJNZ 


TRUNK 




7A1D 


0601 


00730 




LD 


B,l 




7A1F 


CD337C 


007 40 




CALL 


SPACES 




7A22 


CD087A 


007 50 




CALL 


DISPLA 




7A25 


C9 


00760 
00770 




RET 










00780 


;LEGS 


DISPLAYS 


ONE LEGS 


SEGMENT 


7A26 


CD087A 


007 90 


LEGS 


CALL 


DISPLA 




7A29 


0601 


00800 




LD 


B,l 




7A2B 


CD337C 


00810 




CALL 


SPACES 




7A2E 


CD087A 


00820 




CALL 


DISPLA 




7A31 


C9 


00830 
00840 




RET 










00850 


; BEGINNING OF 


MAIN PROGRAM .STARTS AT 7000H 


7000 




00860 




ORG 


7000H 




7000 


CD287C 


00870 


BEGIN 


CALL CLRCRT 


; CLEAR SCREEN 


7003 


0602 


00880 




LD 


B,2 


;SKIP TWO LINES 


7005 


CD457C 


00890 
00900 




CALL 


LINES 




7008 


061C 


00910 


MSG 


LD 


B,28 


; INSERT 28 SPACES 


700A 


CD337C 


00920 




CALL 


SPACES 


;TO CENTER MESSAGE 


700D 


DD21007A 


00930 




LD 


IX,7A00H;LOAD POINTER 


7011 


CD177C 


00940 
00950 




CALL 


MESAGE 


; DISPLAY MESSAGE 


7014 


011F02 


00960 




LD 


BC.543 


;POS CURSOR AT 543 


7017 


CD3B7C 


00970 




CALL 


POSIT 




701A 


0603 


00980 




LD 


B,3 


.•DISPLAY 3 BLOCKS FOR HEAD 


701C 


CD087A 


00990 


HEAD 


CALL 


DISPLA 




701F 


10FB 


01000 
01010 




DJNZ 


HEAD 




7021 


015D02 


01020 




LD 


BC,605 


;POS CURSOR AT 605 


7024 


CD3B7C 


01030 




CALL 


POSIT 




7027 


0607 


01040 




LD 


B,7 


; DISPLAY 7 BLOCKS FOR SHOULDERS 


7029 


CD087A 


01050 


SHOLDR 


CALL 


DISPLA 




702C 


10FB 


01060 
01070 




DJNZ 


SHOLDR 




702E 


019D02 


01080 




LD 


BC,669 


;POS CURSOR AT 669 


7031 


CD3B7C 


01090 




CALL 


POSIT 




7034 


CD0E7A 


01100 
01110 




CALL 


BODY 


; DISPLA ONE BODY SEGMENT 


7037 


01DD02 


01120 




LD 


BC,733 


;POS CURSOR AT 733 


703A 


CD3B7C 


01130 




CALL 


POSIT 




703D 


CD0E7A 


01140 
01150 




CALL 


BODY 


; DISPLA 2ND BODY SEGMENT 


7040 


011F03 


01160 




LD 


BC,799 


jPOS CURSOR AT 7 99 


7043 


CD3B7C 


01170 




CALL 


POSIT 




7046 


CD267A 


01180 
01190 




CALL 


LEGS 


; DISPLA ONE LEGS SEGMENT 


7049 


015F03 


01200 




LD 


BC.863 


;POS CURSOR AT 863 


704C 


CD3B7C 


01210 




CALL 


POSIT 




704F 


CD267A 


01220 
01230 




CALL 


LEGS 


; DISPLA 2ND LEGS SEGMENT 


7052 


CD0A7C 


01240 
01250 




CALL 


KB SCAN 


; PROGRAM STOPS TO ALLOW YOU TO 

; SEE PICTURE UNTIL YOU HIT A KEY 


7055 


CD287C 


01260 
01270 


, 


CALL 


CLRCRT 


; CLEARS SCREEN 


7058 


C3191A 


01280 
01290 


. 


JP 


1A19H 


j RETURN TO BASIC 


7000 




01300 




END 


7000H 





The A register is loaded with 
13H, the ASCII code for a new 
line, and the CRT subroutine is 
called. This causes the cursor to 
be positioned at the beginning 
of the next line. The next in- 
struction, DJNZ NXTLIN, de- 
creases the B register and re- 
peats the instruction until the 
register is zero. 

Robots 

To illustrate the subroutines, 
write a simple program (see List- 
ing). 

Now we come to the robots: 

• Skip two lines. 

• Print the title, "A ROBOT". 

• Print a picture of a robot using 
the TRS-80 graphics. 

The first thing we do is load the 
message into memory. ORG 
7A00H defines the place in 
memory and DEFM defines the 
characters we want. DEF 
places a in the next location. 
DISPLA is the first routine used 
to display one block. 191 is the 
value of its ASCII code. 

The next two routines, BODY 
and LEGS, display one body and 
one leg segment. A body seg- 
ment consists of a block, a 
space, three blocks, a space and 
another block. The leg is made 
of a block, a space and another 
block. 

The first statement of the 
main program, ORG 7000H, sets 
the place in memory where the 
program will reside. Clear the 
screen. Skip two lines by load- 
ing the B register with 2 and call- 
ing the LINES subroutine. To 
display the title, display 28 
spaces in order to center the 
message. Load the IX register 
with the starting address of the 
message and call the MESAGE 
subroutine to display A ROBOT. 
The next part is the actual dis- 
play of the robot's image! These 
statements position the cursor 
and display the appropriate 
parts of the robot. 

Then we call KBSCAN to stop 
execution, and admire the pic- 
ture we just displayed. 

The robot will stay until we hit 
a key. After this we clear the 
screen again. 

The last statement, JP1A19H, 
returns us to BASIC! 



204 • 80 Microcomputing, December 1980 



-""■'*+:.iM<Mi:.t m m 2>u * < i* 




■-.»*.■■."•■».••',••--••■' 




When PMC-80 was first 
introduced to the United States, 
the response was overwhelming! 
The Computer World was 
ASTONISHED at the QUALITY, 
as well as the PRICE In fact, the 
PMC-80 has almost all the 
features of America's best selling 
computer, the TRS-80, but with a 
price tag of $200.00 less! 
(SIMUTEK'S price is $275.00 less 
Microsoft's Levsl II Basic and 
1 6K Memory. 

Another reason for all the commotion 
is that the PMC-80 uses the same, easy to 
learn, LEVEL II BASIC language that the 
TRS-80 uses! What does this mean? It 
means that the PMC-80 can run all the 
1 OOO's of programs that have been 
written for the TRS-80 Level II. 16K 
computer! Some of the programs available 
include: Flight simulation, World Champion 
Chess program, Scores of educational and 
business programs. Word processing 
programs and hundreds of other games 
and simulations. 
The PMC-80 is expandable! 

Your PMC-80 is ready to grow with 
your needs. Using a special cable, 
available from Simutek for $35.00. it may 
be connected to Radio Shack's Expansion 
interface, to give you up to 48,000 
characters of memory, up to 4 disk drives, 
addition of a telephone communication 
system, Voice Synthesizer, various printers, 
a real time clock, as well as plotters and 
other neat interfaces! As your skills with 
the PMC-80 improve, you're sure to want 
some of the ADD-ON's described above. 
(And these are just a few!) 
Save Money! Use your own 
television! 

The PMC-80 has a built in RF 
MODULATOR so you can use your black 
and white or color TV for a VIDEO 
MONITOR! A simple hook-up to your 
television's antenna connector, makes 
channel 3 your computer's video channel. 
Special Introductory Offer: 
25 Free Programs 

SIMUTEK, a leading innovator in Home 
Computer Software, is making a 
SPECTACULAR INTRODUCTORY OFFER 

^ Reader Service -see page 274 




Comparison Chart 


Features 


PMC-eo 


TRS-80 


Microsoft's Fantastic 






Level II Basic 


Yes 


Yes 


Full 128 x 48 Graphics 


Yes 


Yes 


16.000 characters memory 


Yes 


Yes 


Tape recorder (or storing 






Of retrieving programs 


Yes 


Yes 


Use your own TV (Save $$) 


Yes 


No 


Expandable to 48.000 






characters of 






in computer memory 


Yes . 


Yes 


Use TRS-80 






expansion interlace 


Yes 


Yes 


Expandable to 4 floppy 






disk drives 






(over 100.000 characters of 






storage on each one 1 ) 


Yes 


Yes 


Telephone Communications 






available connect to large 






computers/electronic mail etc Yes 


Yes 


1000 s of ready made pro- 






grams availble for 






educational' and "scientific 






applications? 


Yes 


Yes 


Printers available 


Yes 




High Speed Z80 CPU 


Yes 


Yes 


interlace available for 






controlling lights and 






appliances in home 


Yes 




R«t«iiPrlc* 


$645.00 


SS49.O0 



to people that ORDER the PMC-80 NOW. 
With each purchase, we will give 25 FREE 
HOME COMPUTER PROGRAMS! Some of 
these include: Home Amortization tables 
program, Loan payment programs, 
Depreciation rate program, Interest table 
program. Annuity and Investment 
calculation programs as well as these 
great animated games: GRAPHIC-TREK 
2000: Command the Enterprise!, INVASION 
WORG . Stop the invading marauders from 
space before they take over earth! You 
command Earth's forces of androids, 
space fighters, laser guns etc.. against the 
enemy's robots, saucers, proton 



destroyers, etc!, STAR WARS: Fly 
your space fighter into the Death 
Star to destroy it! But watch out, 
Darth Vader doesn't like you!. 
SPACE TARGET: A fantastic ani- 
mated arcade game of skill and 
daring!. SAUCERS: Can you win 
win the coveted Medal of Honor? 
Here's what you get: 
The PMC-80 microcomputer with 
16,000 characters of "In Computer 
Memory", Microsoft's Level II Basic (built 
into the computer), a cassette player for 
storing or retrieving programs or data 
(cassette player is built into the computer!), 
an RF Modulator for connecting the 
PMC-80 to your television set, 25 FREE 
programs so you start using your computer 
immediately, complete instruction manual, 
learning manual and owners manual so 
you can begin writing your own programs 
right away! 

Best of all, you have the chance to use 
the PMC-80 in your own home before 
making your final commitment! Keep it for 
two weeks, if. for any reason you decide 
not to become a PMC-80 owner simply 
send it back, (in new condition please), 
and we will promptly refund the full 
amount, including your delivery charge! 
Time is of the essence. Please order 
now, as this price can only be guaranteed 
through December 25. 1980. 

Order Now Save $76.00 

^•■■™~ — ~~~~™~~ — ~~" 

Credit card holders may use our 
TOLL FREE NUMBER. Or send check 
for $569.00 plus $6.00 delivery. 
(Arizona residents add $23.80 state 
tax). Please mention this magazine. 
(No tax on out of state orders). 

Call Toll Free 
800-528-1149 

In Arizona call 602-886-5880 Collect 
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9881 E. Skyview Drive 
Tucson. AZ 8571 

TRS-80 is a registered trademark ol Radio Shack, a Tandy Corp 
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INTRODUCING THE HOTTEST "FIX-IT' BOOK YET! 



"TRS-80 DISK AA T D OTHER MYSTERIES"^ 

by Harvard C Pennington Jr 

Here u is THF. complete 'disk reference manual"' for your TRS-80 ' 

An excellent manual and tutor for beginners and professionals alike 

REVEALS ALL, IN EVERYDAY PLAIN ENGLISH 

How to recover LOST FILES, HASH CODES, KILLED FILES, 

CLOBBERED DIRECTORIES, BAD PARITY ERRORS. GAT & HIT ERRORS, 

UNREADABLE DIRECTORIES, DIRECT STATEMENT IN FILE ERRORS. 

ELECTRIC PENCIL ERRORS & LOST PENCIL FILES. 

RECOVER ELECTRICALLY OR PHYSICALLY DAMAGED DISKS. 

RECOVER FROM A DOS ERROR 22 IN PENCIL. MAKE BASIC PROGRAMS UNLISTABLE. 

RECOVER OVER-WRITTEN FILES. READ OR EDIT ANY BASIC PROGRAM WITH ELECTRIC PENCIL. 

REMOVE PROTECT STATUS, HOW TO USE SUPERZAP 

And the list goes on and on. 




Here :s what the noted microcomputer author, WILLIAM BARDEN. JR. 

has to say about this valuable manual' 

this extensive book by Harv Pennington is clearly presented 

and packed with good disk information My advice to any TRS-80 user is to 

GET IT. AND USE IT !" 



'LARGE 8V2 BY 11 EASY-TO-READ FORMAT. OVER 130 PAGES" 

Send just $22.50 (Calil. add 6% tax) plus $1.00 postage to 



TRS-80 is a Trademark ot TANDY CORP 

ORDER TODAY! 



SEE YOUR FAVORITE 
COMPUTER STORE 
OR ORDER DIRECT 



IJG, INCORPORATED 
569 North Mountain Ave — Suite B 

Upland, California 91768 
(Sorry, no COD'S on this special ofterl 



VOLUME DISCOUNTS AVAIL. 

DEALERS — RETAILERS 

BOOK STORES 

Make inquiries on your letterhead 
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In the beginning your computer, was to'make life 

easy. Then you found that you had to become a 
programmer to make your computer do the tasks you 
want it to do. 

Now, you can relax! The CREATOR is here. This 
program will create BASIC, error free program text for 
you. All you need to do is answer the questions The 
Creator even checks for errors. 

Gil . 1JG COMPUTER SERVICES 



The Creator will generate reports, perform calculations, 
and even interface with other program routines. No 
need to become a professional computer programmer. 
The Creator, under your command, will create custom 
programs for you. 

The CREATOR is available on disk for the TRS-80 
model One and Two. Also available for the Apple II 
and CP/M. Complete with an easy to read, well 
documented bound manual. 



Di^k- drive Extender Cables 




FITS ALL MIOT-DISK DRIVES 

VISTA • MICROPOL1S • MT1 • PERTEC 
SHUGART • PERCOM • AND OTHERS 

May alio be used to interface the R,S Mod II printer out-port to a 
standard Centronics cable connector — eliminates the need tor a 
special printer cable. 



GOLD PLATED 
CONTACTS 



34 PIN MALE 
CONNECTOR 



FULL 9 INCH 

COMPLETE ASSEMBLY 

THROUGHLY TESTED 



28 GAGE. 34 CONDUCTOR 

STRANDED COMPUTER GRADE 

FLAT RIBBON CABLE 



2 PIECE HIGH IMPACT 
MOLDED PLASTIC 



GET ONE FOR EACH DRIVE 



END THE HASSLE ! 

ELIMINATES SHORT CIRCUITS FROM 

* PINCHED AND WORN CABLES 

ELIMINATES FUMBLING OR DROPPING 

* A DRIVE WHILE MOVING THEM 



ELIMINATES DISASSEMBLY OF DRIVES 
TO REMOVE A DRIVE FROM THE SYSTEM 
ELIMINATES TANGLED, TWISTED 
KINKED ANO WORN SYSTEM CABLES 

ELIMINATES DISASSEMBLY OF DRIVE 
CABINETS TO INSTALL CABLES 

ELIMINATE THE HEADACHES . . . 
GET ONE FOR EACH DRIVE UNIT 




$16.95 

EACH 
PITS LOCAL TAZB8 

Sllll'I'IMi & IIAMM.INt 



2 PIECE HIGH IMPACT, 
MOLDED PLASTIC 



GOLD PLATED 
CONTACTS 



34 PIN FEMALE 
CONNECTOR 



EASY TO INSTALL: 

Remove drive cover: snoont cable; 
replace cover DONE ! 



□ 



□ 



♦ IJG COMPUTER SERVICES 

569 NORTH MOUNTAIN AVE. • SUITE B 
UPLAND. CALIFORNIA 91786 USA 



80 Microcomputing, December 1980 • 207 



GENERAL 



Wow! Automatic 

activation for the Shack's line printer, with software control wo less. 



Turn-On 



Dr. J. H. Nestor 
39114 Rt. 303 
Grafton, OH 44044 



After using the Radio Shack 
Tractor Feed Line Printer 
with my TRS-80 for about two 
months, I came to two conclu- 
sions: It is a reasonable ma- 



chine for personal and small 
business use; but something 
had to be done about that 
damned on/off switch! 

Centronics, who manufac- 
tures the printer as their model 
779, saw fit, for some perverted 
reason, to employ both a power 
switch and a print switch. The 
print switch controls the printer 
electronics, and is conveniently 
located on the front panel with 
an LED indicator. 

Supposedly, this switch is 
turned on only when actually 
printing. However, since there is 
little current drawn, most users 



CPU CASS£TT£ PORT 
(OH CPU BOARD ) 



TTr 



2 59 
T4LW75 



I . -v i - 





CASSETTE I/O 



Fig. 1. Cassette Port on CPU Board 



"RINTtR CONTROL CIRCUIT 



IN KEYBOARD 




JI|SUBMINIATU«E) 



r. lr 




SUBMINIATURE 

PLUG ON 
CASSETTE CABLE 



Fig. 2. Printer Control Circuit 
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leave this switch in the on posi- 
tion all the time. 

The power switch, which con- 
trols the motors, cooling fan, 
and AC to the printer, is located 
on the back panel, where it is dif- 
ficult to reach. 

No Noisier than Most 

So, why not just turn on the 
printer when you bring up the 
computer? Those who would 
ask this type of question have 
never heard this printer in opera- 
tion. Actually, it is no noisier 
than most while it's printing. 

But try to concentrate on your 
programming with the machine 
idling. The constant whirring, 



buzzing, growling and slapping 
of drive belts is guaranteed to 
drive you to distraction in min- 
utes. 

Now you quip, "Big Deal! Just 
reach over and turn it off!" 

Dear friend, unless your arms 
are seven feet long, you can't 
reach that switch. Even if the 
printer is sitting on the same ta- 
ble with the TRS-80 you still 
can't reach the switch without 
getting out of the chair and lean- 
ing over the back. Too much like 
work! 

Let me digress for a moment 
to touch on my philosophy of mi- 
crocomputing. For years, I have 
watched with fascination as TV 



10 CLS: PRINT 

20 PRINT-DEMONSTRATION OF PRINTER CONTROL" 

30 PRINT 

40 INPUT-WHICH CASSETTE PORT ARE YOU USING (1 OR 2)"jA 

50 IF A-2 THEN POKE 14308,1 

60 PRINT: PRINT'THE PRINTER WILL START NOW 

70 OUT 255,4:FOR X-l TO 200:NEXT 

80 LPRINT'THIS IS A DEMONSTRATION OF TRS-80 SOFTWARE FO 

R" 
90 LPRINT"ON/OFF CONTROL OF THE LINE PRINTER." 
100 LPRINT'THE PRINTER WILL STOP h THERE WILL BE A DELA 

Y" 

110 LPRI NT" STARTING NOW" 

120 OUT 255,0 

194 PRINT'THERE WILL BE A DELAY. . .PLEASE WAIT* 

140 FOR X-l TO 5000 

150 NEXT X 

160 PRINT: PRINT "NOW RESUME PRINTING " 

170 OUT 255,4:FOR X-l TO 200:NEXT 

180 LPRINT'THE PRINTER IS ON ONCE AGAIN. THIS CONCLUDES 

190 LPRINT'THE DEMONSTRATION. YOU SHOULD BE ABLE TO SEE 

HOW" 
200 LPRINT'THE COMMANDS CAN BE INCLUDED IN ANY BASIC PR 

OGRAM." 
210 OUT 255,0 
220 PRINT: PRINT "END OF PRINTER ON/OFF CONTROL DEMONSTRA 

TION" 
230 END 



DONE 



Program Listing 1. Demonstration Program 




[^-.INTEGRATED * 
(oK eyplus UTILITY 
^^ PACKAGE 

Disk Keyplus is a powerful multi-purpose utility for your TRS-80 Resigned 
for case of use. routines tan he enabled or disabled in |ust two key strokes. 

Disk Keyplus supports auto repeat, lowercase video software, restoration of 
lost BASK programs, single key stroke user definable strings. BASIC short 
hand, direct graphic character input, lowercase without shift and more' 

Disk based utilities include a routine that generates an user defined string at 
power up or at the stroke of two keys More flexible than the IX)S ALTO com 
mand. Disk Keyplus will execute any combination of commands or programs 
automatically 

Another routine allows users to initialise Disk Keyplus with any combination 
of utilities enabled or disabled 

Disk Keyplus is compatible with either TRSDOS or NEWDOS. A cassette 
with Kith the 32K and 48K versions is available for only $19 95 Non disk Key 
plus (Lv. 2. I6K) without the disk based utilities, but with keyboard debounce. 
loads in just 20 seconds and is available for $14.95. Pa. residents add 6". sales 
tax. 

SJW,INC. fe 

P.O. BOX 438 
HUNTINGDON VALLEY, 

PA 19006 
215-947-2057 

^244 

TRS-80 is a registered trademark of TANDY CORP. 





Have computer, will travel. 

Executive Computer System Carrying Cases. 

• Makes your microcomputer truly portable. 

• Protects your equipment locking latches limit access 

• Rugged black vinyl with metal corners outside 

• Protective foam rubber, black velveteen covered, inside 

• Computer can be operated without removing from case. 

• And cases are custom designed for full systems. 



Apple* Executive Case holds 

• Apple microcomputer 

• 9" Sanyo monitor. 

• 2 disk drives 

• Power strip. 

• 2 boxes diskettes. 

• Manuals. 

• Dimensions 28"x 2l"x 10', 

• Weight; 17 pounds. 

• Price: S179 

Terms FOB Los Angeles Master Charge. Visa or check 
with order Allow 3-4 weeks for delivery. 

•Registered. Apple Computers. Inc. 
"Registered Trademark. Tandy Corporation. 

COMPUTER TEXTile 

10960 Wilshire Blvd. Suite 1.50-1 
Loa Angeles. CA 90024 



TRS-80" Executive Case holds 

• TRS-80 Microcomputer 

• Expansion interface. 

• 2 disk drives 

• Power strip. 

• 2 boxes diskettes. 

• Manuals. 

• Dimensions: 28"x 2114 "x 8S 

• Weight: 17 pounds. 

• Price $179 



••390 



(2131477-2196 



V f htthf S»rvic»—s— page 274 
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J1 


submmiature phone jack 




Radio Snack #274-251 


K2 


DPOT Relay 




Radio Shack #275-206 


P2 


AC socket grounded type 


Misc. 3 conductor line card & plug 




mini-box, etc. 




Parts List 



and movies have shown how 
computers are used in their 
world. "Turn on the vectored 
whatsits." "Zoom in on that 
monster." "Disarm those mis- 
siles." "Blast 'em!" 

Amazing! Those guys are 
controlling motors, reading me- 
ters, and launching missiles 
from that terminal. They don't 
have to get up and turn on any 
printers, so, why should I? 

To achieve my goal of com- 
plete keyboard control, I have 
spent countless hours solder- 
ing, drilling and stringing wires 
so that, now, I don't have to 
leave the keyboard for anything 
but a beer (and I'm working on 
that). 

My TRS-80 dials the phone, 
turns on the lights and sends 
Morse code on my amateur ra- 
dio rig— all without any extra 
switches. Now, I can even con- 
trol my printer, and I've decided 
to share the secret with you. 

Relay Control 

My approach is simple. I leave 
the power and print switches on 
and control the AC to the printer 
with a relay. The TRS-80 con- 
trols the relay via software com- 



mands. 

The first secret lies in the use 
of the cassette relay as a con- 
trol. The cassette motor is con- 
trolled by a small relay which is 
driven by a latched output port 
in the CPU keyboard unit (Fig. 1). 

The relay is small, so don't get 
any ideas about switching 
heavy loads with it. But, you can 
use it to control another heavier 
load relay. That is how my sys- 
tem works. 

Fig. 2 is a schematic of my cir- 
cuit, using a Radio Shack relay 
#275-206. It is rated to switch 
three amps at 120 volts AC; the 
coil is 12 volts DC at 50 milli- 
amps. This load is well within 
the limits of the relay in the 
TRS-80. 

This isn't a construction arti- 
cle, as such, so I'll leave the de- 
tails to you. Wiring is strictly 
non-critical. I stole 12 volts of 
DC from another source, but you 
could add a small DC supply for 
the relay. A different relay can, 
of course, be substituted so 
long as it will handle about two 
and a half amps, and the coil 
doesn't draw more than one-half 
amp. Of course, the less current 
through the CPU relay the bet- 
ter. My relay is housed in a cabi- 
net but this, too, is non-critical. 

If you have an expansion in- 
terface, there is another relay in 
that unit. It is a 4PDT switch 
used to select either of two cas- 
sette machines. The CPU relay 
turns on the cassette motor, 
while the interface relay decides 
which cassette port will be ac- 



C4SSETTE 
POKT • I 




IB CLS 

20 PRINT 

36 PRINT'PRINTER STATUS CHECK" 

40 B-PEEKU4312) 

50 PRINT 

60 PRINT"THE VALUE AT ADDRESS 14312 IS ";B 

70 IF B<>127 THEN 120 

75 PRINT 

80 PRINT'THE PRINTER IS OUT OF PAPER" 

90 PRINT" INSERT SOME MORE PAPER, THEN PRESS ENTER"; 

100 INPUT AS 

110 GOTO 10 

120 PRINT:PRINT"THERE IS PAPER IN THE PRINTER..." 

130 IF B>127 THEN PRINT'BUT THERE IS STILL SOMETHING WR 
ONG": PRINT "SHUT DOWN THE SYSTEM AND CHECK 

THINGS OUT": END 

140 IF B<127 THEN PRINT'AND ALL SYSTEMS ARE READY TO PR 
INT" 

150 END 



Program Listing 2. Printer Status Check 



Fig. 3. Expansion Interface Cassette Ports 



tivated. Fig. 3 shows how this 
system operates. 

If you are not using a cassette 
recorder with your TRS-80, you 
can connect your relay to cas- 
sette port 1. 

If you still use a cassette ma- 
chine occasionally, you can 
connect the cassette to port 1 
and the printer relay to port 2. 

Software Commands 

I hate to disappoint some of 
you, but the software is also 
simple. The commands OUT 
255,4 turn on the printer and 
OUT 255,0 turn it off. 

These commands can be in- 
cluded as part of a BASIC pro- 
gram. OUT 255,4 is issued just 
before the first LPRINT state- 
ment, and OUT 255,0 is used af- 
ter the last LPRINT operation. 

The OUT 255,4 statement 
latches the relay on until the 
program ends and READY ap- 
pears, or until an OUT 255,0 is 
executed. 

If you wish to control the 
printer from cassette port 2, an 
additional bit of software is 
needed. Memory location 14308 
decimal contains the cassette 
port selection code. On power- 
up this value is set to 0. This ac- 
tivates cassette port 1. A POKE 
14308,1 command tranters con- 
trol to port 2. 

You can perform this step at 
the beginning of a program or 
any time before the first LPRINT 
statement. It is only needed 
once in the program. However, if 
the program uses the cassette 
system for any other purpose, a 



POKE 14308,0 must be used to 
restore normal cassette opera- 
tion. This includes CSAVE, 
CLOAD, PRINT #, and INPUT # 
statements. 

Both the POKE 14308,(1 or 0) 
and the OUT 255,(4 or 0) can also 
be issued in the command 
mode. For example, if you want 
to LLIST a program, typing 
POKE 14308,1 :OUT 255,4 and 
pressing the ENTER key will 
turn on the printer and print the 
program listing. OUT 255,0 is not 
needed, since the system re- 
turns to READY after the list is 
printed. Of course, if your relay 
is connected to cassette port 1, 
the POKE 14308,1 is not re- 
quired. 

If you want to get fancy, some 
additional software features are 
available to you. When the print- 
er electronics are turned on a 
status signal is sent to the print- 
er port in the expansion inter- 
face. It indicates whether or not 
the printer is turned on, and if it 
is out of paper. This printer stat- 
us value is found in memory lo- 
cation 14312 decimal. 

By PEEKing into that address, 
we can determine if the printer is 
ready to run. A value of 127 indi- 
cates that the printer is out of 
paper. If this is the case, a mes- 
sage can be printed on the 
screen, and the program inter- 
rupted. 

A value of <127 signals that 
the printer is ready to run. You 
may want to play around with 
different uses for this printer 
status information. I'll leave it 
up to you. ■ 
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779 UPPER CASE/lower case 
"Conversion Kit l" 

Expand the capabilities of your 779 line printer to 
include word processing!! Available to all Centronics 
779 and TRS 80 Printer I owners is the option of lower 
case and changing slash Zero to standard 0. No etch 
cuts or soldering needed, installs in minutes with a 
screwdriver. No program modification or additional 
interface is required. Price $125.00 

UPPER/LOWER CASE NOW AVAILABLE FOR THE FOLLOWING 

CENTRONICS PRINTERS: 

101 AL, 102BL, 306, 500, 501, 503, 700, 701, 702, 703, 780, 781. 

Motor control "conversion kit ir 

FOR ALL CENTRONICS 779 & TRS 80 PRINTER I LINE PRINTERS!! 

Our Conversion Kit ir Motor Controller gives your 779 
the ability to turn the motor on and off automatically. 
Removes the annoying noise of constant run, 
increasing the life span of your 779 and TRS 80 line 
printer motor! No soldering, software or hardware 
changes needed, installs easily. Price $95.00 

save! Buy Service Technologies "Conversion Kit I" 
and "Conversion Kit II" together for the single price 
of $199.00 

To order, please send check or money order in the 
proper amount to: r cj- . . q 

CJeroice Jechnoloaiea, J/nc. 

32 Nightingale Rd. 

Nashua, N.H. 03062 "»' 

(603) 883-5369 
Visa and Master Charge accepted (please include signature, 
expiration date and phone numben. 





1 . BUSINESS PROGRAM PACKAGE 

13 Business programs (e.g., capital budgeting, cash- 
management, ratio analysis, debt management). These pro- 
grams will be very useful to the business manager. (Price $200) 

2. PROCUREMENT PROGRAM 

Ascertains purchase amount when future price of commodity 
is varying. A must for all managers who have purchasing 
responsibilities. This program takes into consideration inven- 
tory levels, inventory capacity, and financial carrying cost in 
determining the optimal amount of an item to purchase when 
future prices are varying. (Price iiM) 

3. PROFORMA CASH-BUDGET 

PROGRAM 

Allows the user to project the cash-balances for up to twelve 
periods in the future. Amount of loan, if needed, is computed as 
well as computing funds available for short-term investment. 
(Price $125) 

4. LEASE-PURCHASE PROGRAM 

Evaluates the lease vs. purchase decision incorporating all the 
latest tax laws including the investment tax credit and ac- 
celerated depreciation. This program gives the user all the in- 
formation necessary to make this decision. (Price $50) 

5. COLLEGE ENROLLMENT 
PROJECTION PROGRAM 

Forecasts the enrollment for colleges using several different 
statistical techniques. User can specify the number of periods 
for which a forecast is desired. (Price $IOO] 

Extensive Documentation With Each Program 
All programs on disk and require at least 32K of memo ry. 

Write or call for a brochure which describes the product in 
greater detail 

MOO Bnttany Drive * 1006 St Petersburg. Florida 
813 864 43*7 




THE BOOK 

ACCESSING THE TRS-80* ROM 




If you ever do 
Assembly 
language 
programming, 
or you just want 
to know more 
about your 
TRS-80 ROM, 
"THEB00K" 
is for you. 



Volume I will give you access to over fifty ma- 
chine language subroutines in the Radio Shack 
Level II BASIC. It includes information on the nu- 
meric data formats and a commented listing of the 
ROM routines. 

"THE B00K, Volume I", encompasses all arith- 
metic functions and mathematical operations. 
There are separate routines for integers, single 
precision, and double precision numbers and the 
data format for each of these number types is 
explained. The routines that perform ASCII to bin- 
ary and binary to ASCII conversion are identified 
and explained to provide you a means of data I/O. 

A fully commented listing provides the details on 
the step-by-step execution of these ROM rou- 
tines. Although a complete disassembly is not 
provided in order to avoid copyright infringement, 
you can obtain a complete disassembly using the 
disassembler program listed in "THE B0<2JK." 
Volume I also includes a complete, detailed mem- 
ory map of the entire machine and a symbol table 
noting over 500 addresses. 

"THE B00K" will save you hour upon hour of 
assembler program development time. Don't start 
programming without it. 

Order your copy of "THE B00K", today! 



DEALER INQUIRIES INVITED 



Insiders Software Consultants, Inc. 
P.O. Box 2441, Dept. M1 
Springfield, VA 22152 ^305 

□ Please send me Volume I of THE B00K 
at $1 4.95 plus $1 .50 for postage. 



•TRS-80 I* • trademark ot 
Tandy Corp. 



CITY. STATE 



4 ZIP CODE 



D Check payable to Insiders Software Consultants, Inc. 

D MASTER CHARGE MC Bank Code: 

D VISA Exp. Date: Card Number: 



Signature: 



^ Reader Service— sae page 274 
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SOFTWARE 



Using EDTASM to enhance itself. 



Assemble It Yourself 



Richard Koch 
2740 Washington St. 
Eugene, OR 97405 



Radio Shack sells an excel- 
lent editor/assembler for 
the TRS-80. Unfortunately, this 
assembler makes extensive use 
of the cassette recorder. 

A typical assembly program- 
ming session goes something 
like this: 

Load the EDTASM tape. Write 
a program. Record the program 
on a second cassette tape. 
Record the corresponding 
machine language code on a 
third tape. Return to BASIC and 
run this system tape. 

It doesn't work? 

Reload the EDTASM tape. 
Reload the tape containing the 
program. Continue. 

If you're like me, you couldn't 
wait to get hold of a disk system 
and throw the cassette recorder 
away. But without modification 
the assembler will not work with 
a disk. In fact, it can't even be 
loaded on a disk because it re- 
sides in the same area of mem- 
ory used by DOS. 

I am going to describe a new 
version of the editor/assembler. 
The original assembler can be 
used in bootstrap fashion to cre- 
ate this new version. Programs 



written on the modified assem- 
bler can be run without using 
the cassette or disk at all. Once 
written, programs can be saved 
on disk. 

Additional commands con- 
vert the editor into a word pro- 
cessing system. This new edi- 
tor/assembler requires at least 
32K of memory. 



Modifying EDTASM 

Assume for a moment that 
the modification has been 
made. Enter the new assembler 
from the disk by typing EDTASM 
(ENTER). After a short pause, 
the words "TRS-80 EDITOR-AS- 
SEMBLER 2.1" (or 2.2) will be 
printed on the screen. This new 
version has all the original com- 
mands. Refer to the instruction 
book for an explanation of them. 

Several small modifications 
have been made. First of all, the 
command B returns control to 
DOS instead of BASIC. A key- 
board debounce routine has 
been added. The text buffer is 
restricted to memory slots 
5CF9-7FFF (or 5CF0-7FFF for 
version 1.2), which is the stan- 
dard buffer for machines with 
16K. 

The function of the up arrow 
has been changed to display the 
previous page of text. The down 
arrow now prints the next line of 
text without an intervening star 
and makes it possible to go 
through the text line by line. The 
CLEAR key works. 

A lowercase driver is avail- 



able for readers who have added 
lowercase hardware. The printer 
routine has the ability to pause 
after each page. The BREAK key 
now works during printing. An 
optional serial printer driver is 
included. 

There are also additional 
commands which will be conve- 
nient to discuss in groups. 

Easier AL Programming 

The assembler has two new 
commands designed to make 
assembly language program- 
ming easier: 



MO Method Zero. 
M1 Method One. 



The command M1 changes 
the method of text entry. Sup- 
pose we wish to enter the follow- 
ing: 

LINE LD A,B ;COMMENT HERE 

To do so, type LINE and press 
the space bar. The computer will 
tab to the next position. Type LD 
and press the space bar. Again 
the computer will tab to the fol- 
lowing position. Type A,B and 
press spacebar. This time the 
computer will tab to the com- 
ment column and enter the 
semicolon comment prompt. 

Now type the comment as 
usual. The space bar will no 
longer tab; instead it will resume 
its usual function. If an entire 
line is to be a comment, type ";" 
and the space bar will never act 
as a tab. 



In this keyboard mode, back- 
spacing past a tab can lead to 
unpredictable results. If a mis- 
take in an earlier column is to be 
corrected, erase the entire line 
and start over or use EDIT. 

The command MO returns the 
editor to the original keyboard 
entry mode. When the system 
powers up, it will be in entry 
mode one. 

No Tapes, No Disks 

The assembler has four new 
commands which allow imme- 
diate execution of assembly 
language programs without us- 
ing the cassette or the disk: 

AM Assemble Into Memory. 
PEEK Examine Memory. 
POKE Modify Memory. 
J Jump. 

Suppose the text buffer con- 
tains an assembly language pro- 
gram. The command AM works, 
essentially, like the usual AS- 
SEMBLE. The computer prints 
an assembled version of the pro- 
gram on the screen and then 
types MOVE CODE? When the 
space bar is pressed, the ma- 
chine language program will be 
entered into the computer in- 
stead of being loaded on tape. 

This program must occupy 
memory in the range AOOO-BFFF 
hex. Otherwise the computer 
will print MEMORY TOO LOW or 
MEMORY TOO HIGH and return 
to the assembler prompt.(Read- 
ers with 48K may change this 
range to AOOO-FFFF.) 

The J command is used to 
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transfer control to a machine 
language program created by 
AM. Thus, J A98C causes the 
computer to jump to location 
A98C (hex) and begin execution 
at that position. This command 
requires that the address be 
given in hex. The hex number 
should be four digits long and 
should not be followed by H. 
Thus, J 3C45, J BC1 1 , and J 3542 
are all correct as written. 

A program that is to be exe- 
cuted by J should end with the 
instruction RET. This will return 
the assembler prompt * when 
the program is finished; the text 
buffer will remain intact. 

The editor/assembler main- 
tains a stack which can be used 
by the machine language pro- 
gram. Of course, if the machine 
program initializes another 
stack, the command RET will 
not return control to the as- 
sembler. In that case the pro- 
gram should end with the com- 
mand JP 8F01 H to return control 
to the editor/assembler. Initial- 
izing the stack is among the first 
things it does. 

Programs executed with J 
may use BASIC ROM routines. A 
few users will want to use ED- 
TASM routines instead. They 
should use JU (thus JU A2AD) in- 
stead of J and end programs 
which modify the stack pointer 
with JP46DAH. 

If it is necessary to examine 
and modify memory, PEEK and 
POKE are used. Both of these 
commands are written for hex 



numbers. Thus PEEK 4D23 will 
cause the computer to print the 
contents of 4D23, and these 
contents will be printed in hex. 
Similarly, POKE 4D23.3E will 
enter the hex number 3E in mem- 
ory location 4D23. 

Disk Data Storage 

The assembler has three com- 
mands designed to allow 
storage of data on the disk: 

X Move Text to High Memory 

Y Move Text from High 

Memory. 
AM + &&&& Assemble into Memory Plus 

&&&&. 

X moves the text buffer into 
memory locations 9CF0-BFFF. 
It also prints a message of the 
form (START = X'9CF0\END = 
XA9CE) on the screen. Using 
this command, it is possible to 
load the text buffer onto disk as 
follows: 

Enter X. Copy the displayed 
information about START and 
END on a piece of paper be- 
cause the next step clears the 
screen. Enter B. You will find 
yourself in DOS mode. Enter: 



DUMP FILENAME/CIM (START = X'TCFO', 
END = XA9CET 



Naturally, the end statement 
varies from text to text. 

At this point, you can return to 
the assembler with the text buf- 
fer intact. To do so, type ED- 
TASM (ENTER) Y (ENTER). 

Y moves the text buffer from 
locations 9CF0-BFFF down into 
the assembler. It is used to load 



text files from the disk into the 
assembler. To load such a file, 
return to DOS mode and enter 
LOAD FILENAME, EDTASM and 
Y. 

Machine language programs 
are prepared for entry to the disk 
using the command AM. Sup- 
pose the text buffer contains an 
assembly language program 
which will be located some- 
where between A000 and BFFF. 
Enter the corresponding ma- 
chine code into the computer 
using AM. Return to DOS via the 
B command. Load the machine 
code onto the disk using a com- 
mand similar to: 

DUMP FILE/CMD (START = XA02E.END = 
XA02E,END = XB13C',TRA = XA111T 

Occasionally you will want to 
write code which will not occupy 
memory in the interval 
A000-BFFF. The command 
AM + is used for this purpose. 
AM+ 3C11, for instance, works 
just like AM except that the hex 
number 3C11 is added to each 
memory address before it is en- 
tered into the computer. 

Suppose you want to write 
machine code starting at 7500. 
(All addresses here are in hex 
form.) This address is safely 
above the DOS addresses, but it 
is within the EDTASM area. 
Write the assembly code as 
usual. Enter the comand AM + 
2B10. (Notice that 2B10 is A010 
minus 7500.) Write the following 
program and assemble it into 
memory: 



ORG 0A000H 
LD HL.0A010H 
ID DE,7500H 

LD BC, Number ol Bytes in Program 
LDIR 

JP 

Finally, enter the command J 
AOOO. The disk will turn on for a 
moment and you will find your- 
self in DOS mode with the ma- 
chine language program in its 
intended position. Save it on 
disk as usual. 

Word Processing 

Finally, the assembler has 
two commands designed to 
convert the editor into a primi- 
tive word processing system. 
The word processing com- 
mands are: 



M2 Method Two 
TYPE Print Text 



The command M2 provides 
yet another method of entering 
text into the computer. With this 
method text can be entered con- 
tinuously without the ENTER 
key. The computer will auto- 
matically issue line feeds at ap- 
propriate spots. Line feeds will 
occur between words when pos- 
sible, but occasionally the com- 
puter will break a word in the 
middle. 

M2 makes one other change. 
Shifted letters are not accepted 
under keyboard entry methods 
zero and one unless you add the 
lowercase modification. But 
shifted letters are accepted 
under method two. Such letters 









Program Listing 1. EDTASM 1 




00100 


. 


INSTRUCTIONS: Enter DOS. Turn on DEBUG and use the M-command to 




00110 


i 


enter the code below. Return to DOS, turn off DEBUG, and issue the 




00120 


• 


command BASIC2. Answer MEMORY SIZE with RETURN. Issue the SYSTEM 




00130 


; 


command. Respond to the prompt with EDTASM and load the EDTASM 




00140 


; 


tape. Respond to the second prompt with /40960. You will 




00150 


; 


automatically return to DOS. Enter 




00160 


; 


DUMP EDTASM1/CIM (START-X '7000 * , END=X ' 8A00 ' ) . 




00170 


; 






00180 


; 






00190 


; 


TEMPORARY CODE TO PUT EDTASM ON DISK 




00200 


; 






00210 


i 




AOOO 


00220 




ORG 0A000H 


AOOO F3 


00230 




DI 


A001 210043 


00240 




LD HL,4300H 


A004 110070 


00250 




LD DE,7000H 


A007 01001A 


00260 




LD BC,1A00H 


A00A EDB0 


00270 




LDIR 


A00C C30000 


00280 




JP 0000 


0000 


00290 




END 


00000 TOTAL 


ERRORS 
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will be displayed on the screen 
as ordinary capital letters, of 
course. We will see their signifi- 
cance shortly. 

M2 affects all entry from the 
keyboard, including responses 
to the assembler prompt. This 
will make no difference unless 
you are in the habit of shifting 



letters at random. A shifted let- 
ter looks the same on the 
screen, but means something 
different to the computer. Con- 
vert back to the original key- 
board entry method with MO if 
you run into trouble. 

The TYPE command works 
essentially like the editor/as- 



sembler command T; it outputs 
the text buffer to the printer. 

The text in the buffer can be 
created by any of the keyboard 
entry methods, but from now on 
I will assume that text is entered 
with M2. 

Text that will be printed first 
enters an internal buffer. When 



this buffer has enough text to fill 
a line, the computer searches 
backward from the end until it 
comes to a space. All characters 
before the space are printed and 
the remaining characters are 
placed at the beginning of the 
buffer for the next line. 

continues to page ?3S 







00100 






00110 






00120 






00130 






00140 






00150 






00160 






00170 






00180 






00190 






00200 






00210 






00220 






00230 






00240 






00250 


8AO0 




00260 


8A00 


F3 


00270 


8A01 


210070 


00280 


8A04 


110043 


00290 


SAO 7 


01001A 


00300 


8A0A 


EDB0 


00310 


8A0C 


C3 8A46 


00320 
00330 
00340 
00350 
00360 
00370 


8A0F 


E5 


00380 


8A10 


D5 


00390 


8 All 


C5 


00400 


8A12 


F5 


00410 


8A13 


47 


00420 


8A14 


3A1B8B 


00430 


8A17 


FE00 


00440 


8A19 


2838 


00450 


8A1B 


FE01 


00460 


8 AID 


283F 


00470 


8A1F 


FE02 


00480 


8A21 


2840 


00490 


8A23 


FE03 


00500 


8A25 


283C 


00510 


8A27 


FE04 


00520 


8A29 


2838 


00530 


8A2B 


FE05 


00540 


8A2D 


2834 


00550 


8A2F 


FE06 


00560 


8A31 


2830 


00570 


8A3 3 


FE07 


00580 


8 A3 5 


282C 


00590 


8 A3 7 


FE08 


00600 


8 A3 9 


2831 


00610 


8A3B 


FE09 


00620 


8A3D 


2848 


00630 


8A3F 


FE0A 


00640 


8A41 


284A 


00650 


8A43 


FE0B 


00660 


8A45 


2850 


00670 


8A47 


FE0C 


00680 


8A49 


CAEE8A 


00690 


8A4C 


FE0D 


00700 


8A4E 


CA098B 


00710 


8A51 


1814 


00720 


8A53 


78 


00730 


8A54 


FE00 


00740 


8A56 


280F 


00750 



Program Listing 2. EDTASM 2 

; INSTRUCTIONS: Enter DOS. Load EDTASMl . Turn on DEBUG and enter 
; the code below using the M-command. Return to DOS, turn off DEBUG, 
; and enter DUMP EDTASM2/CMD (START=X ' 7000 ' , END=X ' 8B30 ' ,TRA=X ' 8A00 ' ) . 
; There is an alternate way to do this. Using the unmodified 
; EDTASM, assemble the code below and output it to cassette tape. 
; Enter DOS and load EDTASMl. Enter BASIC and load the system tape 
; just created. Return to DOS and dump EDTASM2 as before. 

You may test the result by running EDTASM2. It has a smaller 
than normal edit buffer and its cassette operations have been 
temporarily disabled, but it will assemble code directly into 
memory when you hit ENTER after the prompt READY CASSETTE. 



CODE TO RELOCATE EDTASM IN CORRECT POSITION 



ORG 


8A00H 


DI 




LD 


HL,7000H 


LD 


DE,4300H 


LD 


BC,1A00H 


LDIR 




JP 


468AH 



; Relocate EDTASM and run 



CODE TO INTERCEPT TAPE OUTPUT AND ASSEMBLE DIRECTLY INTO MEMORY 



ASSEM 



ZERO 



PUSH 


HL 


PUSH 


DE 


PUSH 


BC 


PUSH 


AF 


LD 


B,A 


LD 


A, (ADD+2) 


CP 





JR 


Z,ZERO 


CP 


1 


JR 


Z,ONE 


CP 


2 


JR 


Z,TWO 


CP 


3 


JR 


Z,TWO 


CP 


4 


JR 


Z,TWO 


CP 


5 


JR 


Z,TWO 


CP 


6 


JR 


Z,TWO 


CP 


7 


JR 


Z,TWO 


CP 


8 


JR 


Z, EIGHT 


CP 


9 


JR 


Z,NINE 


CP 


10 


JR 


Z,TEN 


CP 


11 


JR 


Z,ELE 


CP 


12 


JP 


Z,TWE 


CP 


13 


JP 


Z,THI 


JR 


END 


LD 


A,B 


CP 





JR 


Z,END 



;Begin assembling code into memory 



;Current output byte 

;Determine position in assembly cycle 



; Leader and sync byte 
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THE FIRST TRS-80® COMPATIBLE COMPUTER 
WITH HIGH DENSITY COLOR GRAPHICS ! 




LNW80 



LNW RESEARCH introduces the LNW80. a high performance color computer, com 
patible with the TRS-80™ Model I The fully integrated LNW80 is a sophisticated and 
versatile microcomputer with the following powerful features. 

COMPATIBILITY 

Hardware and software compatible to the Radio ShacK TRS-80™ Model I computer, 
provides the widest software base of any microcomputer Cassette interface; expan- 
sion bus. 

DISPLAY 

Quality upper and lower case display 

Two modes of color graphics, high resolution graphics. 384 x 192 in eight colors- 
higher density than the Apple II." Low density color graphics of 128 x 192 are also 
available in eight colors 

High resolution — black and white graphics— of 384x192 mixed with text and 
TRS-80™ standard graphics 
Reverse video, composite video RF output 

PERFORMANCE 

The LNW80 utilizes the fast Z-80A microprocessor which executes at a speed of 4 
MHZ — over twice the speed of the TRS-80™ Model I 



PC BOARD 



$89.95 



EXTERNAL DATA SEPARATOR 



N 



W 



LNW 
RESEARCH 



Ask about Our : Keyboard 
cootnat 

^53 



•14.95 

SOME SOLDERING REQUIRED 



VKMO 100-M 



LNW RESEARCH 3183-E AIRWAY AVE COSTA MESA CA 92626 714-552-8946 



OROERMQ INFORMATION 



SYSTEM 
EXPANSION 
&£.q ,s r fc, °* , ° * l 

^Q^7 luSftMANUAlJ 

. SKIAL «SIJJC 30mA I O 

• Fiorrr comtoun 

• !>K B1IIS MIMOIT 

• PAIAUIL PIINTEI PORT 

• DUAL CASSiTTE FOtl 

• IIAI TIME CLOCK 

• SCIEEN NINTH BUS 
ONSOAID POWf » JUFf IT 
SOfTWAII COMPATIBLE 
SOI DTK MASK. SILK SC1MN 




TRS-80* — CONDENSE 

Tbi ultlmtt In BASIC 
Coaprassion Utilities fe. 

*' Riliiu 1.3 Now Aviilibli " ^P 



for the TRS-80 from Micro -Mega 



Write BASIC programs using single statement lines for ease 
ot maintenance. 

Write BASIC programs with unlimited remarks and comments 
to improve program readability and documentation. ... 

— AND STILL GET — 
OPTIMUM USE OF MEMORY — FASTER PROGRAM 
EXECUTION 

Compresses programs up to 70% of original size 

Improves execution time by as much as 30% 

Creates multiple-statement program lines 

Blank compression 

Remark and comment deletion 

Renumbers GOTO. GOSUB. THEN. ELSE, and RESUME 

statements which reference deleted line numbers 

PLUS THESE NEW USER REQUESTED OPTIONS 

- Retention of low numbered remark statements 

- Checkpoint / Restart Facilities 

- Phase 1 work file 



Maial I $21.95 

(Diskette) 



Modal II $24.95 

(Diskette) 



INTERNATIONAL SOFTWARE ASSOCIATES 

P.O. Bax 14805 

Omaha. Na. 68124 



^187 



The Original GREEN-SCREEN 




The eye-pleasing Green-Screen fits over the front of your 
TRS-80 Video Display and gives you improved contrast with 
reduced glare. You get bright luminous green characters and 
graphics like those featured by more expensive CRT units. 

Don't confuse the Original Green-Screen with a piece of thin 
film stuck to the face of your video tube, such as that adver- 
tised by others. The Original Green-Screen is mounted in a full 
frame perfectly matched to the color and texture of the 
TRS-80 Video Display. It is attached with adhesive strips 
which do not mar your unit in any way. 

The full frame design of the Original Green-Screen "squares 
off" the face of your video display and greatly improves the 
overall appearance of your system. 

THE GREEN-SCREEN $73.95 

Add $1.00 for postage and handling. 



Terms: Check or money order, no CODs or credit cards, please. Add amount 
shown lor postage and handling to price ol the item. All items shipped within 48 
hours by tirsl class or priority mail. Virginia residents, add 4% sales tax. 
S29 



Tandy Corporation" 



^ Reader Service—see page 274 



Micro -IN/lega • P.O. Box 6265 • Arlington, Va 222Q6 
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8A58 


FEA5 


00760 




CP 


0A5H 


8A5A 


2019 


00770 




JR 


NZ , ERR 


8A5C 


1805 


00780 




JR 


TWO 


8A5E 


78 


00790 


ONE 


LD 


A,B 


8A5F 


FE55 


00800 




CP 


55H 


8A61 


2012 


00810 




JR 


NZ,ERR 


8A63 


211B8B 


00820 


TWO 


LD 


HL,ADD+2 


8A66 


34 


00830 




INC 


(HL) 


8A67 


Fl 


00840 


END 


POP 


AF 


8A6 8 


CI 


00850 




POP 


BC 


8A69 


Dl 


00860 




POP 


DE 


8A6A 


El 


00870 




POP 


HL 


8A6B 


C9 


00880 




RET 




8A6C 


78 


00890 


EIGHT 


LD 


A,B 


8A6D 


FE3C 


00900 




CP 


3CH 


8A6F 


28F2 


00910 




JR 


Z,TWO 


8A71 


FE78 


00920 




CP 


78H 


8A73 


280B 


00930 




JR 


Z , DONE 


8A75 


217B8A 


00940 


ERR 


LD 


HL,ERRO 


8A7 8 


C32B47 


00950 




JP 


472BH 


8A7B 




00960 


ERRO 


EQU 


$ 


8A7B 


45 


00970 




DEFB 


•E' 


8A7C 


52 


00980 




DEFB 


'R' 


8A7D 


52 


00990 




DEFB 


'R' 


8A7E 


4F 


01000 




DEFB 


•O' 


8A7F 


D2 


01010 




DEFB 


0D2H 


8A80 


211B8B 


01020 


DONE 


LD 


HL,ADD+2 


8A83 


360E 


01030 




LD 


(HL) ,14 


8A85 


18E0 


01040 




JR 


END 


8A87 


211F8B 


01050 


NINE 


LD 


HL,ADD+6 


8A8A 


70 


01060 




LD 


(HL) ,B 


8A8B 


18D6 


01070 




JR 


TWO 


8A8D 


211C8B 


01080 


TEN 


LD 


HL, ADD+3 


8A90 


78 


01090 




LD 


A,B 


8A91 


77 


01100 




LD 


(HL) ,A 


8A92 


23 


OHIO 




INC 


HL 


8A93 


23 


01120 




INC 


HL 


8A94 


77 


01130 




LD 


(HL) ,A 


8A95 


18CC 


01140 




JR 


TWO 


8A97 


211D8B 


01150 


ELE 


LD 


HL, ADD+4 


8A9A 


70 


01160 




LD 


(HL) ,B 


8A9B 


23 


01170 




INC 


HL 


8A9C 


7E 


01180 




LD 


A, (HL) 


8A9D 


80 


01190 




ADD 


A,B 


8A9E 


77 


01200 




LD 


(HL) ,A 


8A9F 


21198B 


01210 




LD 


HL,ADD 


8AA2 


5E 


01220 




LD 


E, (HL) 


8AA3 


23 


01230 




INC 


HL 


8AA4 


56 


01240 




LD 


D, (HL) 


8AA5 


3A1D8B 


01250 




LD 


A, (ADD+4) 


8AA8 


67 


01260 




LD 


H,A 


8AA9 


3A1C8B 


01270 




LD 


A, (ADD+3) 


8AAC 


6F 


01280 




LD 


L,A 


8AAD 


19 


01290 




ADD 


HL,DE 


8AAE 


221C8B 


01300 




LD 


(ADD+3) ,H 


8AB1 


18B0 


01310 




JR 


TWO 


8AB3 


7C 


01320 




LD 


A,H 


8AB4 


FEAO 


01330 




CP 


0A0H 


8AB6 


380D 


01340 




JR 


C,ERR2 


8AB8 


FEBF 


01350 




CP 


0BFH 


8 ABA 


3 8A7 


01360 




JR 


C,TWO 


8ABC 


200D 


01370 




JR 


NZ , ERR3 


8ABE 


7D 


01380 




LD 


A,L 


8ABF 


FE80 


01390 




CP 


80H 


8AC1 


3008 


01400 




JR 


NC,ERR3 


8 AC 3 


189E 


01410 


OKI 


JR 


TWO 


8AC5 


21D18A 


01420 


ERR2 


LD 


HL,ERR02 


8 AC 8 


C32B47 


01430 




JP 


472BH 


8ACB 


21DF8A 


01440 


ERR3 


LD 


HL,ERR03 


8ACE 


C32B47 


01450 




JP 


472BH 


8AD1 




01460 


ERR02 


EQU 


$ 


8AD1 


4D 


01470 




DEFB 


•M 1 


8AD2 


45 


01480 




DEFB 


•E' 


8AD3 


4D 


01490 




DEFB 


•M' 


8AD4 


4F 


01500 




DEFB 


'O' 


8AD5 


52 


01510 




DEFB 


'R' 


8AD6 


59 


01520 




DEFB 


lyl 


8AD7 


20 


01530 




DEFB 


■ i 


8AD8 


54 


01540 




DEFB 


I m I 


8AD9 


4F 


01550 




DEFB 


'0' 


8 ADA 


4F 


01560 




DEFB 


•0' 


8ADB 


20 


01570 




DEFB 


1 1 


8ADC 


4C 


01580 




DEFB 


•L' 



; Start byte 

;Name of tape 

;Return to assembly routine 

.•Beginning of code 

;or end of tape 

;Print error message and end 



; Ignore remaining output 
;Number of code bytes to follow 
;Low byte of code address 



;High byte of code address 



;Temporarily allow assembly anywhere 



Program continues 
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NEWDOS/80 

A 



DOUBLE-ZAP/II 



^ Unleash your NEWDOS/80 S power into double density! 
Double-Zap is a disk program which zaps NEWDOS/80 11 for double density operation when used 
in conjunction with the PERCOM DOUBLED 

Double-Zap will completely zap on a one or two drive diskette, it will run single and double density, 
mix and match. 

After Double-Zap has run, you will get an extra 64,000 + bytes on the original diskette including the 
original programs from NEWDOS/80* 

Double-Zap will read any single density TRSDOS* NEWDOS* or VTOS files and convert them to 
double density. Double-Zap is the ONLY double density conversion for NEWDOS/80* authorized by 
PERCOM DATA to be used with the PERCOM DOUBLER^. Requires 32k RAM . 

Double-Zap — runs double density only — $29.95 

Double-Zap II — runs single & double density — $49.95 



£lS0-£6t' (M£) :sjapjo auoqj 100SI sex^l 'uoiiiojjp^ 
'9auq u!P|jaqujeq3 (,£91 "Jig aieM^os 




Software Etc . . . 1839 Chamberlain Drive, 

Carrol Hon, Texas 75007. Phone Orders: (214) 492-0515. 



S6'6H — Aijsuap ajqnop >y a|8u;s sum — || dez-a|qnoQ 

£6'6£$ — ^|uo A);suap d|qnop sunj — dcz-ajqnoQ 

" WVH Ml saimbaji sHlflnba WODH3d 3 m MH M P 3sn 3 9 °l VIVO WODy3d 
Aq pazuoqjne u Q-p SOIA JO J uojsj9auod Ajjsuap ajqnop A1NO 8u ,l s ! dez-a|qnoo vtysuap G|qnop 
oi iuau,i JJ9AUOD pue sd|M, SOIA J0 »SOQM3N sSOGSMl Ajjsuap ajSms Aue pea.; ||jm de2~ a l c l no O 

sO'fr SOIA uJOJj sujpj8ojd |euj8uo 
3L|4 Suipnpuj ajia^sjp |Cuj8uo oqj uo sajAq + 000'fr9 BJjxa ue }a8 jjjm noA 'urn seq dez-o|qnoQ Jajjv 

•qDjew put? xiw 'Ajisuap 
aiqnop pue a|8ujs urn ||jm h 'luajsAs >jsjp aAup-oM] e uo fj> SOIA dez A|aja|diuoD ||jm de7-a|qnoa 

kvaianoa woD»3d ^mj 

qjjM pasn uauM uoijejodo Ajjsuap ajqnop joj s 0'fr SOIA sdez ipjq/w tuejSojd >jsjp e sj dez-a|qnoa 

jAjjsuap ajqnop ojm jaMod g o'fr SOIA JnoA ijsea|upi 



ii/dvz-nanoa 



0't SOIA 



^ Rtader SmM-IM pag» 274 
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8 ADD 


4F 


01590 




DEFB 


'O' 




8ADE 


D7 


01600 




DEFB 


0D7H 




8ADF 




01610 


SRR03 


EQU 


$ 




8ADP 


4D 


01620 




DEFB 


'M' 




i 8AE0 


45 


01630 




DEFB 


'E' 




8AE1 


4D 


01640 




DEFB 


'M' 




8AE2 


4F 


01650 




DEFB 


'O' 




i 8AE3 


52 


01660 




DEFB 


'R' 




8AE4 


59 


01670 




DEFB 


lyl 




8AE5 


20 


01680 




DEFB 


1 ■ 




8AE6 


54 


01690 




DEFB 


1 m 1 




8AE7 


4F 


01700 




DEFB 


'O' 




8AE8 


4F 


01710 




DEFB 


'O' 




8AE9 


20 


01720 




DEFB 


1 1 




8AEA 


48 


01730 




DEFB 


'H' 




8AEB 


49 


01740 




DEFB 


'I' 




8AEC 


47 


01750 




DEFB 


•G' 




8AED 


C8 


01760 




DEFB 


0C8H 




8AEE 


78 


01770 TWE 


LD 


A,B 


; Actual code 


8AEF 


2A1C8B 


01780 




LD 


HL, (ADD+3) 




8AF2 


77 


01790 




LD 


(HL) ,A 




8AF3 


23 


01800 




INC 


HL 




8AF4 


221C8B 


01810 




LD 


(ADD+3) ,HL 




8AF7 


211E8B 


01820 




LD 


HL, ADD+5 




8AFA 


46 


01830 




LD 


B, (HL) 




8APB 


80 


01840 




ADD 


A,B 




8AFC 


77 


01850 




LD 


(HL) ,A 




8AFD 


23 


01860 




INC 


HL 




8AFE 


7E 


01870 




LD 


A,(HL) 




8AFF 


3D 


01880 




DEC 


A 




8B00 


CA63 8A 


01890 




JP 


Z,TWO 




8B03 


321F8B 


01900 




LD 


(ADD+6) ,A 




8B06 


C3678A 


01910 




JP 


END 




! 8B09 


78 


01920 THI 


LD 


A,B 


; Check sum 


8B0A 


211E8B 


01930 




LD 


HL, ADD+5 




8B0D 


BE 


01940 




CP 


(HL) 




8B0E 


C2758A 


01950 




JP 


NZ,ERR 




8B11 


3E08 


01960 




LD 


A, 8 




8B13 


321B8B 


01970 




LD 


(ADD+2) ,A 




8B16 


C3678A 


01980 




JP 


END 




1 8B19 




01990 ADD 


EQU 


$ 




8B19 


00 


02000 




DEFB 





;Low byte of addition to memory 


8B1A 


00 


02010 




DEFB 





;High byte of addition to memory 


8B1B 


00 


02020 




DEFB 





.•Position in assembly cycle 


1 8B1C 


00 


02030 




DEFB 





;Low byte of current memory 


8B1D 


00 


02040 




DEFB 





;High byte of current memory 


8B1E 


00 


02050 




DEFB 





; Check sum 


8B1F 


00 


02060 




DEFB 





; Number of bytes 


8B20 




02070 CONT 


EQU 


$ 








02080 














02090 














02100 


CODE 


TO SET 


TOP OF EDIT BUFFER 






02110 














02120 










7395 




02130 




ORG 


7395H 




7395 


21FF6F 


02140 




LD 


HL,6FFFH 


jTemporary value; eventually 7FFFH 


7398 


221341 


02150 




LD 


(4113H) ,HL 




739B 


C3A246 


02160 
02170 
02180 




JP 


46A2H 








02190 


TEMPORARY CODE SENDING CASSETTE OUTPUT TO ABOVE ASSEMBLY ROUTINE 






02200 














02210 










703D 




02220 




ORG 


703DH 




703D 


C9 


02230 




DEFB 


0C9H 




7089 




02240 




ORG 


7089H 




7089 


C30F8A 


02250 
02260 
02270 




JP 


ASSEM 








02280 


TEMPORARY CODE INITIALIZING 


ASSEMBLER 






02290 














02300 










73DA 




02310 




ORG 


73DAH 


; Start of cleanup before EDTASM prompt 


73DA 


C3208B 


02320 




JP 


CONT 




8B20 




02330 




ORG 


CONT 




8B20 


31FE42 


02340 




LD 


SP,42FEH 


; Command replaced by JP 


8B23 


211B8B 


02350 




LD 


HL, ADD+2 


;Assembler cycle position 


8B26 


3600 


02360 




LD 


(HL),0 




8B28 


C3DD46 


02370 
02380 , 
02390 | 




JP 


46DDH 




0000 




02400 




END 






OOOOC 


TOTAL 


ERRORS 
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TRS-80 




• II 



EL I UPGRADE 





The 225% Solution. 



If you're tired of waiting for 
your TRS-80* and need more 
processing power but don't 
need the hassels of changing 
software, the MicroC PCP may be 
Simply plug the MicroC PCP into the keyboard expansion port. 
No installation. No traces to cut. No holes to drill. No wires to 
solder. Not a mere clock mod but a whole new 4 MHz Z-80 A CPU 
and support circuitry. Programs run reliably more than twice as 
fast (2.25 times faster) at the SAME CLOCK SPEED AS THE 
MODEL II. Special proprietory circuitry speeds RAM accesses. 
Automatic slowdown circuitry slows the processor to normal 
speed during disk accesses, and during keystrokes to prevent 
contact bounce on the keyboard. 



Available Only from MicroCompatible 



DIMENSIONS: 13" L 9W H 2'*" 
COLOR: Gr«y 

POWER REQUIREMENTS: 120 VAC 
'Registered Trademark of Tandy Corp. 



Send Check for: 



$200.00 

including shipping 
and handling 



^4se 
Micro Compatible Inc. 

To: P.O. Box 107 

Scaly Ml.. N. C. 28775 

(704) 526-2782 

Office Hours: 8:00 a.m. to 9:00 p.m. EST 




All you have to do is send a No. 10 size 
envelope, self-addressed and stamped, to: 



^62 

CECDAT, INC. 

P. O. Box 8963 
Moscow, ID 83843 



The most unique concept 
in software ideas. Are you 
tired of not knowing those 
tricks and shortcuts which 
the expert programmer uti- 
lizes without even thinking 
twice? Now you can pick 
up some tip* and novel 
routines which will simpli- 
fy your own BASIC pro- 
gramming. TRS-80 Model I 
III 

TRS-80 is a trademark of 
Tandy Corp. 

Free Idea Seeds is a trade- 
mark of CECDAT, INC. 



DUSS EXTENDER for TRS-80 



TM 



ELCOMPCO Microcomputer Peripherals 
P.O. Dox 6133, Albany, CA 94706 ►*« 

DEALER INQUIRIES INVITED COD. 



PL22| 




Now you can hook up to 
Four Accessories 
to the TRS-80™! 

* with Active Buss Termination 

* Reduces Ringing and Noise 

* Increases Reliability 

$95 available for immediate delivery 

IRS 60"" <s o rrodemork of TonoV Corp 



^ Reader Serv/ce— $•# p*g* 274 
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Program Listing 3. EDTASM 3 






00100 ; 


INSTRUCTIONS: 


Run EDTASM2. 


Enter the text below and assemble it. 






00110 ; 


Answer the prompt READY CASSETTE with ENTER; the revisions will 






00120 ; 


be entered directly into the 


computer. The new code affects the 






00130 ; 


runni 


ng version of EDTASM 


ad 


i/ersely, so immediately 






00140 ; 


return to DOS 


via the B command and enter 






00150 ; 


DUMP 


EDTASM3/CMD (START-X 


7000' ,END»X'8C5E* ,TRA=X ' 8AO0 ' ) . 






00160 ; 




You may 


test the new 


ve 


rsion of EDTASM. The cassette 






00170 ; 


operations are reenabled. 


From now on, you must use the command 






00180 ; 


AM to assembl 


e directly into 


memory. 1 






00190 , 
















00200 . 
















00210 , 


CODE 


INITIALIZ ING ASSEMBLER 


BEFORE EDTASM PROMPT 






00220 , 
















00230 , 
















00240 , 


Owners of Version 1.2 should 


change ASSEM1 to 51E7H. 


51E3 




00250 ASSEM1 


EQU 


51E3H 






8B20 




00260 CONT 


EQU 


8B20H 






8B19 




00270 ADD 


EQU 


8B19H 






8A0F 




00280 ASSEM 


EQU 


8A0FH 






1 8B20 




00290 




ORG 


CONT 




; Start of cleanup before prompt i 


8B20 


31FE42 


00300 




LD 


SP,42FEH 




; Command replaced by JP 


8B23 


21198B 


00310 




LD 


HL,ADD 




; Initialize assembler 


8B26 


3600 


00320 




LD 


(HL) f 






8B28 


23 


00330 




INC 


HL 






8B29 


3600 


00340 




LD 


(HL) ,0 






8B2B 


23 


00350 




INC 


HL 






8B2C 


3600 


00360 




LD 


(HL) ,0 






8B2E 


213D43 


00370 




LD 


HL, 43 3DH 




; Enable cassette operations 


8B31 


36E5 


00380 




LD 


(HL) f 0E5H 






8B33 


218943 


00390 




LD 


HL,4389H 






8B36 


36E5 


00400 




LD 


(HL) ,0E5H 






8B38 


23 


00410 




INC 


HL 






j 8B39 


36C5 


00420 




LD 


(HL) ,0C5H 






8B3B 


23 


00430 




INC 


HL 






8B3C 


36D5 


00440 




LD 


(HL) ,0D5H 






8B3B 


AF 


00450 




XOR 


A 




; Method zero for EDTASM 


8B3F 


32458B 


00460 




LD 


(TYPE) , A 






8B42 


C3DD46 


00470 




JP 


46DDH 






8B45 


00 


00480 


rYPE 


DEFB 







;Method currently used 


8B46 


01 


00490 
00500 
00510 




DEFB 


1 




; Method chosen by M command 






00520 


■ ADDITIONAL COMMANDS 










00530 
















00540 












8B47 




00550 


:omm 


EQU 


$ 






7428 




00560 




ORG 


7428H 






7428 


C3478B 


00570 




JP 


COMM 






[ 8B47 




00580 




ORG 


CONM 






8B47 


215E8B 


00590 




LD 


HL, TABLE 






8B4A 


0606 


00600 




LD 


B,6 






1 8B4C 


BE 


00610 


NEXTl 


CP 


(HL) 




; First letter of command 


8B4D 


23 


00620 




INC 


HL 






8B4E 


5E 


00630 




LD 


E, (HL) 




;Low byte 


8B4F 


23 


00640 




INC 


HL 






8B50 


56 


00650 




LD 


D, (HL) 




;and high byte of address 


8B51 


23 


00660 




INC 


HL 






8B52 


2002 


00670 




JR 


NZ,MORE 






8B54 


D5 


00680 




PUSH 


DE 






8B55 


C9 


00690 




RET 








8B56 


10F4 


00700 


MORE 


DJNZ 


NEXT1 






8B58 


21A247 


00710 




LD 


HL,47A2H 




;Error J 


8B5B 


C32B47 


00720 




JP 


472BH 






8B5E 


4D 


00730 


TABLE 


DEFB 


'M' 




; Method command { 


1 8B5F 


708B 


00740 




DEFW 


METHOD 






8B61 


00 


00750 


X 


DEFB 







; Eventually X 


8B62 


00 


00760 




DEFB 









8B63 


00 


00770 




DEFB 









' 8B64 


00 


00780 


Y 


DEFB 







.•Eventually Y 


i 8B65 


00 


00790 




DEFB 









8B66 


00 


00800 




DEFB 









8B67 


00 


00810 


J 


DEFB 







{Eventually J 


8B6 8 


00 


00820 




DEFB 









8B69 


00 


00830 




DEFB 









8B6A 


00 


00840 




DEFB 







.•Available for future expansion j 


8B6B 


00 


00850 




DEFB 









8B6C 


00 


00860 




DEFB 









8B6D 


00 


00870 




DEFB 







{Available for future expansion 


8B6E 


00 


00880 




DEFB 









8B6F 


00 


00890 
00900 
00910 


} 
J 


DEFB 







Program continues 
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3 ALTERNATIVE INTERFACES 
FORTHETRS-80 



Save by purchasing only those units 
that meet your needs. Want a Parallel 
Printer or RS-232-C Serial Port, choose 
the Comm-80. Plan to turn your TRS-80 



into a full timesharing terminal, 
choose the Chatterbox. Interested in a 
Disk Controller plus additional 
memory, choose the Disk-80. 



CHATTERBOX 



DISK-80 





•300 baud originate modem 
•Centronics printer port 8-bit 
•RS-232-C port (50-1 9.2K baud) 
•connects to keyboard or I.E. 
•received data automatically 

routed to printer ports 
•includes terminal software 
•only $279.95 complete 

ALL INTERFACES ARE RADIO SHACK 
HARDWARE AND SOFTWARE COM 
PATIBLE AND CARRY A 60 DAY 
WARRANTEE INCLUDING PARTS AND 
LABOR. ALL UNITS INLCUDE USERS 
MANUAL, POWER SUPPLY & AUXILIARY 
TRS-BUS CONNECTOR FOR FUTURE 
EXPANSION 



•disk controller (4 drives) 

• hardware data separator 
•includes 16K of RAM 

provision for additional 16K 
•buffered TRS-BUS expansion 
connector 

• real-time clock 
•only $329.95 complete 



COMM-80 





•RS-232-C port (50-19.2K baud) 
software/hardware selectable 
•Centronics printer port 8-bit 

• connects to keyboard or I.E. 
•chain up to 16 units 

• use with I.E. for 2nd printer 
•includes terminal software 

• only $179.95 complete 



To order call (516) 374-6793 
or write: The MicroMint Inc. 
917 Midway 
Woodmere, NY 11598 
Dealer inquiries invited. 

IRS BO n trademark ol Tandy Corp 
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GREAT 

FOR 

XMAS 



ATTACHE STYLE CASES FOR CARRYING AND PROTECTING A COM- 
PLETE COMPUTER SET-UP CONSTRUCTED OF THE HIGHEST QUALITY 
LUGGAGE MATERIAL WITH SADDLE STITCHING WILL ACCOMMODATE 
EQUIPMENT IN A FULLY OPERATIONAL CONFIGURATION ALONG WITH 
MANUALS. WORKING PAPERS AND DISKS NEVER A NEED TO REMOVE 
EQUIPMENT FROM CASE SIMPLY REMOVE LID CONNECT POWER AND 
OPERATE LID CAN BE REPLACED AND LOCKED FOR SECURITY AND 
PROTECTION WITHOUT DISCONNECTING CABLES FULLY TESTED 

• AP101S Apple and Single Disk Drive $109 

# AP102D Apple and Double Disk Drive 119 

# AP103M Apple, 9 inch Monitor and Double Drive 129 

# RS201 TRS-80, Expansion Unit and Double Drive 109 

• RS202 TRS-80 Monitor and Accessories 84 

• P401 Paper Tiger Printer 99 

# P402 Line Printer ll-Centronics 730 89 

• CC90 Matching Attache Case 75 

• 199 

cariPUTEB case canpflnv 

S6S0 INDIANA MOUND CT COlUMBuS OHIO 13213 
e'4' 866*464 




^Reader Service — see page 274 
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00920 


; CHOOSE KEYBOARD ENTRY 


METHOD 










00930 


; 
















00940 


; 












8B70 


CDBB49 


00950 


METHOD 


CALL 


49BBH 




;Get next buffet letter 




8B73 


2812 


00960 




JR 


Z,OH 








8B75 


0600 


00970 




LD 


B,0 








8B77 


FE30 


00980 




CP 


30H 








8B7 9 


280F 


00990 




JR 


Z,FIX1 








8B7B 


0601 


01000 




LD 


B,l 








8B7D 


FE31 


01010 




CP 


31H 








8B7F 


2809 


01020 




JR 


Z,FIX1 








8B81 


0602 


01030 




LD 


B,2 








8B83 


FE32 


01040 




CP 


32H 








8B85 


2807 


01050 




JR 


Z,FIX2 








8B87 


C3F48B 


01060 


OH 


JP 


BAD 




;Error 




8B8A 


3E61 


01070 


FIX1 


LD 


A f 97 




; Upper case only 




8B8C 


1802 


01080 




JR 


OHH 








8B8E 


3E80 


01090 


FIX2 


LD 


A,12B 




; Lower case 




8B90 


324A46 


01100 


OHH 


LD 


(464AH) , 


A 






8B93 


78 


OHIO 




LD 


A,B 








8B94 


32468B 


01120 




LD 


(TYPE+1) 


,A 






8B97 


C9 


01130 
01140 
01150 


; 


RET 














01160 


; CODE 


TO DETECT AM COMMAND 










01170 


"i 
















01180 


; 












8B98 




01190 


AM 


EQU 


$ 








7618 




01200 




ORG 


7618H 








7618 


988B 


01210 




DEFW 


AM 








8B98 




01220 




ORG 


AM 








8B98 


E5 


01230 




PUSH 


HL 








8B99 


D5 


01240 




PUSH 


DE 








, 8B9A 


C5 


01250 




PUSH 


BC 








8B9B 


F5 


01260 




PUSH 


AF 








8B9C 


CDBB49 


01270 




CALL 


49BBH 




;Next command letter 




8B9F 


2807 


01280 




JR 


Z , ABORT 




;No next letter 




8BA1 


FE4D 


01290 




CP 


4DH 




;M 


Program continues 



TRS-80***MULTI -TASKING OPERATING SYSTEM ***TRS-60 

TRUE TIMESHARING WITHIN A TRS - 80 

ADDS A NEW DIMENSION TO YOUR MODEL I SYSTEM 

The first system utility to allow TWO USERS or programs to operate independently in a TRS-80. 

• TSHARE V 1 .2 is an mterupt driven executive which patches itself to NEWDOS or TRSDOS. 

• Allows TRS-80 to be interfaced to a second terminal thus providing for an additional operating user 
m your EXPANDED SYSTEM. Additionally, a printer can be used to service both users. 

• SIMPLEX mode for non serial-port users. Requires only a printer as the second "screen". Jobs share 
the keyboard under user control and detach to run separately but simultaneously. This mode allows 
non — mterupt driven timesharing. 

• CONFIGURE allows segmenting of available memory above 7600 HEX in any proportion between the 
two users. Selects communication mode and port type for second terminal. 

• Options for parallel port, RS232, TRS232, and HUH as the connection for your second terminal. AM 
software drivers are included. 

• Communicate between USERS or PROGRAMS using peek and poke. The experienced programmer can 
now create a new generation of muiti — terminal operated games or business software. 

• Execute BASIC or MACHINE LANGUAGE Full use of disks. Requires 32K plus one disk drive. 

INTRODUCTORY OFFER on easy loading 5% diskette 

Full Documentation *89 

"California residents add 6°,> tax 



COMSOFT 'a* 

1124 N. Brand Blvd. 

Suite 201 

Glendale, California 91202 

213/649-0369 




masiei chaige 



TRS-80. TRSDOS tm Radio Shack/Tandy Corp. 

NEWDOS tm Apparat, Inc. 

TRS232 tm Small System Software 

HUH tm HUH Electronics 
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8BA3 


2816 


01300 




JR 


Z , NEXT 




8BA5 


CDAF8B 


01310 


ABORT1 


CALL 


RETN 




8BA8 


Fl 


01320 


ABORT 


POP 


AF 




8BA9 


CI 


01330 




POP 


BC 




8 BAA 


Dl 


01340 




POP 


DE 




8 BAB 


El 


01350 




POP 


HL 




8BAC 


C3E351 


01360 




JP 


ASSEM1 


;Assembler routine 


8BAF 


21AA41 


01370 


RETN 


LD 


HL,41AAH 


;Return letter to input buffer 


8BB2 


34 


01380 




INC 


(HL) 




1 8BB3 


2AA841 


01390 




LD 


HL, (41A8H) 




8BB6 


2B 


01400 




DEC 


HL 




8BB7 


22A841 


01410 




LD 


(41A8H) ,HL 




8BBA 


C9 


01420 




RET 






8BBB 


213D43 


01430 


NEXT 


LD 


HL,433DH 


; Cassette output to ASSEM routine 


8BBE 


36C9 


01440 




LD 


(HL) ,0C9H 




8BC0 


218943 


01450 




LD 


HL,4389H 




8BC3 


36C3 


01460 




LD 


(HL) ,0C3H 




8BC5 


210F8A 


01470 




LD 


HL, ASSEM 




8BC8 


228A43 


01480 




LD 


(438AH) ,HL 




8BCB 


CDBB49 


01490 




CALL 


49BBH 


;Next letter 


8BCE 


2808 


01500 




JR 


Z , ABORT 


;No letter 


8BD0 


FE2B 


01510 




CP 


2BH 


; + 


8BD2 


20D1 


01520 




JR 


NZ,ABORTl 


;Replace letter 


8BD4 


CDE2 8B 


01530 




CALL 


ROUT 


;High byte of addition to memory 


8BD7 


321A8B 


01540 




LD 


(ADD+1) ,A 




8BDA 


CDE28B 


01550 




CALL 


ROUT 


;Low byte of addition to memory 


8BDD 


32198B 


01560 




LD 


(ADD) ,A 




8BE0 


18C6 


01570 




JR 


ABORT 


;Go to assembler 


8BE2 


CDF08B 


01580 


ROUT 


CALL 


GET 


;Next letter 


8BE5 


57 


01590 




LD 


D,A 




8BE6 


CDF08B 


01600 




CALL 


GET 


;Next letter 


8BE9 


5F 


01610 




LD 


E,A 




8BEA 


CDFA8B 


01620 




CALL 


CONV 


/Convert ascii DE to number 


8BED 


2805 


01630 




JR 


Z,BAD 


;DE not correct 


8BEF 


C9 


01640 




RET 






8BF0 


CDBB4 9 


01650 


GET 


CALL 


49BBH 


;Next letter 


8BF3 


CO 


01660 




RET 


NZ 




8BF4 


21A247 


01670 


BAD 


LD 


HL,47A2H 


; Error Program continues 



EDdS HAS « I1IMMA » 

ssricus snfliiisra (tm) 



dishmcd 



A sophisticated Editor t 
Assembler setting the standard 
for the '80 Model I 6 Model 
III. All EDAS commands and 
SOURCE text can be entered in 
either upper case or lower 
case. Direct assembly form 
memory or disk by means of *GET 
assembler directives. This 
gives text buffer capacity 
equal to your drive 
configuration! 30,000 bytes of 
symbol table. 

Direct assembly to disk or 
memory for faster debugging 
operations! DOS "system" 
command functions KILL, DIR, 
FREE, and LIST are available 
from within the environment of 
EDAS. 

The Editor, with renumber, 
maintains command syntax 
identical to the BASIC editor. 
Global change permits you to 
alter a string throughout a 
designated range of lines while 
block move relocates lines of 
text. 

EDAS is priced at $79 plus $3 
S6H. A 72-page manual included. 



amdfil 



Now you can append two or more 
CMD files and/or SYSTEM tapes. 
Perform transfer to t from 
disk/tape of SYSTEM/CMD modules 
with offset capabilities. Read 
VT0S ISAM overlays. More! $20 



VT0S A.0, the system you have been waiting for 
is here. No ad could adequately describe the 
capabilities inherent in VT0S. MIS0SYS provides 
full technical support for this system. You owe 
it to yourself to explore VT0S k.0. Available 
for $125 with the Reference Manual or $99 
without. Call or write for all the details. 



I II 1 . 41 



dsmhlr 



Complement your assembly language tools with 
this Z80 disassembler which produces screen, 
printer, cassette, or disk file output. A two- 
pass process provides SYMBOLS for 16-bit ad- 
dress and 8-bit relative references. EQUates (, 
ORG are generated. Read SYSTEM programs 6 dis- 
play load address range. $20 (DSMBLR I for non- 
di sk use is $15) 



XXI 




r*j rmj 



MIS0SYS - Dept K1 VISA 
590^ Edgehi 11 Drive 
Alexandria, Virginia 22303 
703-960-2998 MicroNET 701^*0,310 '*& 
Dealer Inquiries Invited 



Turn your Editor Assembler into 
a disk package. This 32K patch 
modifies EDTASM for DOS oper- 
ation. Features? Add full disk 
I/O, block move, global change, 
printer pagination with op- 
tional prompting, sorted symbol 
table, print memory utiliza- 
tion, correct DEFM expansion, 
protect memory, and recover 
after BOOT. From within the 
EDTASM you will have DIR, KILL, 
t FREE. Upgrade your EDTASM 
today! Version for EDTASM+ 
coming soon. $20. 

THE EElEfry 

THE B00K must be a part of your 
Z-80 language tools. Volume I 
gives you access to all math 
operations in your Level II ROM 
including ASCII-Binary conver- 
sions. Included is a symbol 
table of the entire machine 
noting over 500 addresses. 
Volume II tells you everything 
you wanted to know about the 
Level II 1/0 - printer, key- 
board, video, and cassette 
routines are fully explained. 
Each volume has a fully-com- 
mented listing of all the rou- 
tines discussed. THE B00Ks will 
save you hours of assembler 
program development time. Don't 
start programming without THE 
B00Ks. Each volume is priced at 
$1*1.95 ♦ $1.50 S&H or buy both 
for $2^.95. 
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8BF7 


C32B47 


01680 




JP 


472BH 




8BFA 


C5 


01690 


:onv 


PUSH 


BC 


.•Convert ascii in DE to number in 


8BFB 


7A 


01700 




LD 


A,D 


;A and set zero flag if error 


8BFC 


CD138C 


01710 




CALL 


CONV1 




8BFF 


280F 


01720 




JR 


Z,BADl 




8C01 


57 


01730 




LD 


D,A 




8C02 


7B 


01740 




LD 


A,E 




8C03 


CD13 8C 


01750 




CALL 


CONV1 




8C06 


2808 


01760 




JR 


Z , BAD1 




8C0 8 


0610 


01770 




LD 


B,16 




8C0A 


82 


01780 


ADA 


ADD 


A,D 




8C0B 


10FD 


01790 




DJNZ 


ADA 




8C0D 


04 


01800 




INC 


B 


;Reset zero flag 


8C0E 


CI 


01810 




POP 


BC 




8C0F 


C9 


01820 




RET 






8C10 


AF 


01830 


BAD1 


XOR 


A 


;Set zero flag 


8C11 


CI 


01840 




POP 


BC 




8C12 


C9 


01850 




RET 






8C13 


E5 


01860 


C0NV1 


PUSH 


ML 


;Convert ascii in A to number 


8C14 


C5 


01870 




PUSH 


BC 


;in A and set zero flag if error 


8C15 


212B8C 


01880 




LD 


HL,TABLE1 




8C18 


0610 


01890 




LD 


B,16 




8C1A 


BE 


01900 


LOOP 


CP 


(HL) 




8C1B 


2808 


01910 




JR 


Z,YES 




8C1D 


23 


01920 




INC 


HL 




8C1E 


23 


01930 




INC 


HL 




8C1F 


10F9 


01940 




DJNZ 


LOOP 




8C21 


AF 


01950 




XOR 


A 


;Set zero flag 


8C22 


CI 


01960 




POP 


BC 




8C23 


El 


01970 




POP 


HL 




8C24 


C9 


01980 




RET 






8C25 


23 


01990 


YES 


INC 


HL 




8C26 


7E 


02000 




LD 


A, (HL) 




8C27 


04 


02010 




INC 


B 


;Reset zero flag 


8C28 


CI 


02020 




POP 


BC 




8C29 


El 


02030 




POP 


HL 




8C2A 


C9 


02040 




RET 




Program continues 




Please note: Our CRT SCREENS have been purchased by thousands 

of individuals, the Department of the Navy, several government agen- 
cies, and dozens of the country's top corporations and universities. 



• Give your CRT the luminous green characters found on the very expensive 
computer systems 

• Add a professional look to your system and your programs 

• Dramatically improved contrast for easier reading and improved graphics 

We manufacture an optically correct. 1/8" plexiglas" screen that mounts easily 
over the CRT on your video monitor This is a quality accessory that enables your 
TRS-80" monitor to produce the luminous green characters identical to those 
found on expensive terminals For business applications this means enhanced 
appearance and reduced eye strain, for the hobbyist, graphics are brighter and 
bolder The screen may be easily removed — no modification to monitor 

Screen for Model I $1 9.95 

VISA - Mastercharge Screen for Model II . . . $24.95 

We ship within 24 hours 30-day money back guarantee 
National Tricor. Inc. / 3335 Greenleaf Blvd.. Kalamazoo. Ml 49008 / 6 1 6-375-751 9 



A 



TRS-80* SOFTWARE! THE BEST 



THE DATA ORGANIZER 



'Variable length records *Max. 20 field per record 
64 K Mod II $250.00 32 K Mod I $150.00 
MAGAZINE DISTRIBUTION PROGRAM 

• 500 titles • Invoices • 200 Vendors • Reports 

64 K Mod II $750.00 
AMBULANCE BILLING SYSTEM 

• 1000 Calls/month • Reports unpaid, medicare • Tracks cars/drivers 

64 K Mod II $750 00 

DEALER OF TARANTO & ASSOCIATES MODEL II SOFTWARE 

A/R G/L P/R each $249.00 

All programs error free and fully documented User tested 
Client list available Custom programming/consulting tor TRS-80* 

CMS, INC. 31 32 N. BROADWAY, CHICAGO, IL 60657 
(312)327-7550 ^393 

** trademark of Tandy Corp. 
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8C2B 30 


02050 TABLE1 DEFB 


'0' 




8C2C 00 


02060 


DEFB 







8C2D 31 


02070 


DEFB 


'1' 




8C2E 01 


02080 


DEFB 


1 




8C2F 32 


02090 


DEFB 


•2' 




8C30 02 


02100 


DEFB 


2 




8C31 33 


02110 


DEFB 


'3' 




8C32 03 


02120 


DEFB 


3 




8C33 34 


02130 


DEFB 


'4' 




8C34 04 


02140 


DEFB 


4 




8C35 35 


02150 


DEFB 


•5' 




8C36 05 


02160 


DEFB 


5 




8C37 36 


02170 


DEFB 


'6' 




8C38 06 


02180 


DEFB 


6 




8C39 37 


02190 


DEFB 


'7' 




8C3A 07 


02200 


DEFB 


7 




8C3B 38 


02210 


DEFB 


'8' 




8C3C 08 


02220 


DEFB 


8 




8C3D 39 


02230 


DEFB 


•9' 




8C3E 09 


02240 


DEFB 


9 




8C3F 41 


02250 


DEFB 


'A' 




8C40 0A 


02260 


DEFB 


10 




8C41 42 


02270 


DEFB 


•B' 




8C42 OB 


02280 


DEFB 


11 




8C43 43 


02290 


DEFB 


•c 




8C44 OC 


02300 


DEFB 


12 




8C45 44 


02310 


DEFB 


'D' 




8C46 OD 


02320 


DEFB 


13 




8C47 45 


02330 


DEFB 


'E' 




8C48 OE 


02340 


DEFB 


14 




8C49 46 


02350 


DEFB 


'F' 




8C4A OF 


02360 
02370 
02380 
02390 
02400 


DEFB 
DEBOUNCE 


15 









COLLEGE BOARDS 



for TRS-80, PET, APPLE 

SAT, PSAT, N.M.5.Q.T., *et include* 7 program* covering Vocabulary, Word re-l 
I atiomhips, and Mathematics. Price $59.95 1 

Clf tet include* 10 programs covering Vocabulary. Word IHattonthipt, Math-| 
ematict. Logical Diagrams. Analytical leatoning. $99.95 j 

TIME TRAVELER 

Player s face complex decision situations and tne demand (Of real time action 
Using the Time Machine players meet a challenging series ot enviornments that' 
include the Athens of Pericles. Imperial Rome Nebuchane/zar s Babylon. 
Ikhaton s Egypt lerusalem at the time ot the cruofmon The Crusades 
Machiavelli s Italy the French Revolution the American Revolution and the Eng- 
lish Civil War Deal with Hitler s Third Reich Vikings etc Choose a level of dif 
ficulty the more difficult, the greater the time pressure To succeed v*>u must 
build alliances and struggle with the ruling powers Each game is unique $24 95 

SUPf R STAR BASf BALL & 
ALL TIME SUPf R STAR BASEBALL 

Performance is based on the interaction of actual 
batting and pitching data Came can be played by* 
one or two players with the computer acting as a 
second player when desired Players select rosterj 
and lineups and exercise strategic choices inc kjdingj 
hit and run base stealing pinch hitting mtentional| 
walk etc Highly realistic there are two versions, 
ALL TIME SUPER STAR BASEBAU and SUPER STAR 
BASEBALL featuring players of the c urrent det ade 
Eachincludesaboul 50 plaversallowmg nearly infin- 
ite number ot rosier and lineup possibilities $ ' ' '• - 



SUPER STAR BASEBALL 


Sample Lineup 


D Parker 


1 Rice 


W Slargell 


H Aaron 


W Mays 


I Broc* 


P Rose 


R Carew 


O Cepeda 


H Ki Hebrew 


C Ya/stremsk 


R Allen 


W McCovey 


R Leflore 


R lack son 


R Zisk 


C Brett 


B Madlock 


R Cuidry-P 


T Seaver P 



14 95 

SWORD OF ZEDEK 

Fight to overthrow Ra The Master of Evil >ou must confront a host ot crea 
turps natural and supernatural To liberate the Kingdom alliances must be forged 
and treasures sought Treachery deceit and will hrratt musf be tac ed in vour strug- 
gles as you encounter wolves dwarves elves dragons etc Each of the 12 trea- 
sures will enhance vour power by making invisible mvulnable more eloquent 
more skillful in combat etc as vou explore the realms of geography both on the 
surface and underground Dungeons temples castle-, mountains etc are all a 
part ot the lantashc world of Ra Eac h game is unique in this spec lac ular and com 
plex world -i fantasy. mtmWwWk. ^ 375 ">l\ 95 

J KRELL SOFTWARE 

Send check or money order to 

21 Milbrook Drive, Stony Brook, NY 11790 (516)751-5139 

Ll PROGRAMS AVAILABLE FOR TRS-80, APPLE II & PET 



vtu 





THE MX-SO 
WITH DISPOSABLE PRINT HEAD. 

A LOT OF PRINTERS COSTING A LOT 
MORE CANT TOUCH THE MX-80S PER- 
FORMANCE. IT GIVES YOU A CHOICE 
OF 40, 80, 66 OR 132 COLUMNS OF 
PRINTING IN AS MANY AS FOUR DIS- 
TINCT PRINTING DENSITY MODES. 
MORE THAN HALF THESE MODES GIVE 
"CORRESPONDENCE QUALITY" PRINT- 
ING. CALL FOR QUANTITY DISCOUNTS. 

American Business Computers 

118 South Mill SI. 
Pryor. OK 74361. 918-825-4844 »^483 


$645. 00 




" 



BIG SYSTEM SOFTWARE(tm) 

Exciting new software for the TRS*80(tm) from BSS{tm) 

TM CMO ft DM/CMD M AETfoat) TERMINAL orocrao**. 

PKATvmsa 

UeiOAD AMD DO WW LOAD TO TAP 
UPLOAD AMD DOWNLOAD TO DISK 



I (!>••- •!*.•« 



PimOKiCMD ll—UJp Mm* ai»k • U4H 

TATIMPI IMD HPT MUM ' »MI 

DMiCMD n ip H IM* with 
!»• 1.1 Il ia KUrMjil 



i app akat. tmom 



from T.m j Curp ih 

BIO BTBTEN torr W ARK/ tm) j 
ro BOX 4*i 

framm, mcmtoAN 4—** 



QUALITY SOFTWARE 
for the 



TRS-80™ MICROCOMPUTER 




KEYWORD Indexing System 

\ Ptrto ■■) pnnjraim lhal "III .rvak i dala HI. mi dN. build m 

link, wl all ■ccarrcacca <>i K,.~..rd- In ih. M "i i'i> dala HI, 

and jlli.~ Invnilrk- M T— f*f- Inn. ih, ill. u«in|i ih, Imkx.d 

k.v»ordv Ih. ...Km kalur,., 

•il.ylhk r..ord l.ii||ih. «Hh lo.allon polni.rx 

•dtklH.n 111 m.n k.,-...rd« irom lmk» hi -»»Kin 

•"and' "iif" "mil" lotfk io( Inqulrk- 

MoftcrfoH bn v*kt ~tiii.ii iityuin.. 

KI T»(Ma) IMIIA .' dk*. UK -vtcm «"."* 

I dW> UK ,1*111 SW.'M 

SORTS for HOME and BUSINESS 

Nil .ixnnukr pao -hould h. wiihoui j topaaMcataa] !•• urn m*\ 

program Ih.- V.rih.a-i Mkrowar, In m.mi.r, -iirt program. ar. 1 
orlikn In l.,,l II BASK and ha>. Hi. loll HI DM lvalue.- 

• Ski UJtUM MHI.KII daia 
•Sarl on up hi i II. Id- -IniulUn.ini-l. 

• In j..,"<li.i|! ■ » ,1,.,. "diinj ■copxan 
•Support, kh. ild.ii or lap. I () 

•Support. *•} disk and primer I (I IMMII III' 1 
•Support- •>«» I <• rmiHm> 
•U- ..Ii-ISIIKI III) ..nl. 1 

SUR1 ll-lliKU»»llllnmvm..oM»i »l9.9i 

SMI III) UKIHlSlnnRinor.— m JI9 9S 

KM the SttlOUS CAMBLII 

BLACK) WK MAI LATOR. ypvan mm •" Tmnliu ox pl»in* ol 

ih..u-jnd- in hand, ui ILI and analw. ih. r.-uli- on upc In l.-.l 

NIASIC % 1 9.95 

Manual- lor all ptIOJrMOJ aiallahl. for SI IN) ,ii 

'prk. tkdu.llhk on pur.ha-s ol progrjntl 

" TRS80 is a regislered trademark of TANDY CORP 

( < T4^hca§t c 7VlICROWARl) 
BOX 2133, ^74 
BOSTON, MA. 02106 



^ Riador S»rvlC0—i— (*g* 274 
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02410 


. 








8C4B 




02420 


DEB 


EQU 


$ 




7107 




02430 




ORG 


7107H 




7107 


C34B8C 


02440 




JP 


DEB 




8C4B 




02450 




ORG 


DEB 




8C4B 


C5 


02460 




PUSH 


BC 




8C4C 


01DF04 


02470 




LD 


BC,4DFH 




8C4F 


OB 


02480 


HERE 


DEC 


BC 




8C50 


78 


02490 




LD 


A,B 




8C51 


Bl 


02500 




OR 


C 




8C52 


20FB 


02510 




JR 


NZ,HERF. 




8C54 


CI 


02520 




POP 


BC 




8C55 


OA 


02530 




LD 


A, (BC) 




8C56 


A3 


02540 




AND 


E 




8C57 


C8 


02550 




RET 


Z 




8C58 


7A 


02560 




LD 


A,D 




8C59 


07 


02570 




RLCA 






8C5A 


07 


02580 




RLCA 






8C5B 


C30A44 


02590 
02600 
02610 


t 


JP 


440AH 








02620 


; CHANGE 'READY 


CASSETTE' TO 


MOVE CODE' 






02630 














02640 










8C5E 




02650 


CONT1 


EQU 


$ 




75E4 




02660 




ORG 


75E4H 




75E4 


4D 


02670 




DEFB 


■M' 




75E5 


4F 


02680 




DEFB 


•O' 




75E6 


56 


02690 




DEFB 


*V 




75E7 


45 


02700 




DEFB 


•E' 




75E8 


20 


02710 




DEFB 


• i 




75E9 


43 


02720 




DEFB 


•c 




75EA 


4F 


02730 




DEFB 


•O' 




75EB 


44 


02740 




DEFB 


•D' 




75EC 


45 


02750 




DEFB 


•E' 




75ED 


BF 


02760 




DEFB 


•?'+128 




0000 




02770 




END 






j 00000 TOTAL 


ERRORS 






















Program Listing 4. EDTASM 4 




i 


00100 


; INSTRUCTIONS: Run EDTASM3, enter the text below, and assemble j 






00110 


; it into memory using AM. Return to DOS and enter 






00120 


; DUMP 


EDTASM4/CMD (START=X * 7000 • , END-X' 8D66 ' , TRA»X' 8A00 ' ) . 






00130 


; 










00140 


; 










00150 


; CLEAR 


KEY 








00160 


; 










00170 


; 










00180 


; Owners of Version 1.2 should change UP1 to 4C76H, DOWN1 to 






00190 


; 4C7 8H 


, and 


ED to 4DC5H. 


4C72 




00200 


UP1 


EQU 


4C72H 


4C74 




00210 


DOWN1 


EQU 


4C74H 


4DC1 




00220 


ED 


EQU 


4DC1H 


8C5E 




00230 


CONT1 


EQU 


8C5EH 


8B45 




00240 


TYPE 


EQU 


8B45H 


7663 




00250 




ORG 


7663H 


7663 


C3 


00260 




DEFB 


0C3H 


7664 


5E8C 


00270 




DEFW 


CONT1 


8C5E 




00280 




ORG 


CONT1 


8C5E 


FE5B 


00290 




CP 


5BH instruction replaced by JP 


8C60 


CA6B49 


00300 




JP 


Z,496BH 


8C63 


FE1F 


00310 




CP 


1FH ;Clear key 


8C65 


C26749 


00320 




JP 


NZ,4967H 


8C68 


CD6E8C 


00330 




CALL 


CLEAR 


8C6B 


C3DA46 


00340 




JP 


46DAH 


8C6E 


3E1C 


00350 


CLEAR 


LD 


a,ich ;Routine to clear screen 


8C70 


CD3947 


00360 




CALL 


4739H 


8C73 


3E1F 


00370 




LD 


A,1FH 


8C75 


CD3947 


00380 




CALL 


4739H 


8C7 8 


3E0E 


00390 




LD 


A,0EH 


8C7A 


CD3947 


00400 




CALL 


4739H 


8C7D 


C9 


00410 
00420 
00430 




RET 








00440 


; DOWN 


ARROW 








00450 












00460 
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8C7E 




00470 DOWN 


EQU 


$ 






7624 




00480 




ORG 


7624H 






7624 


7E8C 


00490 




DEFW 


DOWN 






8C7E 




00500 




ORG 


DOWN 






8C7E 


3E0F 


00510 




LD 


A,0FH 


;Cursor off 




8C80 


CD3947 


00520 




CALL 


4739H 






8C83 


3E1B 


00530 




LD 


A,1BH 


; Upward linefeed 




8C85 


CD3947 


00540 




CALL 


4739H 






8C88 


CD744C 


00550 




CALL 


DOWN1 


; Unmodified command 




j 8C8B 


3E0E 


00560 




LD 


A,0EH 


;Cursor on 




8C8D 


C33947 


00570 
00580 
00590 




JP 


4739H 










00600 


UP ARROW 












00610 
















00620 












8C90 




00630 UP 


EQU 


$ 






7621 




00640 




ORG 


7621H 






1 7621 


908C 


00650 




DEFW 


UP 






8C90 




00660 




ORG 


UP 






8C90 


061C 


00670 




LD 


B,28 


l4 




8C92 


C5 


00680 LOOP1 


PUSH 


BC 






8C93 


CD724C 


00690 




CALL 


UP1 


;Previous line 




1 8C96 


CI 


00700 




POP 


BC 






8C97 


10F9 


00710 




DJNZ 


LOOP1 






8C99 


CD6E8C 


00720 




CALL 


CLEAR 






8C9C 


C32A4C 


00730 
00740 

00750 




JP 


4C2AH 


; Print page 








00760 


SET 


E-0 AT 


START OF LINE ENTER ROUTINE 








00770 
















00780 












8C9F 




00790 1 


:i 


EQU 


$ 






7644 




00800 




ORG 


7644H 






7644 


C3 


00810 




DEFB 


0C3H 






7645 


9F8C 


00620 




DEFW 


El 






8C9F 




00830 




ORG 


El 






8C9F 


22A841 


00840 




LD 


(41A8H) ,HL 


/•Instruction replaced by 


JP 


8CA2 


1E00 


00850 




LD 


E,0 






8CA4 


C34749 


00860 

00870 
00880 




JP 


4947H 










00890 


CONVERT TO 


CORRECT METHOD AT 


START OF INSTRUCTION 








00900 
















00910 












8CA7 




00920 ( 


:i 


EQU 


$ 






73FB 




00930 




ORG 


73FBH 






73FB 


C3 


00940 




DEFB 


0C3H 






73FC 


A78C 


00950 




DEFW 


CI 






8CA7 




00960 




ORG 


CI 






8CA7 


3A46 8B 


00970 




LD 


A, (TYPE+1) 


;Nethod to be used 




8CAA 


32458B 


00980 




LD 


(TYPE) ,A 


;Active method 




8 CAD 


CDBB49 


00990 




CALL 


49BBH 


; Instruction replaced by 


JP 


8CB0 


C3FE46 


01000 
01010 
01020 




JP 


46FEH 










01030 


REVISE KEYBOARD ENTRY METHOD 










01040 
















01050 












8CB3 




01060 1 


< 


EQU 


$ 






7681 




01070 




ORG 


7681H 






7681 


C3 


01080 




DEFB 


0C3H 






7682 


B38C 


01090 




DEFW 


K 






8CB3 




01100 




ORG 


K 






8CB3 


3A458B 


OHIO 




LD 


A, (TYPE) 






8CB6 


FEOO 


01120 




CP 









8CB8 


2860 


01130 




JR 


Z , BACK 






8CBA 


FE01 


01140 




CP 


1 






8CBC 


2063 


01150 




JR 


NZ , TW02 






8CBE 


7E 


01160 




LD 


A, (HL) 


;Letter from keyboard 




8CBF 


FE3B 


01170 




CP 


3BH 


/ # 




8CC1 


2004 


01180 




JR 


NZ , EXT 






8CC3 


1E04 


01190 




LD 


E,4 


;Stop fiddling around 




8CC5 


1853 


01200 




JR 


BACK 






8CC7 


FE27 


01210 


SXT 


CP 


27H 


. ■ ■ ■ 




8CC9 


2004 


01220 




JR 


NZ , EXT1 






8CCB 


1E04 


01230 




LD 


E,4 






8CCD 


184B 


01240 




JR 


BACK 






8CCF 


FE20 


01250 


2XT1 


CP 


i i 






8CD1 


2815 


01260 




JR 


Z , EXT3 






8CD3 


FE09 


01270 




CP 


9 


;Tab 




8CD5 


2008 


01280 




JR 


NZ , EXT2 






8CD7 


1C 


01290 




INC 


E 


;Next column 


Program continues 
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8CD8 


3E00 


01300 


NEW 


LD 


A,0 




8CDA 


32208D 


01310 




LD 


(NUMBER) , A 


;Count letters in column 


8CDD 


183B 


01320 




JR 


BACK 




8CDF 


3A208D 


01330 


EXT2 


LD 


A, (NUMBER) 


/Additional letter in column 


8CE2 


3C 


01340 




INC 


A 




1 8CE3 


32208D 


01350 




LD 


(NUMBER) ,A 




8CE6 


1832 


01360 




JR 


BACK 




8CE8 


1C 


01370 


EXT3 


INC 


E 


;New column 


8CE9 


7B 


01380 




LD 


A, E 




8CEA 


FE03 


01390 




CP 


3 




8CEC 


3004 


01400 




JR 


NC,EXT4 


/Already in third or fourth column 


8CEE 


3609 


01410 




LD 


(HL),9 


;Tab instead 


8CF0 


18E6 


01420 




JR 


NEW 




8CF2 


FE03 


01430 


EXT4 


CP 


3 




8CF4 


2802 


01440 




JR 


Z , EXT5 


;In third column now 


8CF6 


1822 


01450 




JR 


BACK 




8CF8 


1C 


01460 


EXT5 


INC 


E 




8CF9 


3609 


01470 




LD 


(HL),9 


;Tab 


8CFB 


3E09 


01480 




LD 


A, 9 




8CFD 


CD3947 


01490 




CALL 


4739H 


; Print on screen 


8D00 


3A206D 


01500 




LD 


A, (NUMBER) 




8D03 


FE08 


01510 




CP 


8 




8D05 


3010 


01520 




JR 


NC,EXT6 


;At least 8 characters in column 


8D07 


23 


01530 




INC 


HL 




8D08 


3609 


01540 




LD 


(HL),9 


/Another tab 


8D0A 


3E09 


01550 




LD 


A, 9 




8D0C 


CD3947 


01560 




CALL 


4739H 


/Print on screen 


8D0F 


23 


01570 




INC 


HL 




8D10 


14 


01580 




INC 


D 




8D11 


14 


01590 


KK 


INC 


D 




8D12 


3E3B 


01600 




LD 


A,3BH 




8D14 


C36249 


01610 




JP 


4962H 




8D17 


23 


01620 


EXT6 


INC 


HL 




8D18 


18F7 


01630 




JR 


KK 




8D1A 


7E 


01640 


BACK 


LD 


A, (HL) 




6D1B 


23 


01650 




INC 


HL 




8D1C 


14 


01660 




INC 


D 




8D1D 


C38449 


01670 




JP 


4984H 




8D20 


00 


01680 


NUMBER 


DEFB 





/Number of characters in column 


8D21 


1C 


01690 


TW02 


INC 


E 




8D22 


7B 


01700 




LD 


A,E 




8D23 


FE39 


01710 




CP 


39H 


/If end of line, make line feed 


8D25 


3806 


01720 




JR 


C,EXT7 




8D27 


7E 


01730 




LD 


A, (HL) 


/Current character 


8D28 


CD3947 


01740 




CALL 


4739H 


/Print on screen 


8D2B 


1814 


01750 




JR 


LINE 


/Line feed 


8D2D 


7E 


01760 


EXT7 


LD 


A, (HL) 




1 8D2E 


FE20 


01770 




CP 


■ i 




8D30 


280A 


01780 




JR 


2,EXT8 




8D32 


FE09 


01790 




CP 


9 


/Tab 


8D34 


20E4 


01800 




JR 


NZ,BACK 




8D36 


7B 


01810 




LD 


A, E 




8D37 


C607 


01820 




ADD 


A, 7 




8D39 


5F 


01830 




LD 


E,A 




8D3A 


18DE 


01840 




JR 


BACK 




8D3C 


7B 


01850 


EXT8 


LD 


A,E 




8D3D 


FE30 


01860 




CP 


30H 


/Look for line feed after 48 characters 


8D3F 


38D9 


01870 




JR 


C , BACK 




8D41 


23 


01880 


LINE 


INC 


HL 




8D42 


14 


01890 




INC 


D 




8D43 


C37549 


01900 
01910 
01920 


; 
} 


JP 


4975H 


/Line feed 






01930 


/ REVISE KEYBOARD ENTRY TO 


ACCOUNT FOR BACKSPACE 






01940 


J 












01950 


J 








8D46 




01960 


Rl 


EQU 


s 




769D 




01970 




ORG 


769DH 




769D 


C3 


01980 




DEFB 


0C3H 




769E 


468D 


01990 




DEFW 


Rl 




8D46 




02000 




ORG 


Rl 




8D46 


3A458B 


02010 




LD 


A, (TYPE) 




8D49 


FE02 


02020 




CP 


2 




8D4B 


2001 


02030 




JR 


NZ,S1 




8D4D 


ID 


02040 




DEC 


E 


/Backspace 


8D4E 


15 


02050 


SI 


DEC 


D 


/Instructions replaced by JP 


8D4F 


El 


02060 




POP 


HL 




8D50 


C9 


02070 




RET 






8D51 




02080 


R2 


EQU 


$ 




76B8 




02090 




ORG 


76B8H 




76B8 


C3 


02100 




DEFB 


0C3H 




76B9 


518D 


02110 




DEFW 


R2 




8D51 




02120 




ORG 


R2 
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Mayday 



from, 




Tfir 



l>\r 



*H& 



60 Cycle 
Sine Wave 

U.P.S. 

(Uninterruptibe Power Supply) 

for those systems that 
need 60 cycle sine 
wave keeps computer & 
disk systems on when 
the power goes out 
rated tor 150, 250 and 
600 watts continuous 
operation * 

provides up to 30 min- 
ute operation time for 
Model II TRS80with4 
disk drives 

* Standard MAYDAYS available 
starting at $195.00 tor 150 Watt 



£Pun &lebeaAch, &nc. 

Box 210 New Durham, NH 03855 
(603) 859-7110 TWX 510-297-4444 



W% COTTAGE #^ 
Wm SOFTWARE #^H 

V Q FOR TRWO™ Micro Computer* % ^ 

PACKER: Automatically edits all or part ol your 
Basic program to ease editing, tun taster, or save 
memory. Has 5 sections. UNPACK - unpacks multi 
pie statement lines into single statements maintain 
mg program logic, inserts spaces and renumbers 
lines tor easier editing SHORT - shortens your pro- 
gram by editing out all REM statements, un 
necessary words and spaces PACK - executes UN 
PACK and SHORT, then packs lines into multiple 
statement lines, maintains program logic 
RENUM - renumbers program lines including all 
GOTO's. etc You specify increment MOVE -moves 
any line or block ol lines to any new location in the 
program and renumbers lines. Written in machine 
language, supplied on tape in 3 versions lor 16K, 
32K. &48K For Level II or Disk Qasic $29.95 

4116 RAM CHIPS: Tested' Guaranteed tor 1 year to 

original purchaser 49 95 per 16K 

MODEM USERS: Call Wichita KS Forum-80 316 682 

2113 

SYSTEM TAPE DUPLICATOR: Copy your system tor 

mat tapes Includes verity routine 

For any Level II S14.9S 

CHESDISK: Transfers your copy ot Microchess to 

disk lor quick and easy access 

For any Level II Disk system 58.95 

CASSETTE LABEL MAKER: A mini-word processor 

to print cassette labels on a line printer. Includes 

manual and 50 peal and stick labels on tractor teed 

paper 

For 16K Level II and printer $15.95 

INSTRUCTION MANUALS tor any Cottage Software 
original programs available tor 20° e ot program list 

?nce Refundable when program purchased. 
RS-80* repairs and modifications Call or write tor 
into MANY MORE items available Call or write tor 
catalog. DEALER inquiries invited 
Kansas residents add 3% sales tax Foreign orders 
in US Currency only. 
Call our 24-hour phone: 316-683-481 1 or write 

"TRS-80 Is • registered trademark ol TANDY CORP." 

COTTAGE SOFTWARE ^ 

614 N Harding ^233 
I Wichita, KS 67208 



cTlON GRAPH.cs 



THE 

GREAT 

CRANE 

GAME 

MACHINE 



16K level II $15.00 




Speed Lightning 
Laser Warrior 
Reflexometer 
The Assistant 
Memory Mover 
Word Scramble 
Etch-A-Screen 



Breakout II 
1 4 Mile Drag 
Tic Tac Toe 
Sub-Attack 
Calculator 
TV Pow II 
Much More 



SPECIAL 

Free program with every tape order: 

ML/B language converter — change 

machine code to basic for cassette copies. 

FREE CATALOG 



The BERG WORKS 

BOX 742 B 
JANESVILLE, Wl 53545 



its. ..SOFTWARE 

SE Search Entry 

SE it a super fast, general purpose informalion retrieval 
program tor the TRS-80". The uses ol SE are limitless. 
It can be a tile system, a matching service, an inventory 
control, or a message center. Whenever fast searching of 
large amounts of data is needed. SE can be your program 

Written m Z80 machine language SE compares tens of 
thousands ol characters in a few seconds Simple commands 
add, change, or remove data entries. To search for entries 
up to 64 characters can be combined as targets tor immediate 
retrieval. SE occupies only 4K. the rest is storage and 
can be saved on tape or disk. 

The tape version for 16K level II. SE2.0, is $24.95, 
while the disk version for 00S up to 48K, SE3.0. is $49.95 
The price includes full documentation. 

Other TRS-80 its. ..Products 
COMPU DIET ■ Weight Loss System 

Behavior Mod. Forecast. Database 
MINIVENT Minimal Inventory Control 

1400 items. 16K Level II 
BASICIO Machine Language I O for BASIC 

Data and Programs to Tape or Disk 



Please send 

QSE2.0(lape) 4TJ24 95 ~COMPUDIET1.2.g$19 95 
~!SE3.0(disk) «J49 95 " MINIVENT 2.0 &S49 95 

J BASICIO 1.S (BS14 95 "Additional Information 

Fia Res add 4% Sales Ta» Total $ 

□ Check/Money Order J VISA J^MASTERCMARGE 

Card No E«p Date 

Name Bank No (MCi 

Address 



• 300 

its... Information Technology Systems 

POB 2667 Sarasota FL 33578 

(813)366-0064 

•TflS 6C is i trademark o' "*3.c Srac> a 'andy Co"DO'aiion 



^ Reader Service—see page 274 
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8D51 


3A458B 


02130 




LD 


A, (TYPE) 




8D54 


FE02 


02140 




CP 


2 




8D56 


2004 


02150 




JR 


NZ,S2 




8D58 


7B 


02160 




LD 


A,E 


.•Backspace past tab 


8D59 


D607 


02170 




SUB 


7 




8D5B 


5F 


02180 




LD 


E f A 




8D5C 


CI 


02190 S2 


POP 


BC 


.•Instructions replaced by JP 


8D5D 


El 


02200 




POP 


HL 




8D5E 


C9 


02210 
02220 
02230 




RET 










02240 


USE 


METHOD 


ZERO FOR EDIT 


COMMAND 






02250 














02260 










8D5F 




02270 EDITOR 


EQU 


$ 




7627 




02280 




ORG 


7627H 




7627 


5F8D 


02290 




DEFW 


EDITOR 




8D5F 




02300 




ORG 


EDITOR 




8D5F 


AF 


02310 




XOR 


A 




8D60 


32458B 


02320 




LD 


(TYPE) ,A 




8D63 


C3C14D 


0.2330 




JP 


ED 




8D66 




02340 CONT2 


EQU 


$ 




0000 




02350 




END 






00000 TOTAL 


ERRORS 











5CF9 
1307 
8D5F 
8D66 
8C2B 
8BAF 
8B61 
8B6 4 
8B67 
7605 

7605 45 

7606 5F8D 
7626 

7626 50 

7627 668D 
741F 
741F 05 



8D66 
8D66 
8D69 
8D6B 
8D6D 
8D6F 
8D71 
8D73 
8D76 
8D79 
8D7C 
8D7F 
8D81 
8D84 
8D87 
8D8A 
8D8D 



CDBB49 

280B 

FE4F 

2825 

FE45 

2841 

CDAF8B 

2A1541 

11F95C 

CDC24B 

2006 

21C647 

C32B47 

C32A4C 

CDBB49 

CO 



00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 



Program Listing 5. EDTASM 5 

INSTRUCTIONS: Run EDTASM4 , enter the text below, and assemble 
it to memory. Return to DOS and enter BASIC2; answer MEMORY SIZE 
with RETURN. Issue the SYSTEM command and respond to the prompt 
with /40960. You will automatically return to DOS. Enter 
DUMP EDTASM5/CMD (START=X ' 7000 ', END=X * 9236 ' ,TRA=X ' 8A00 ') . 



ENABLE P COMMAND WHEN BUFFER EMPTY 



; Owners 

; 1310H. 

BEGIN 

SIZE 

EDITOR 

CONT2 

TABLE1 

RETN 

X 

Y 

J 



of Version 1.2 should change BEGIN to 5CF0H and SIZE to 



EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

ORG 

DEFB 

DEFW 

ORG 

DEFB 

DEFW 

ORG 

DEFB 



5CF9H 

1307H 

8D5FH 

8D66H 

8C2BH 

8BAFH 

8B61H 

8B64H 

8B67H 

7605H 

•E' 

EDITOR 

7626H 
ipi 

CONT2 
741FH 
5 



PEEK AND POKE 



ORG 

CALL 

JR 

CP 

JR 

CP 

JR 

CALL 

LD 

LD 

CALL 

JR 

LD 

JP 

JP 

CALL 

RET 



ABORT2 



PRI 
LETTER 



CONT2 

49BBH 

Z , ABORT2 

'O' 

Z,POKE 

'E' 

Z,PEEK 

RETN 

HL, (4115H) 

DE,BEGIN 

4BC2H 

NZ,PRI 

HL,47C6H 

472BH 

4C2AH 

49BBH 

NZ 



interchange E 

;and P commands 

;Additional command with buffer empty 



;Next letter 



;Return letter to buffer 
;Buffer empty? 

;DE » BC? 

;No text in buffer 

;Print routine 
;Next letter 
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A 



CHRISTMAS SPECIALS 




16K Level II 26-1056 


$684.00 


16K Level III 26-1062 


$888.00 


64 K Model II 26-4002 


$3429.00 


OK Expansion 26-1 140 


$244.00 


ALL Radio Shack Printers & 




Software 15% Off 


SAVE 


16K RAM's (each) 


$ 5.50 


Printbox allows use of 2 




Lineprinters with TRS-80 


$ 69.95 


Verbatim 51A" (box 10) 


$ 24.50 


Verbatim 8" (box 10) 


$ 44.00 


Jus-Print Word Processor 




Model II (disk) 


$ 44.95 


Model I & III (disk) 


$ 29.95 


Tyme-Keeper (COBOL) 


$199.95 


Time Records Package Model II 




Back Issues of Kilo & 80 Micro 





Computers Unlimited 

1524 OAK HARBOR ROAO. FREMONT. OHIO 43420 419-332-4881 Collect 

We accept check, money order or phone orders with Visa or fJP 1 
Master Charge (Shipping costs added to charge orders). ■■■■ 

TRS-80 is a trademark of the Radio Shack Division of Tandy Corporation. 



II 



REDUCE PROGRAMMING 
EFFORT BY 50% 



II 



otf 1 



■/*** 



ffi 



- IN FOUR SIMPLE STEPS 

|1| Draw the Data Entry Form on the 
VIDEO SCREEN 

|2| Specify Chec>m| for Each Fiela 

Options. • Alpha Type Check 

• Length Check • No feW Checking 

•Num TypeCheck • Y/N Check 

1 3 1 Save Data Entry Control Form 

|4| DATAENTR Subroutines in 
Application COMPLETELY 
Control Data Entry 



ISA* 



too 



Get & Put Records to Disk 

File by KEY 
Read File in Key 

Sequence Without Sorting 
Delete Records Without 

Recopying File 
Add to Disk Files in Any 

Sequence 
Variable Key Length From 

1 to 50 Characters 



BUSINESS APPLICATION ADVANTAGES 

Standard Auto Operator Error Prompts 
Simplified Operator Training 
Reduced Program Dev Time 
Eliminate GarDaje in/Out Problems 



Imp Disk Utilization 
Easier Prog Development 
Improved Oper Characteristics 
Reduce or Eliminate Sorting 
Improved Performance 

DISTRIBUTED ON DISKETTE - - - INCLUDES. 



• Screen Prep Utility 

■ DATAENTR Subroutines 
' Example Program 

• Complete Documentation 

$80.00 

TRS-80* MODEL 
Johnson Associates 



• ISAM Subroutines 

• ISAM Utilities 

• Documentation 

• Mail list Sample Application 

$90.00 

& II SOFTWARE FROM: 
-or- 24 Hour Order Line 

P.O. Box 1 402M ^ 85 For Bank Card Sales 

Redding, C A 96001 (916)221-0740 

- WRITE FOR FREE CATALOG - 

TRS-80" Registered Trademark of the TANDY CORP 



THEIEM 



] hm 



YOUCANBUY. 



Up to 77 high-quality programs 
for TRS-80, only $10.95 



LEVEL II TAPES: 

'Tiny' Pascal runs on any 16K Level II system, includes the 
programming structuring capabilities of full Pascal, but not 
data structuring. 

Able to compile Z-80 machine code, programs run about 
five-times faster than Level II Basic — graphics run eight- 
times faster! Requires use of T-Bug and Edit-Assembler. 

Tape 3, People's Pascal I $19.95 

Tape 6P PASPATCH allows old Pascal II (no longer 
available) to use printer, floppy disk $15.00 

Tape 1, 34 business, educational, game programs $10.95 
Tape 2, 77 programs from Osborne book: 'Some Com- 
mon Basic Programs' $10.95 
Tape 5, 24 business, educational, game programs $10.95 
Tape 7, 31 business, educational, game programs $10.95 
Tape 8, about 30, including 1,700-baud tape loader $10.95 

PASPATCH (tape 6P) makes Tandy tiny Pascal 
a powerful disk system! 

• PEOPLE'S DATABASE. A SuperPims. PIMS compatible 
but fast and easier to use. For tape, disk. Poor Man's 
floppy, Zoom, Stringy Floppy, etc., all on one tape. $15.95 

• PEOPLE'S PAYROLL— We've tahen it from Computer 
Programming for the Complete Idiot, thus is very well 
documented. For all above systems. $10.95 
Book, documents People's Payroll $5.95 

NewBa sic— expands disk basic 
Now configure your Basic to do any or all of 
the following: 

• convert decimal to hex, and vice versa, 
provide character representation for each, 
or the hex/dec number of any character 

• Blinking cursor • repeat key • audible key 
entry (each key makes a sound) •directory 
command from Basic •disk load and disk run 
command file •graphic functions, including 
drawing blocks, lines, filling-in blocks 

• lowercase driver »RS232 driver 
(LPRINT/LLIST) •call function, hex-order 
number will execute subroutine • spooler and 
despooler •print togle, lprints your video 
display $24.95 

GAMES FOR COLOR TRS-80 
Tape contains the following: 

• PONG-80 ©ENTRAP •DEMOLISH 
(preakout-like) •TRAFFIC Grand Prix auto 
race*BETA TREK space game •SHUTTLE 
rocket ship game $19.95 
From Modular Software Assoc, by Ken 

Brown, Clarence Felong and Gary Shute 



it. add Slus per tap* (or postage 

ntt add t pet. tan. Dealer inquiries invited 



COMPUTER INFORMATION EXCHANGE 

Box 159 
. San Luis Rey CA 92068 



*> Reader Sew/c*— Me page 274 
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8D8E 


21A247 


00610 


ERR4 


LD 


HL,47A2H 


;Error 


8D91 


C32B47 


00620 




JP 


472BH 




8D94 


CD8A8D 


00630 


POKE 


CALL 


LETTER 




8D97 


FE4B 


00640 




CP 


■K' 




8D99 


20F3 


00650 




JR 


NZ , ERR4 




8D9B 


CD8A8D 


00660 




CALL 


LETTER 




8D9E 


FE45 


00670 




CP 


i E t 




8DA0 


20EC 


00680 




JR 


NZ , ERR4 




8DA2 


CD098E 


00690 




CALL 


SUB4 


;HL = address 


8DA5 


CD8A8D 


00700 




CALL 


LETTER 




8DA8 


FE2C 


00710 




CP 


■ i 
i 




8DAA 


20E2 


00720 




JR 


NZ , ERR4 




1 8DAC 


CDD48D 


00730 




CALL 


SUB1 


;DE = ascii of value 


I 8DAF 


CDE18D 


00740 




CALL 


SUB2 


;A = value 


8DB2 


77 


00750 




LD 


(HL) ,A 




8DB3 


C9 


00760 




RET 






8DB4 


CD8A8D 


00770 


PEEK 


CALL 


LETTER 




8DB7 


FE45 


00780 




CP 


•E' 




8DB9 


20D3 


00790 




JR 


NZ , ERR4 




8DBB 


CD8A8D 


00800 




CALL 


LETTER 




8DBE 


FE4B 


00810 




CP 


■K 1 




8DC0 


20CC 


00820 




JR 


NZ , ERR4 




1 8DC2 


CD098E 


00830 




CALL 


SUB4 


;HL = address 


8DC5 


7E 


00840 




LD 


A, (HL) 


;Value obtained by PEEK 


I 8DC6 


CD188E 


00850 




CALL 


CONV2 


;HL = ascii of A 


1 8DC9 


7C 


00860 




LD 


A,H 




8 DC A 


CD3947 


00870 




CALL 


4739H 


;Print on screen 


8DCD 


7D 


00880 




LD 


A,L 




8DCE 


CD3947 


00890 




CALL 


4739H 


;Print on screen 


8DD1 


CDD746 


00900 




CALL 


46D7H 


;Line feed and return to EDTASM 


8DD4 


CDBB49 


00910 


SUB1 


CALL 


49BBH 


;Subroutine gets two letters from 


8DD7 


28B5 


00920 




JR 


Z, ERR4 


; input buffer and loads them 


8DD9 


57 


00930 




LD 


D,A 


;into DE 


8DDA 


CDBB49 


00940 




CALL 


49BBH 




8DDD 


28AF 


00950 




JR 


Z , ERR4 




8DDF 


5F 


00960 




LD 


E,A 




8DE0 


C9 


00970 




RET 






8DE1 


C5 


00980 


SUB2 


PUSH 


BC 


.•Subroutine takes two ascii hex 


8DE2 


7B 


00990 




LD 


A,E 


;digits in DE and returns the 


11 8DE3 


CDF48D 


01000 




CALL 


SUB3 


;value of this number in A 


| 8DE6 


5F 


01010 




LD 


E,A 




8DE7 


7A 


01020 




LD 


A,D 




8DE8 


CDF48D 


01030 




CALL 


SUB3 




8DEB 


57 


01040 




LD 


D,A 




8DEC 


7B 


01050 




LD 


A,E 




8DED 


0610 


01060 




LD 


B,16 




8DEF 


82 


01070 


AH A A 


ADD 


A,D 




8DF0 


10FD 


01080 




DJNZ 


AHAA 




8DF2 


CI 


01090 




POP 


BC 




8DF3 


C9 


01100 




RET 






8DF4 


E5 


OHIO 


SUB3 


PUSH 


HL 


.•Subroutine converts A from ascii 


8DF5 


C5 


01120 




PUSH 


BC 


;number to the number itself 


| 8DF6 


0610 


01130 




LD 


B,16 




8DF8 


212B8C 


01140 




LD 


HL,TABLE1 




1 8DFB 


BE 


01150 


LO0P2 


CP 


(HL) 




8DFC 


23 


01160 




INC 


HL 




8DFD 


2806 


01170 




JR 


Z f OUT 




8DFF 


23 


01180 




INC 


HL 




8E00 


10F9 


01190 




DJNZ 


LOOP2 




8E02 


C38E8D 


01200 




JP 


ERR4 




8E05 


7E 


01210 


OUT 


LD 


A, (HL) 




8E06 


CI 


01220 




POP 


BC 




8E07 


El 


01230 




POP 


HL 




8E08 


C9 


01240 




RET 






j 8E09 


CDD48D 


01250 


SUB4 


CALL 


SUB1 


;Subroutine inputs four letters 


1 8E0C 


CDE18D 


01260 




CALL 


SUB2 


;from buffer and puts the 


; 8E0F 


67 


01270 




LD 


H,A 


,-corresponding number in HL 


8E10 


CDD48D 


01280 




CALL 


SUB1 




8E13 


CDE18D 


01290 




CALL 


SUB2 




8E16 


6F 


01300 




LD 


L,A 




8E17 


C9 


01310 




RET 






8E18 


0600 


01320 


CONV2 


LD 


B,0 


;Subroutine takes number in A 


8E1A 


D610 


01330 


LET 


SUB 


16 


;and converts it to ascii form 


8E1C 


3803 


01340 




JR 


C,NOW 


;in HL 


8E1E 


04 


01350 




INC 


B 




8E1F 


18F9 


01360 




JR 


LET 




8E21 


C610 


01370 


NOW 


ADD 


A, 16 




8E23 


CD2D8E 


01380 




CALL 


CONV3 




8E26 


6F 


01390 




LD 


L,A 




8E27 


78 


01400 




LD 


A f B 




8E28 


CD2D8E 


01410 




CALL 


CONV3 




8E2B 


67 


01420 




LD 


H,A 




8E2C 


C9 


01430 




RET 




Program continues 
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8E2D 


E5 


01440 


C0NV3 


PUSH 


HL 


/•Subroutine converts hex in 


A to 


8E2E 


C5 


01450 




PUSH 


BC 


;ascii in A 




8E2F 


212C8C 


01460 




LD 


HL f TABLE1+1 






8E32 


0610 


01470 




LD 


B,16 






8E34 


4F 


01480 




LD 


C,A 






8E35 


7E 


01490 


L00P3 


LD 


A, (HL) 






8E36 


B9 


01500 




CP 


C 






8E37 


2807 


01510 




JR 


Z,OUTl 






8E39 


23 


01520 




INC 


HL 






8E3A 


23 


01530 




INC 


HL 






8E3B 


10P8 


01540 




DJNZ 


LOOP3 






8E3D 


C38E8D 


01550 




JP 


ERR4 






8E40 


2B 


01560 


0UT1 


DEC 


HL 






8E41 


7E 


01570 




LD 


A, (HL) 






8E42 


CI 


01580 




POP 


BC 






8E43 


El 


01590 




POP 


HL 






8E44 


C9 


01600 
01610 
01620 
01630 
01640 
01650 


; X AND 


RET 

Y 








8E45 




01660 


Yl 


EQU 


$ 






8B64 




01670 




ORG 


Y 






8B64 


59 


01680 




DEFB 


• yl 






8B65 


458E 


01690 




DEFW 


Yl 






8E45 




01700 




ORG 


Yl 






8E45 


21P09C 


01710 




LD 


HL r 9CF0H 






8E48 


11F95C 


01720 




LD 


DE, BEGIN 


/Beginning of buffer 




8E4B 


010713 


01730 
01740 




LD 


BC,SIZE 


.•Temporary size of buffer 
.•eventually 1000H larger 




8E4E 


EDBO 


01750 




LDIR 








8E50 


21F95C 


01760 




LD 


HL, BEGIN 


;Set top of buffer 




8E53 


46 


01770 


LOOP4 


LD 


B, (HL) 






8E54 


23 


01780 




INC 


HL 






8E55 


7C 


01790 




LD 


A,H 






8E56 


FE80 


01800 




CP 


80H 


; Entire memory searched 


Program continues 



Software for TRS-80s 



WOBD8CBJBE trn 

Professional ward pro c ess ing for Model I 
or Model a. Full screen editing. Margin 
justification. Line insertion/ deletion. 
Block move/copy/delete. Global find 
and change. Much, much more. 

Model I (48k, 1 disk) $79.95 

Model II (64k) f 99.95 

WOEDPBIHT tm 

Text formatter for files created by 
Wordscribe or any ASCD. file. Uses 
embedded 2-character commands to 
control margins, justification, headers, 
spacing, page numbering, etc. 



Model I (48k, 1 disk) 
Model II (64k) 



$ 39.95 
$ 49.95 



MAkUNGLBTI 



A menu driven mailing list program with 
complete full screen editing. 

Model I (48k, 1 disk) $59.95 

Model D (84k) $ 69.95 

HOBDMAIL 

Pulls names and addresses from Mailing 
List I and Inserts into Wordscribe tiles. 



Model I (48k, 1 disk) 
Model D (84k) 



$ 39.95 
$ 49.95 



COMPLETE POEM LBTTEE 8 TOTEM 

war ascribe, W or dm ell, Mailing List I 

Model I (48k, 1 disk) $159.95 

Model II (64k) $ 199.95 



•NEMDOS is a trademark of Apparat 



• 437 

T1LSA HICRI SYSTEMS 

114 WestTaft 

Sapulpa, Ok. 74066 

(918) 224-4260 



TMS FEATUEE OP THE MOMTM 



AUTOMATED PILE HAW DUMP PEOOEAM 

So far beyond those so-called "data base 
managers'' that it requires a new terra — 
"automated file handling program." 
Describe, create or update any type of file, 
then automate the calculation, sort and 
report phases of the task. 

$ 99.95 



T9QOEE-GBAF 

Create engineering, scientific or ]ust fun 
graphics on your IDS 440O printer. Resolu- 
tion is 495 x 575. Easy Basic program i 
provided for data entry and machine language 
modules for speed. Several pictures can be 
concatenated along the Y-axis for larger 
graphs. 

Model I (48k,2 disk) $149.95 

OEBBTMAB tm 

The only totally flexible data base manager 
for the Model I or Model n. No fields or 
keys. Automatic linking of all related 
information allows instant retreival by 
subject, type of information, partial 
contents; even performs analogies. 



Model I (48k, 2 disk) 
Model U (84k) 



$ 79.95 
$ 99.95 



Software for TRS-80s 



onuriMS foe model i 

PENCIL FIX - Modify Pencil to use RS 
lower case modification. Redefines 
control key to be the • key and switches 
the lc/uc toggle to the shifted Break 
key. Save your warranty. 
Disk $ 14.95 

SPOOL R EL 1 m - An in-memory print 
spooler that runs in Model I 32k or 48k 
olsk system, under Newdos* or 
Trsdos**. Fully relocatable code and 
buffer. Buffer sin is user selected. A 
true background spooler at an 
unbelievably low price. 
32k, disk $ 24.95 

PRIHT-CENTBAL lm - A utility for 
those with smart printers. To send a 
control code to your printer, simply 
press the Clear key and the appropriate 
letter key and see instant execution. 
Any code from 1 to 31 may be sent. 
Model I only $ 24.95 

SUPERLBT - Allows you to debug and 
edit your programs with live cursor 
control. Trace Oosubs and Gotos. 
Global search. Insert lines. 
48k, disk $ 29.95 

SUPERPR1NT - Format your hardcopy 
listing to suit your needs, with spaces 
between lines, wider margins, if you 
choose. Even will trace Gosub routines 
to make debugging easier. 
32k, disk $ 14.95 

••TRS-80 and TRSDOS are trademarks 
of Tandy Corporation. 



^ Amosy Sesv/ce — see peoe 274 
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8E58 


280F 


01810 




JR 


Z , ERR5 






8E5A 


78 


01820 




LD 


A,B 






8E5B 


FEFF 


01830 




CP 


0FFH 






8E5D 


20F4 


01840 




JR 


NZ,LOOP4 






8E5F 


7E 


01850 




LD 


A, (HL) 






8E60 


FEFF 


01860 




CP 


0FFH 






8E62 


20EF 


01870 




JR 


NZ , LOOP4 






( 6E64 


2B 


01880 




DEC 


HL 






8E65 


221541 


01890 




LD 


(4115H) ,HL 


;Top of buffer 




8E68 


C9 


01900 




RET 








8E69 


21F95C 


01910 


ERR5 


LD 


HL, BEGIN 


; Error, so make an empty 


buffer 


! 8E6C 


221541 


01920 




LD 


(4115H) ,HL 






, 8E6F 


36FF 


01930 




LD 


(HL) ,0FFH 






8E71 


23 


01940 




INC 


HL 






8E72 


36FF 


01950 




LD 


(HL) ,0FFH 






8E74 


C9 


01960 




RET 








8E75 




01970 


XI 


EQU 


$ 






8B61 




01980 




ORG 


X 






8B61 


58 


01990 




DEFB 


•X' 






8B6 2 


758E 


02000 




DEFW 


XI 






8E75 




02010 




ORG 


XI 






8E75 


2A1541 


02020 




LD 


HL, (4115H) 






8E78 


23 


02030 




INC 


HL 






i 8E79 


23 


02040 




INC 


HL 


;End of buffer 




I 8E7A 


37 


02050 




SCF 








8E7B 


3F 


02060 




CCF 








1 8E7C 


11F95C 


02070 




LD 


DE, BEGIN 






8E7F 


ED52 


02080 




SBC 


HL,DE 


;Size of buffer 




8E81 


E5 


02090 




PUSH 


HL 






8E82 


E5 


02100 




PUSH 


HL 






8E83 


21F95C 


02110 




LD 


HL, BEGIN 






8E86 


11F09C 


02120 




LD 


DE,9CF0H 






8E89 


CI 


02130 




POP 


BC 






8E8A 


EDBO 


02140 




LDIR 




;Move into high memory 




8E8C 


21F09C 


02150 




LD 


HL,9CF0H 






8E8F 


Dl 


02160 




POP 


DE 






8E90 


19 


02170 




ADD 


HL,DE 


;Top of high memory 




8E91 


E5 


02180 




PUSH 


HL 






8E92 


7C 


02190 




LD 


A,H 






8E93 


CD188E 


02200 




CALL 


CONV2 






8E96 


7C 


02210 




LD 


A,H 






8E97 


32C68E 


02220 




LD 


(DATA) ,A 






8E9A 


7D 


02230 




LD 


A,L 






8E9B 


32C78E 


02240 




LD 


(DATA+1) ,A 






8E9E 


El 


02250 




POP 


HL 






8E9F 


7D 


02260 




LD 


A,L 






8EA0 


CD188E 


02270 




CALL 


CONV2 






8EA3 


7C 


02280 




LD 


A,H 






8EA4 


32C88E 


02290 




LD 


(DATA+2) ,A 






8EA7 


7D 


02300 




LD 


A,L 






8EA8 


32C98E 


02310 




LD 


(DATA+3) ,A 






8EAB 


21B18E 


02320 




LD 


HL,TEXT 






8EAE 


C32B47 


02330 




JP 


472BH 






8EB1 


28 


02340 


TEXT 


DEFB 


•C 






8EB2 


53 


02350 




DEFB 


'S' 






8EB3 


54 


02360 




DEFB 


, T i 






8EB4 


41 


02370 




DEFB 


'A' 






8EB5 


52 


02380 




DEFB 


'R' 






8EB6 


54 


02390 




DEFB 


1 m 1 






8EB7 


3D 


02400 




DEFB 


1 _ 1 






8EB8 


58 


02410 




DEFB 


■x' 






1 8EB9 


27 


02420 




DEFB 


III 






8EBA 


39 


02430 




DEFB 


• 9 I 






8EBB 


43 


02440 




DEFB 


•c 1 






8EBC 


46 


02450 




DEFB 


l F l 






8EBD 


30 


02460 




DEFB 


'0' 






8EBE 


27 


02470 




DEFB 


III 






8EBF 


2C 


02480 




DEFB 


1 I 




■ 


8 ECO 


45 


02490 




DEFB 


'E' 






8EC1 


4E 


02500 




DEFB 


■N' 






8EC2 


44 


02510 




DEFB 


'D' 






8EC3 


3D 


02520 




DEFB 


• = • 






8EC4 


58 


02530 




DEFB 


'X' 






8EC5 


27 


02540 




DEFB 


iii 






8EC6 


2A 


02550 


DATA 


DEFB 


i * i 






8EC7 


2A 


02560 




DEFB 


i * i 






8EC8 


2A 


02570 




DEFB 


• * • 






8EC9 


2A 


02580 




DEFB 


t * » 






8 EC A 


27 


02590 




DEFB 


iii 






8ECB 


A9 


02600 
02610 
02620 
02630 


; J 


DEFB 


•) '+128 




Program continues 
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ACCEL2: Compiler for TRS-80 Disk BASIC. 
Compiles selected subset to Z80 machine code in 
all four variable types, compact 1 K run-time com- 
ponent controls interpreter to streamline all other 
statements and functions. Technique minimises 
code expansion without impairing huge speedups 
for true double optimisation. Six diagnostic mes- 
sages. Local/Global options increase compatibility 
with subject programs. Output save to Disk. 
instructions for self-contained SYSTEM tape. 
Professionals note: No royalties on the derived 
code' ACCEL2 brings your BASIC programs alive. 
Its like having a 100 mhz clock! $88.95 

Developed by Southern Software in England, 
now available in US from . . . 

ALLEN GELDER SOFTWARE -" 
Box 11721 Main Post Office 
San Francisco. CA 94101 

TRS-80 tm Radio Shack/Tandy Corp. 



TEXAS COMPUTER SYSTEMS 

Radio /hack 

Authorized Sales Center, offers 

LOWEST PRICES . 



TRS-80 



COMPUTERS 

For ttw RST pnc« M »Ll TKJP computers. CAU our TOU FKf MMKR 1-NSS5I -1471. Ml 
Radio Stuck" computers art discounted 10%, 11% ■■ to 20%! CM1 tor the litest prices on the items 
you need, or jet adncc Irom our consultant about »Our specific needs CAU tor prices on the Model I II 
and the new Model III. Color Computer and Pocket Computer 

INK up to H% on accessories (non-Radio Shack" ) Need more disk space' Art about unf le DOUtU 
DENSITY controller tor the Model I 300k in a 2-disk system 5 minute installation «no modifications 
Copies your sunk density data to DOWLE lor complete compatabihty Less than 1200 

40 track disk drnes 1359 16k memory add on only $58 » 'instructions Specify computer o> rioamion 
interface CALL for information on Proframs amiable 

* UPS prepM) insured delncry— UK eicept some larfe items 
» No taie» on out-of-state shipments Teus res Add 5t 

* All merchandise is mem checked and guaranteed by manufacturer 

* Payment Money Order Cashiers Check Certified Check Personal Checks require 3 weeks to clear 
VISA MASTERCHARGE-Add 3t 

* Prices subyect to chanfe at any time 

* Oetnory of merchandise is subject to nailability 

TCS, 106 East 10th, Brady, TX. 76825 

An Authorized MOW SHACA' Sales Center F70 1 

TOLL FREE Order Number 1-800-351 1473 
Texas Residents 915-597-0673 




CafDala Systtms Prasants 



►^294 



WordMagic II 

Complete WORD PROCESSING 

designed specifically for 

The Radio Shack TRS-80 Model II Computer 

WordMagic n " is a Word Processor designed specif r 
caiiy tor the Radio Suae* TRS 80 Model m Computer ■ 

FEATURES INCLUDE: 

• Mailing List/Labels Generation 
•Automatic Merging of Mailing Data 

with Text Files to created "PER- 
SONALIZED" Form Letters 
•Automatic wrap-around in text entry 

• Margination, Paging, Complete Cur- 
sor Movement 

•Complete Editing Commands— Inser- 
tion, Global Substitution, Overwrite, 
etc. 

•Centering, Smooth Right, Left Justify 

•Table of Contents Generation 

•Automatic Page Numbering 

•Variable Form Lengths 

•Underlining 

• Line Numbering 



ftcomxi Ml Mcx>>i ». THSOOS • wSici.oi«.o,.«« ■»!• Wo'<>M*g>ci 
tntrottuctorj Pncin« I T9S.0O Manna' 120 (C»l »•> MW i»«> 



CalDataSystams \lPj P.O. Box 1784*6 
Sa n Diago. CA 9211 7 (71 4) 2722661 



250 
PROGRAMS! 



65 Plot 

Sottwira 
Catalog 



That's how many 
are included in our 
Fall/Winter catalog, 
and are in stock and ready to 
ship. We represent all of the 
major TRS-80 Software Ven- 
dors (Instant Software, The 
Bottom Shelf, Softside, 
Small Business Systems 
Group, and many more) — 
Over 50 Vendors repre- 
sented in our product line. 
We believe we have the most 
complete selection of soft- 
ware for the TRS-80 — all 
priced at manufacturer's 
prices from $7.95 to $99.95. 
Business, home, games, 
education, programmer's 
utilities. COMPLETE pro- 
gram descriptions. 

SEND FOR OUR FREE " 470 
65 PAGE CATALOG TODAY! 

MICRO COMPUTER SYSTEMS 

3104 EAST SHADOWLAWN, N.E. 
ATLANTA, GA. 30305 




CASIO 

Calculator Watch 

4 Function Calculator 
Time - Calendar Display 
1/100 sec. stopwatch 
Dual Time 

$42.95 



XK) 



Command Console 
Ultrasonic Consols 
Cordless Controller 
TIMER NEW' 
Lamp, Appliance Module 
Wall Switch 



31.95 
33.95 
16.95 
59.95 
13.49 
14.95 



TELEPHONE ANSWERING 

Code-A-Phone Record a Call 

1000 97.95 80A 199.95 

1750 20995 90A 279.95 



PRINTERS 

EPSON MX -80 
CENTRONICS 737 



499.00 
799.00 



•^266 



SYNAPSE VIDEO 

P.O. BOX 962 

New York. N.Y. 10003 



^ Reader Service— see page 274 
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02640 


. 












02650 


; 








8ECC 




02660 


Jl 


EQU 


$ 




8B67 




02670 




ORG 


J 




8B67 


4A 


02680 




DEFB 


'J' 




8B68 


CC8E 


02690 




DEFW 


Jl 




8ECC 




02700 




ORG 


Jl 




8ECC 


CDBB49 


02710 




CALL 


49BBH 


;Next letter 


8ECP 


CA8E8D 


02720 




JP 


Z , ERR4 




I 8 ED 2 


FE55 


02730 




CP 


•u' 




8ED4 


2004 


02740 




JR 


NZ , FANCY 




8ED6 


CD098E 


02750 




CALL 


SUB4 




8ED9 


E9 


02760 




JP 


(HL) 




8 EDA 


CDAF8B 


02770 


FANCY 


CALL 


RETN 




8EDD 


210040 


02780 




LD 


HL,4000H 


;Save bottom of EDTASM 


8EE0 


11F099 


02790 




LD 


DE,99F0H 




8EE3 


010003 


02800 




LD 


BC f 300H 




8EE6 


EDBO 


02810 




LDIR 






8EE8 


CD098E 


02820 




CALL 


SUB4 




8EEB 


31EF99 


02830 




LD 


SP, 99EFH 


;Put stack elsewhere 


8EEE 


EB 


02840 




EX 


DE f HL 




8EEF 


21018F 


02850 




LD 


HL, CLEAN 


;Will return here after jump 


8EF2 


E5 


02660 




PUSH 


HL 




8EF3 


D5 


02870 




PUSH 


DE 




8EF4 


21368F 


02880 




LD 


HL, BASIC 


;Put BASIC fixed ROM in position 


8EF7 


110040 


02890 




LD 


DE,4000H 




8EFA 


010003 


02900 




LD 


BC,300H 




8EFD 


EDBO 


02910 




LDIR 






8EFF 


El 


02920 




POP 


HL 




8F00 


E9 


02930 




JP 


(HL) 




8F01 


F3 


02940 


CLEAN 


DI 




.-Return bottom of EDTASM to 4000H 


8F02 


21F099 


02950 




LD 


HL,99F0H 




8F05 


110040 


02960 




LD 


DE,4000H 




8F08 


010003 


02970 




LD 


BC,300H 




8F0B 


EDBO 


02980 




LDIR 






8F0D 


C3DA46 


02990 
03000 

03010 


» 


JP 


46DAH 








03020 


; DEBOONCE ROUTINE FOR BASIC 


ROM 






03030 


1 












03040 


; 








8F10 




03050 


BASDEB 


EQU 


S 




8F10 


213640 


03060 




LD 


HL, 16438 




1 8F13 


010138 


03070 




LD 


BC, 14337 




8F16 


1600 


03080 




LD 


D,0 




8F18 


OA 


03090 


LI 


LD 


A, (BC) 




8F19 


5F 


03100 




LD 


E,A 




8F1A 


AE 


03110 




XOR 


(HL) 




8F1B 


73 


03120 




LD 


(HL),E 




8F1C 


A3 


03130 




AND 


E 




8F1D 


2008 


03140 




JR 


NZ,MI 




8F1F 


14 


03150 




INC 


D 




8F20 


2C 


03160 




INC 


L 




8F21 


CB01 


03170 




RLC 


C 




8F23 


F2188F 


03180 




JP 


P,LI 




8F26 


C9 


03190 




RET 






8F27 


5F 


03200 


MI 


LD 


E,A 




8F28 


C5 


03210 




PUSH 


BC 




8F29 


01DF04 


03220 




LD 


BC,1247 




8F2C 


CD6000 


03230 




CALL 


96 




8F2F 


CI 


03240 




POP 


BC 




J 8F30 


OA 


03250 




LD 


A, (BC) 




8F31 


A3 


03260 




AND 


E 




8F32 


C8 


03270 




RET 


Z 




j 8F33 


C3FB03 


03280 




JP 


1019 




8F36 




03290 


BASIC 


EQU 


$ 




! 9236 




03300 
03310 
03320 


CONT3 
» 

; 


EQU 


BASIC+300H 








03330 


; TEMPORARY CODE TO PLACE BASIC IN POSITION 






03340 


t 












03350 


i 








I AOOO 




03360 




ORG 


0A000H 




A00O 


21108F 


03370 




LD 


HL, BASDEB 




A003 


221640 


03380 




LD 


(16406) ,HL 




A006 


F3 


03390 




DI 






A007 


210040 


03400 




LD 


HL,4000H 




AOOA 


11368F 


03410 




LD 


DE, BASIC 




AOOD 


010003 


03420 




LD 


BC,300H 




A010 


EDBO 


03430 




LDIR 






A012 


C30000 


03440 




JP 







0000 




03450 




END 






00000 TOTAL 


ERRORS 











236 • 80 Microcomputing, December 1980 



N€UI FROM 
MICRO-SVSTCMSII! 

Micro-Systems Software Inc. now offers you two new, and powerful 
dish backup utilities, superbock and multibock. 

Superbock is the backup program you've always dreamed of, but 
no-one ever sold. Superbock will backup any 5 1 /4" diskette that will 
work in your TRS-80*. Anything that will boot-up. we will backup 
Specifically, this program will scan any diskette created by either the 
1 771 or 1 791 disk controller chips. After scanning the disk, the prog- 
ram will then proceed to bock it up with the same format that it 
currently has. 

Multibock is our new multiple backup program It is specifically 
designed for smaller software houses, like ourselves, who don't hove 
the giant diskette copying machines. It will moke three backups of o 
single disk simultaneously. Simply insert the master diskette in drive 
zero, and blanks in drives one. two and three, press enter and this 
program will copy the first disk onto the other three A reol time-and- 
effort saver! 

Superbock and multibock both retail for $ 1 9.95 To order, concoct us 
ot the address below 



(^^^fj ^^W£^ 



ff)/cro>SYsrems 

SOfTLUdre-/nc ~ 

Specializing in the Tandy Line 

^384 

5846 Funston Street 
(305) 983-3390 Hollywood, FL 33023 




*TRS - 80 is o Uodemork of Tandy Corp 

- Doubler is a trademark of Percom Data Corp 

^^^^— ^ Nouj available m Spanish - ■ ■^— 



STOP PLAYING GAMES 



TRS-80 (Level II) 

APPLE 
OTHERS 






Calculate odds on HORSE RACES with ANY COMPU- 
TER using BASIC. 

t SCIENTIFICALLY DERIVED SYSTEM really works. TV 
Station WLKY of Louisville. Kentucky used this sytem 
to predict the odds ot the 1980 Kentucky Derby See 
the Wall Street Journal (June 6. 1980) article on 
Horse-Handicapping This system was written and 
used by computer experts and is now being made available to home computer owners This 
method is based on storing data from a large number of races on a high speed large scale 
computer 23 factors taken from the Daily Racing Form were then analyzed by the 
computer to see how they influenced race results From these 23 factors ten were found to 
be the most vital in determining winners NUMERICAL PROBABILITIES of each of these 10 
factors were then computed and this torms the basis of this REVOLUTIONARY NEW 
PROGRAM 

I SIMPLE TO USE Obtain Daily Racing Form the day before the races and answer the 10 
questions about each horse Run the program and your computer will print out the odds tor 
all horses in each race COMPUTER POWER gives you the advantage 1 

I YOU GET 1 1 TRS-80 (Level II) or Apple Cassette 

2) Listing of BASIC program tor use with any computer 

3) Instructions on how to get the needed data from the Daily Racing Form 

4) Tips on using the odds generated by the program 

5) Sample form to simplify entering data for each race 



MAIL COUPON OR CALL TODAY 

3G COMPANY, INC. DEPT. M-80 
RT. 3, BOX 28A, GASTON, OR 97119 

Yes. I want to use my computer for FUN and PROFIT Please send me 
atS19.95 8»ch. 

I need a ] TRS-80 Cassette or J Apple Cassette 

Enclosed is \ check or money order 



(503) 357-9889 



Master Charge ' Visa 



Card No 
NAME 



Exp date 



ADDRESS 
CITY 



STATE . 



.ZIP. 



START USING YOUR COMPUTER FOR 

FUN and PROFIT! 



Complete LNW 

Expansion 

Interfaces 



rhe LNW Svf 


em Expansion offi 


r. one of the best alternatives 


m the Radio 


Shack interface, a 


nd now with a complete kit 


from COMPI TEX it - W«l belle 


r We studied the |.C. market 


for three mon 


hs and averaged the cost ol procurnr 


g compo 


nents for thr 


_NW board We f 


>und that bv shopp 


ng for the 


best prices fr 


»m over 10 vend.. 


rs, ihe LNW board 


could be 


assembled for 


an average parts c 


jsi of $ >bi 00 not 


including 




COMF1 TEX sa 


es vou time and 


lonev bv 


offering a cor 


nplete IAW svsten 


expansion kit for 


S 249 00 


(lev. RAM a 


nd Cassette Relav 


We even mclui 






unl\ is the LXW 


TOMPITEN expan 


ion inter 


face better e 


eciricallv. »r\r rr 


ade it -he best TRS80ltm-| 




erface b\ designin 


l and building a cu. 


torn cabi 


net for K 


•TRS80 


1 d trademark of Ti 


ndy Corp 


The CPT tab 


nets for the LNW 


interfaces are made 


ot quality 


birch wood . 


custom finished 


n a light walnut l 


olor then 


trimmed arou 


nd the front hy a 


uminum molding 


Two cabi- 



The CPT10OO cabinet will hold the LNW Board, and power 
supplies for both keyboard and the LNW system expansion 
Measurements I S" wide x I J«." deep x 5 V tall S 89 95 

The CPT2000 cabinet has all of the features of the CPT 1 000 
but will hold up to two disk drives, power supplies, and even 
has a cut out for a muffin fan The CPT:000 has a removeable 
front panel that comes with cutouts for I or 2 disk drives or 
with no cutouts The CPT 2000 measures 15V wide x 13V. 
deep x iV tall 1 99.95 



LNW System Expansion Kit 

( Assembled I 
CPT 1 000 Cabinet 
CPT 2 000 Cabinet 
LNW System Expansion Board 
Tl (Radio Shack) Transformer for LNW 
Keyboard to Fl/F Cable 
Muffin Fan for CPT 2000 



5 249.00 
349.00 
89 95 
99 95 
69 00 
2195 
19.95 
14.95 



I Individual 



ipnn 



Disk Drives 



COMPI I I \ reviewed all major disk drives available on the 
market prior to becoming a dealer for anyone The drive we 
selected to market is the Tandon TM 100 Series Compare 
their specifications and features and we think vou 'II agree that 
the Tandon TM 100 Series of Disk Drives are the best available 
Tandon is the leading designer and supplier of read/write 
heads for most other disk drive manufacturers 
Track to Track access time of 5 milliseconds 
No head load time required, most others take 35 M S 
Read / write head guaranteed for 20.000 hours 
Quieter than most other disk drives 
First successful manufacturer of double headed drives 
Model Description Base Price With Supply 

Caae 
TMI00-I 40 Track Single Headed $225 00 $299 95 

TM100-2 40 Track Double Headed 325 00 399.95 

TMI00-3 80 Track Single Headed 375.00 449.00 

TMI00-4 80 Track Double Headed 475 00 549 00 

All above drives will operate single or double density 
For those that still insist on MPI and Shugart 

Basic Unit With Supply 

Case 

MPIB5 1-40 Track Single Headed $275.00 349.00 

MPIB52-40 Track Double Sided 375.00 449.00 

Shugart SA400-3* Track Single Sided 255.00 329 00 

Computex carries or can supply most any 
TRS80 System or peripherals (Call for quotes) 

VARIOUS OTHER SPECIALS! 

Novation / Cat Modem $ 179.00 

Verbatim / Scotch diskettes (Box 10) 24.95 

16 K KA.M Chips 8 / 54.95 

Radio Shack Systems 

Level II - 16K RAM $ 700.00 

La?vel II 4 K RAM 595.00 

Model II 64K System 3.500.00 

OK Expansion Interface $ 259.00 

16K Expansion interface (our RAM) 339 00 
32K Expansion Interface (our RAM) 419.00 
Software 

Newdos 80 $ 149 00 

Dosplus 99.95 

Electric Pencil(model I disk) $ 150 00 

Electric Pencil(model I cassette) 100 00 



Centronics 737 



For the first lime ever, Irue letter uualilv printing for under 

$800 Compare qualilv. features and our price We think 

you'll agree that the 737 printer from COMPl'TEX I* 

unbeatable 

FEATURES 

Fan fold, letterhead and roll feed paper 

TRUE UNDERLINING CAPABILITIES 

Subscript and superscript printing 

Fast 80 CPS (proportional! and 50 CPS (monospaced I 

True descending lower case 

Right margin (ustification 

Optional foreign character sets 

Nx<J dot matrix or 7x8 dot matrix 

Expanded pnnt-10 CPI and 16 ? ("PI 

Bidirectional stepper motor 

80 or 132 column printing 

Best of all is the pnee $ 750 00 



All products sold by COMPl'TEX are 100% guaranteed for 90 days. A 1 year 100% guarantee 

ib available on all of our hardware for an additional 10% of the it»ms purchase price. 
\ ISA/Master Card accepted(add 4% to total) ALL ORDERS SHIPPED WITHIN 6 DAYS OF ORDER 
SHIPPING —UPS msured(call for rate) Personal checks held 2 weeks prior to shipping. ^415 

cod's accepted(may require 10% down) 17710 Heritage Ct., Webster, Tx. 77598 




mputex 

(713)332-4359 



y* Reader Service — see page 274 
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The program capitalizes auto- 
matically unless you add lower- 
case. The first letter of each 
sentence and the word I are 
always capitalized. Other char- 
acters will be printed in lower- 
case unless they are entered 
with SHIFT. The computer 
begins a sentence when it rec- 
ognizes a period or question 
mark followed by two spaces. 

TAB indicates the beginning 
of a new paragraph. TAB should 
not be used to jump from col- 
umn to column if you intend to 
print with TYPE. 

M2 and TYPE can be used to 
create titles and section head- 
ings. Enter a title by typing #, the 
title, and another #. The title will 
be centered. Since most titles 



consist of capital letters, the 
computer will print UNSHIFTED 
letters as capitals and SHIFTED 
letters in lowercase unless you 
add the lowercase modification. 
The characters ## inserted in- 
to the buffer alone are used to 
print a blank line. 

For housekeeping reasons, 
the computer will not print initial 
spaces on a line. It can be made 
to jump to the middle of a line by 
entering a tab and then continu- 
ing with the appropriate number 
of spaces. 

Several printing parameters 
can be changed using POKE. A 
detailed list of printing param- 
eters is given in Table 1. The 
number of characters on a line, 
the size of the left margin, and 



the paragraph indentation can 
be chosen at will. The computer 
can be made to single space or 
double space, it will add an ad- 
ditional line between para- 
graphs if desired, and it can be 
made to print titles using wide 
characters if your printer has 
that ability. 

The program will work with 
printers as narrow as Radio 
Shack's 32 column wide Quick 
Printer II. Obviously, a wider 
printer is preferable. 

Making the Modification 

To modify the assembler, 
follow the instructions at the 
end of this article. The modifi- 
cation proceeds in stages. First 
EDTASM is placed on disk using 



a famous trick. Next It is given 
the ability to assemble directly 
into memory; this step requires 
a tedious entry of code by hand. 
From then on, the assembler is 
used to modify itself. Modifica- 
tion becomes easier and easier 
as the assembler changes. 

There are two versions of ED- 
TASM, 1.1 and 1.2. If you own 
version 1.2, pay close attention 
to the comments which begin 
sections three, four, and five; 
they describe a small number of 
changes you must make in the 
listed code. 

Other comment lines inter- 
spersed throughout the code de- 
scribe changes you may wish to 
make in startup mode, printer 

continuous to page 250 













Program Listing 6. EDTASM 6 








00100 


; INSTRUCTIONS(A) : Run EDTASM5 . 


The code below converts the assembl 


er 






00110 


; to lower case for readers who 


have installed Radio Shack's lower 








00120 


; case 


modification. This code 


will work with most other lower 








00130 


; case 


modifications; rewrite it 


if necessary. If you do not have 








00140 


; a lower case 


modification, go 


to the next set of instructions. 








00150 




When th 


e code below is in place, the keyboard will work 








00160 


; exac 


tly as i 


t works under Radio Shack's BASIC software. EDTASM 








00170 


; will 


power up in upper case mode. To convert back and worth 








00180 


; between this 


mode and regular 


typewriter mode, press SHIFT-ZERO. 








00190 




The automatic capitolization feature of TYPE is intended 








00200 


; for 


those wi 


thout lowercase. 


If you make the lower case modifi- 








00210 


; cation, TYPE 


will print exactly what is on the screen. 








00220 
















00230 
















00240 


; LOWER CASE 












00250 
















00260 












9236 




00270 


CONT3 


EQU 


9236H 






8C4F 




00280 


HERE 


EQU 


8C4FH 






8B90 




00290 


OHH 


EQU 


8B90H 






734A 




00300 




ORG 


734AH 


;Keyboard accept all letters 




734A 


80 


00310 




DEFB 


80H 






8B90 




00320 




ORG 


OHH 


;Cancel "Method" case control 




8B90 


00 


00330 




DEFB 









8B91 


0000 


00340 




DEFW 









717B 




00350 




ORG 


717BH 


;Modify screen routine to print 




717B 


18 


00360 




DEFB 


18H 


;exactly what is received 




731A 




00370 




ORG 


731AH 


; Modify keyboard 




731A 


C3 


00380 




DEFB 


0C3H 






731B 


3692 


00390 




DEFW 


CONT3 






| 9236 




00400 




ORG 


CONT3 






9236 


B7 


00410 




OR 


A 


;Code replaced by JP 




9237 


CA1746 


00420 




JP 


Z,4617H 






923A 


F5 


00430 




PUSH 


AF 






923B 


3A6592 


00440 




LD 


A, (LOWER) 


; Keyboard mode 




923E 


FE01 


00450 




CP 


1 






9240 


280C 


00460 




JR 


Z, REGULA 






9242 


Fl 


00470 




POP 


AF 






9243 


FE61 


00480 




CP 


61H 


,-Shifted letter 




9245 


3806 


00490 




JR 


C,NOS 






9247 


FE7B 


00500 




CP 


7BH 






9249 


3002 


00510 




JR 


NC , NOS 






924B 


D620 


00520 




SUB 


20H 






924D 


C9 


00530 


NOS 


RET 








924E 


Fl 


00540 


REGULA 


POP 


AF 






924F 


FE7B 


00550 




CP 


7BH 


;Shifted letter 




9251 


30FA 


00560 




JR 


NC,NOS 






9253 


FE61 


00570 




CP 


61H 






9255 


3803 


00580 




JR 


C,N0S1 






9257 


D620 


00590 




SUB 


20H 


Program continues 
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M-80 

CONTROL BOX 



q» Th« M-80 OCTOPORT It a 

*oV-»j pie lo use interlace lor 



Jg*" 



sim- 
Ihe- 
TRS-80 COMPUTER. You can 
control 8 external devlcai and J 
aonae 8 external condition*. Each output uses a reed I 
relay and each input an opto-isolalor to electrically 
isolate your TRS-80. 

One or more controllers can be connected to either the • 
interface connector or the screen printer connector 

Each OCTOPORT la l 

shipped completely i 

assembled, tested I 

and INCLUDES the 

Interconnected ca- 

_ ble, a UL approved 

| power peck, and a 

year warranty. 

M-80 

OCTOPORT 

• 1S9.I 




: 



ASSEMBLED BURNED IN & TESTED 



Use your TRS-80. and our M-80 control box to program control 
energy savings devices st home or in your business Send for our 
free application notes todey. 



MULLEN COMPUTER PRODUCTS. BOX 6214. HAVWARD. CA 94644 

Oft PHONE 1415)783-2868 VTSA/MASTERCHARGE ACCEPTED. 
MCLUOE $ 1 .50 FOR SHUftNG 6) HANDLING CALIFORNIA RESIDENTS ADO TAX. 




THIS YEAR 
CP/1iDS 

FOR THE TRS MODEL II 



MASTER TAX— Professional tax preparation program. Prepares sched- 
ules A, B. C. D, E, F, G, R/RP. SE, TC, ES and forms 2106, 2119, 2210, 
3468, 3903, 2441, 4625. 4726. 4797, 4972, 5695 and 6251. Printing can be 
on readily available, ore-printed continuous forms, on overlays, or on com- 
puter generated, IRS approved forms. Maintains client history files and is 
interactive with CRAkJs GENERAL LEDGER II (see below) . . $995/$30 
Annual Update Fee S350 



GENERAL LEDGER II- Designed for CPA's. 
Stores complete 12 month detailed history of 
transactions. Generates financial statements, 
depreciation, loan amortizations, journals, 
trial balances, statements of changes in finan- 
cial position, and compilation letters. Includes 
payroll system with automatic posting to gen- 
eral ledger. Prints payroll register, W2's and 
payroll checks S450/S30 

Runs with widely accepted CP/M operating 
system 

Distributed by 

Lifeboat Associates 

1651 Third Avenue, New York, N.Y. 10028 
□ (212)860-0300 □ Telex: 220501 




boat Associates 

SOFTWARE 




ET 




The following BASIC PROGRAM, written on the TRS-80. was 
compiled using MICROSOFT'S BASIC COMPILER and SIMUTEK'S 
BASIC COMPILER. We feel the results speak tor themselves! 

IB ' SPEED TEST 

SIHuTEK ZBASIC COMPILER VS. MICROSOFT COMPILER 

15 OS: PAINT*, "HIT fl KEY WHEN READY TO STRRT TEST'; 
2fl I^IN(EYi:IFI^ Ba THEN2flELSEFQRZ»lT01l: 

FOSX=153SflT016383:PQKEX, 191:PRINTP€EK(X); :r€XTX 
31 FQflX=€T0127:FQRY=eTD47:SET(X,Y):rC)(TY,X 
:RJRX=127T0ISTEI^l:RJRY^7TGKTEP-l:fiESET(X,Y) 

: NEX TY, X: F0RX= 1TQ IBM : GOSUBIM*: NEXTX, Z 

41 CLS:PRINT"FINISHED WITH PROGMH TEST";: STOP 

1M RETURN 

BASIC PROGRAM SIZE: 320 BYTES 
PROGRAM RUN: 22 Minutes, 37 Seconds 



Compilers: 



Microsoft 



Simutek 



Compiled Size 
Compile Time: 
Program Run: 
System Req: 
Price: 



10057 Bytes 

14 Minutes 

17 Mm 04 Sec 

48K 1 Disk 

$195 00 



1 228 Bytes 

75 Seconds 

1 Mm 46 Sec 

16K LV II or 32-48K Disk 
Tape $99 00. Disk $1 29 00 



ZBASIC is an "Interactive Compiler' This means it is resident while 
you write your basic programs. You may compile your program and 
run it or save it, without destroying your resident basic program 1 In 
fact, lumping back and forth between your compiled program and 
your basic program is one of it's best features' 

Simutek's compiler allows saving your compiled programs to tape 
or disk. Programs may then be loaded by use of the system 
command for tape, or as a /CMD file from DOS This makes it 
extremely hard for people to "pirate'' your programs. 

Best of all. Simutek does not charge royalties on programs you sell 
that are compiled with ZBASIC 1 (Microsoft charges 10% or $200 a 
year!) 

Why use a complicated "Assembler" to write machine language 
programs when you can write them in ZBASIC? 



Some of tho basic commands supported by ZBASIC: 



(OH 

SET 

DATA 

INPUT 

PRINT 

SOR 



NEXT 

RESET 

RFAD 

INKFYS 

I PRINT 

LEN 



STEP 

POINT 

RESTORE 

LET 

PRINTS 

ASC 



F 

CHR$ 
END 
STOP 

usn 

VAI 



THEN 

RANDOM 

GOTO 

OUT 

SON 



FlSF 
RND ( I 

QOSU6 

INP 
IN" 



PEEK 

POKE 

CLS 

RETURN 

ABS 



ON GOTO 

ON GOSUB 

ON GOSUB 

ON GOSUB 



INT MATH * 



AND OR SOR 



Model I TRS-80 (or PMC-80) Only 

ZBASIC Tape Version: 10K Level II TRS-80 $99.00 

ZBASIC Disk Version: 32 or 48 K 1 Disk Sys. $1 20.00 

ZBASIC Manual Only: $28.00 

Credit Card or C O D Call Toll FrOO: (800) 828-1 1 40 

or send check or money order to 

SIMUTEK -.» 
COMPUTER PRODUCTS 

PO Box 13687 Tucson. AZ 85732 (602) 886-5880 

(COD Available S3 00 Extra) 

TRS-80 is a TM of Radio Shack, a Tandy Corp 



^ Reader Service— see page 274 
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9259 C9 


00600 




RET 






925A FE5B 


00610 


N0S1 


CP 


5BH 


;Unshifted letter 


925C 30EF 


00620 




JR 


NC , NOS 




925E FE41 


00630 




CP 


41H 




t 9260 38EB 


00640 




JR 


C,NOS 




i 9262 C620 


00650 




ADD 


A,20H 




i 9264 C9 


00660 




RET 






9265 00 


00670 


LOWER 


DEFB 





; Keyboard mode 


9266 


00680 


KEY 


EQU 


$ 




8C5C 


00690 




ORG 


HERE+0DH 


.•Immediately after debounce 


8C5C 6692 


00700 




DEFW 


KEY 


;see if shift-zero is pressed 


9266 


00710 




ORG 


KEY 


;if so, change keyboard 


9266 F5 


00720 




PUSH 


AF 




9267 7A 


00730 




LD 


A,D 


;Zero key 


9268 FE04 


00740 




CP 


4 




926A 2016 


00750 




JR 


NZ , NOC 




926C 7B 


00760 




LD 


A,E 




926D FE01 


00770 




CP 


1 




926F 2011 


00780 




JR 


NZ,NOC 




9271 3A8038 


00790 




LD 


A, (3880H) 


;Shift 


9274 FE01 


00800 




CP 


1 




9276 200A 


00810 




JR 


NZ , NOC 




9278 3A6592 


00820 




LD 


A, (LOWER) 




927B EE01 


00830 




XOR 


1 




1 927D 326592 


00840 




LD 


(LOWER) ,A 




9280 Fl 


00850 




POP 


AF 




9281 C9 


00860 




RET 






j 9282 Fl 


00870 


NOC 


POP 


AF 




| 9283 C30A44 


00880 
00890 
00900 


; 
} 


JP 


440AH 






00910 


; INSTRUCTIONS ( B) : The code below forms a new printer driver. 




00920 


; When 


the driver is in place, 


you may use both serial and parallel 




00930 


; printers. To convert to the 


serial printer, POKE 9327,01. 




00940 


; To convert b 


ack to the parallel printer, POKE 9327,00. 




00950 




The IN 


and OUT commands 


in the program refer to the serial 




00960 


; printer. If 


you do not have 


a serial printer, keep these 




00980 




Since p 


rinters differ, you may have to make some changes 




00990 


; in the code. 


Read the comments sprinkled throughout the text. 1 




01000 




When using this driver, 


you may press the BREAK key at any 




01010 


; time 


to stop 


printing and return to EDTASM. The printer can 




01020 


; type 


any desired number of lines per page. As written, the 




01030 


; printer will 


type continuously. To change the number of lines 




01040 


; per 


page, POKE 932A with the 


new number of lines (in hex). j 




01050 


; The 


printer 


will then print 


this number of lines, skip to the 




01060 


; next 


page, and resume printing there. It is assumed that the 




01070 


; total number 


of possible lines on a page is 66; this number too 




01080 


; can 


be chang 


ed by poking 932B with the new number (in hex). 




01090 


; To reset the 


line counter at 


(top of form), POKE 9329 with 00. 




01100 


; Finally, it 


is possible to pause at the end of each page if 




OHIO 


; you 


are typing on single sheets. To do so, POKE 932C with 01. 




01120 


; Continuous p 


rinting without 


these pauses can be resumed by 




01130 


; poki 


ng 932C 


with 00. 






01140 












01150 












01160 


; SERIAL PRINTER DRIVER 






01170 












01180 










j 9286 


01190 


PRINT 


EQU 


CONT3+50H 




72AA 


01200 




ORG 


72AAH 




72AA C3 


01210 




DEFB 


0C3H 




72AB 8692 


01220 




DEFW 


PRINT 




9286 


01230 




ORG 


PRINT 




9286 3A2793 


01240 




LD 


A, (PTYPE) 




9289 B7 


01250 




OR 


A 




928A F5 


01260 




PUSH 


AF 




928B 2816 


01270 




JR 


Z, AROUND 




928D 3A2893 


01280 


SERIAL LD 


A, (INIT) 


;Already initialized? 


9290 FE01 


01290 




CP 


1 




9292 280F 


01300 




JR 


Z , AROUND 




9294 3E01 


01310 




LD 


A,l 


;If not, initialize 


9296 322893 


01320 




LD 


(INIT) ,A 




9299 D3E8 


01330 




OUT 


(0E8H) ,A 


;Reset RS-232-C 




01340 


; The 


next instruction sets th 


e transmission rate at 1200 baud. 




01350 


; Use 


55H for 


300 baud and 66H 


for 600 baud. Consult the RS-232 




01360 


; manual for o 


ther values. 




929B 3E77 


01370 




LD 


A,77H 


,-1200 baud 


929D D3E9 


01380 




OUT 


(0E9H) ,A 






01390 


; The 


next instruction selects 


even parity, one stop bit, and 




01400 


; word length 


seven. Consult 


the RS-232 manual for other values. 


929F 3EA4 


01410 




LD 


A,0A4H 




92A1 D3EA 


01420 




OUT 


(0EAH) ,A 


Program continues 
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92A3 


Fl 


01430 


AROUND 


POP 


AF 








92A4 


CDFA92 


01440 




CALL 


OUTPUT 








92A7 


FEOD 


01450 




CP 


13 




.•Carriage return 




92A9 


CO 


01460 




RET 


NZ 












01470 


; Repl 


ace the 


next command « 


ith 


NOP, NOP if your printer does 








01480 


; not 


issue automatic line feeda 


after carriage returns. 




92AA 


1805 


01490 




JR 


AR3 








| 92AC 


OEOA 


01500 




LD 


C,10 




;Line feed 




92AE 


CDFA92 


01510 




CALL 


OUTPUT 








92B1 


3A2A93 


01520 


AR3 


LD 


A, (PAGE) 








92B4 


47 


01530 




LD 


B,A 








92B5 


3A2993 


01540 




LD 


A, (LINED 








92B8 


3C 


01550 




INC 


A 








92B9 


322993 


01560 




LD 


(LINED ,A 








92BC 


B8 


01570 




CP 


B 








92BD 


CO 


01580 




RET 


NZ 








92BE 


3A2B93 


01590 




LD 


A, (TOTAL) 








92C1 


90 


01600 




SUB 


B 








92C2 


B7 


01610 




OR 


A 








92C3 


280F 


01620 




JR 


Z,AR4 








92C5 


47 


01630 




LD 


B,A 








92C6 


OEOD 


01640 


AR5 


LD 


C,13 








92C8 


CDFA92 


01650 




CALL 


OUTPUT 












01660 


; Repl 


ace the 


next command with 


NOP, NOP if your printer does 








01670 


; not 


issue automatic line feeds after carriage returns. 




92CB 


1805 


01680 




JR 


AR6 








1 92CD 


OEOA 


01690 




LD 


C,10 








92CF 


CDFA92 


01700 




CALL 


OUTPUT 








92D2 


10F2 


01710 


AR6 


DJNZ 


AR5 








92D4 


3E00 


01720 


AR4 


LD 


A,0 








i 92D6 


322993 


01730 




LD 


(LINED ,A 








92D9 


3A2C93 


01740 




LD 


A, (PAUSE) 








92DC 


FE01 


01750 




CP 


1 








92DE 


CO 


01760 




RET 


NZ 








92DF 


3A4038 


01770 


AR7 


LD 


A, (3840H) 








92E2 


FE04 


01780 




CP 


4 




; Break 




92E4 


CADA46 


01790 




JP 


Z,46DAH 








1 92E7 


FE01 


01800 




CP 


1 




; Enter 




92E9 


C8 


01810 




RET 


Z 








92EA 


FE80 


01820 




CP 


128 




; Space 




92EC 


C8 


01830 




RET 


Z 








92ED 


18F0 


01840 




JR 


AR7 








92EF 


F5 


01850 


BREAK 


PUSH 


AF 








92F0 


3A4038 


01860 




LD 


A r (3840H) 








92F3 


FE04 


01870 




CP 


4 








92F5 


CADA46 


01880 




JP 


Z,46DAH 








92F8 


Fl 


01890 




POP 


AF 








92F9 


C9 


01900 




RET 










92FA 


3A2793 


01910 


OUTPUT 


LD 


A, (PTYPE) 








| 92FD 


B7 


01920 




OR 


A 








1 92FE 


2816 


01930 




JR 


Z , PARALL 








9300 


DBEA 


01940 




IN 


A, (0EAH) 




.•Transmitter holding register 




9302 


CB77 


01950 




BIT 


6, A 








9304 


CDEF92 


01960 




CALL 


BREAK 








9307 


28F1 


01970 




JR 


Z , OUTPUT 












01980 


; The 


next four instruction! 


provide a handshake with the printer. 








01990 


; If you do not have handshake capability, replace them with 








02000 


; nine 


NOP ' s . 


You may want 


to look at a different status bit; 








02010 


; consult the 


manual if so. 








9309 


DBE8 


02020 


AR2 


IN 


A, (0E8B) 




> Printer ready? 




930B 


CB77 


02030 




BIT 


6, A 








930D 


CDEF92 


02040 




CALL 


BREAK 








1 9310 


20F7 


02050 




JR 


NZ f AR2 








9312 


79 


02060 




LD 


A,C 








9313 


D3EB 


02070 




OUT 


(0EBH) ,A 








9315 


C9 


02080 




RET 










9316 


3AE837 


02090 


PARALL 


LD 


A, (37E8H) 








9319 


E6F0 


02100 




AND 


0F0H 








931B 


FE30 


02110 




CP 


30H 








i 931D 


CDEF92 


02120 




CALL 


BREAK 








9320 


20F4 


02130 




JR 


NZ , PARALL 








9322 


79 


02140 




LD 


A,C 








9323 


32E837 


02150 




LD 


(37E8H) ,A 








9326 


C9 


02160 




RET 














02170 


; Repl 


ace the 


next value by 


xero if you do not have a serial 








02180 


; printer or 


if you want to 


power up in parallel printer mode. 




9327 


01 


02190 


PTYPE 


DEFB 


01 








9328 


00 


02200 


INIT 


DEFB 











9329 


00 


02210 


LINE1 


DEFB 











932A 


42 


02220 


PAGE 


DEFB 


66 








932B 


42 


02230 


TOTAL 


DEFB 


66 








932C 


00 


02240 


PAUSE 


DEFB 











932D 




02250 


CONT4 


EQU 


CONT3-fOF7H 




Program 


continues | 
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0000 



02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 
02530 
02540 
02550 
02560 
02570 
02580 
02590 
02600 
02610 



INSTRUCTIONS (C) : It is possible to use both cassettes with 

EOT ASM. When the assembler powers up, the first cassette 

will be selected. Issue POKE 37E4,01 to select the second 

cassette and POKE 37E4 r 00 to reselect the first. There will be 

an audible click from the cassette select relay when the assembler 

powers up. If you seldom use the cassettes and the click 

annoys you, poke 00 into locations 73BA, 73BB, and 73BC now. 

It will still be possible to use the cassettes, but you 

must then POKE 37E4 with the appropriate value before doing so. 

INSTRUCTIONS (D) : The assembler can assemble directly into 
any memory location between A000H and BFFFH. If you have 48K 
of memory, the last 16K have been protected from EDTASM. But 
if you want to assemble directly into this area too (and so 
anywhere from A000H to FFPPH) , then POKE 8AB9,PF now. 

INSTRUCTIONS (E) : Finally, POKE 75E1,32 now to convert the 
startup message from "Version 1.1" to "Version 2.1" (respectively 
■Version 1.2" to "Version 2.2"). 

Assemble the above text to memory. If you are going to 
add the TYPE command, issue 
DUMP EDTASM6/CMD (START-X'7000 • ,END*X '93 2D' ,TRA-X' 8A00 ' ) . 

If you are going to stop here, POKE 8AB1,00 and POKE 8AB2,00 
to protect the assembler from assembling code on top of itself. 
Then POKE 7397, 7F to enlarge the text buffer, and POKE 8E4D,23 
to modify SIZE accordingly. Issue the command Ml if you want 
EDTASM to power up in keyboard entry mode one (and M0 or M2 
for other entry modes). Finally, if you added the lower case 
modification, put the assembler in the mode in which you wish 
it to power up. Issue the command 

DUMP EDTASM6/CMD (START-X'7000 ' ,END-X'932D' ,TRA«X '8 A00 ') . 
END 



00000 TOTAL ERRORS 













Program Listing 7 


EDTASM 7 






00100 


; INSTRUCTIONS 


Run EDTASM6 


If you stopped after the last 






00110 


; modifications and later de 


cided to add the TYPE command, issue 






00120 


; the commands 


POKE 8ABl,18 


and POKE 8AB2,B0 to allow assembly 






00130 


; anywhere in memory, 


issue 


POKE 4114, 6F and POKE 7392, 6F to 






00140 


; restrict the 


size of 


the e 


dit buffer, and issue POKE 8E4D,13 






00150 


; to modify SIZE accor 


dingly 


. 






00160 




Enter the code 


below 


and assemble it to memory. Then enter 






00170 


; DUMP 


EDTASM7/CMD (START-X' 


7000 , ,END-X'95D1',TRA-X'8A00') . 






00180 




Do not 


jse the 


TYPE command of EDTASM7; it will crash the 






00190 


; system. 












00200 




Since printers 


differ 


, you may have to change a few 






00210 


; instructions 


below. 


These 


instructions are preceded by 






00220 


; comment lines; read 


all such lines carefully. 






00230 
















00240 
















00250 


; CODE 


TO DETECT TYPE 


COMMAND 






00260 
















00270 












932D 




00280 


CONT4 


EQU 


932DH 






8BAF 




00290 


RETN 


EQU 


8BAFH 






8D8A 




00300 


LETTER 


EQU 


8D8AH 






8D8E 




00310 


ERR4 


BQU 


8D8EH 






8B20 




00320 


CONT 


EQU 


8B20H 






9286 




00330 


PRINT 


EQU 


9286H 






760C 




00340 




ORG 


760CH 






760C 


2D93 


00350 




DEFW 


CONT4 






932D 




00360 




ORG 


CONT4 






932D 


E5 


00370 




PUSH 


HL 






93 2E 


D5 


00380 




PUSH 


DE 






932P 


C5 


00390 




PUSH 


BC 






9330 


F5 


00400 




PUSH 


AF 






9331 


CDBB49 


00410 




CALL 


49BBH 




;Next letter 


9334 


PE59 


00420 




CP 


lyl 






9336 


280A 


00430 




JR 


Z,TYPE1 




9338 


CDAF8B 


00440 




CALL 


RETN 




; Replace letter 


933B 


Fl 


00450 




POP 


AF 






933C 


CI 


00460 




POP 


BC 






j 933D 


Dl 


00470 




POP 


DE 




Program continues 
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Professional soltwar 



TRS-80® MODEL II 



NOW AVAILABLE 



^218 



BASIC CROSS REFERENCE 



• FIND WHr.rU NAMIS ARb USED FAST' 

• CAN YOU DHrll THAT LINt' FIND OUT' 

• DO YOU HAVl Dr. AD CODING' 

• WANT A NICF PROGRAM LISTING WITH 
DATE & TIMl IN HFADING 



»SAVf HOURS' 

• PARAUFL SERIAL PRINTERS 

• SEVERAL OPTIONS 

• 6/8 IPI VARIABLE 

LINE WIDTH & PACE DEPTH 



$59.99 



POSTAGE & 
HANDLING 



DOCUMENTATION ONLY $1000 
DEDUCTIBLE ON PURCHASE 



DISK SORT 

• MENU DRIVEN • 

• RANDOM FILES ■ 

• CHAINS TO SYSTEM « 
OR BASK PROGRAMS 



• YOU DONT HAVE TO BE A PROGRAMMER TO USE IT 
EASY TO USE « i a sy TO INSERT INTO 
fAST' |OB STREAM FOR 

SPECS SAVED NON-STOP RUNNING' 
ON DISK 



$69.99 +»«• 

DOCUMENTATION ONLY S10.00 POSTAGE & 

1)1 1)1 1 I Hill ON I'l K( NASI HANDLING 



BASIC COMPILER 

• TRSDOS'VBASIC COMPAT IBLf ! • E ASY TO USE 

• FASTER IHAN BASIC BY UP TO • AUGMENTED WITH OUR 
JO TIMES DOCUMENTATION ^^— ^^^^^^~ 

TRS-80* ■& TRSDOS«ARE REGISTERED GOOD-LYDDON DATA SYSTEMS 
TRADEMARKS OF IANDY CORP 5486 RIVERSIDE DR., CHINO, CA. 91710 



• WRITTEN BY MICROSOFT 

$350.00 



auiimmr* 

+ JS00 POSTAGE 

HANDI IN(, 



MASTER CHARGE or VISA accepted 



F>0 Box 839/No. Hollywood 




^441 



91603 (2 13) 764-3131 



Your TRS-80 and Line Printer IV or Centronics 737 

can easily produce documentation with this trypeset look. All you need is 
PROP. Notice how the letters (not just the words) on each line have been 
evenly spaced, resulting in a professional, rather than a computerized appearance. 

If you have been looking for an IBM— like EDITOR and 
WORD PROCESSING text formatter, then you have been looking for 
SUBEDIT and SUBSCRIPT... both based on C M S . 

All software is distributed on diskette for 32K and 48K TRS-80 Model l's. 
Documentation and sample programs are included. At least one disk drive is needed. 

PROP *22.95 

SUBEDIT ♦ SUBSCRIPT «22.95 .^ 



SPECIAL: Both Packages 

(Calif, residents please add 6% Sales tax) 



J39.95 

(Prices include shipping) 



DOES YOUR TRS-80 * DESERVE THE VERY BEST SOFTWARE? 

EDUCATIONAL 
MATH-PAK kOMATHPAK-2 ■ Interactive math drill programs. Enter answers digit by digit, just like paper and 
pencil. With user selected difficulty levels, remainders, carryovers, reducing, simplification, games as rewards. 
scoring, and more. Order MATH-PAK-1 for whole numbers. MATH-PAK-2 for fractions. S14.95 ea (L2-16K) 

BUSINESS 
H-O-R-K-S ■ Low cost, single entry accounting system that works. Has 66 user assigned account codes, auto 
audit trail, search with totals. 32 or 48K. 1 to 4 drives, credit and debit summaries with 3 formats, up to 9200 
complete entries, plus 8 pages of documentation. (32K-1 disc minimum) $24 95/cassette $29.95'disc 
INVENTORY+ -#hy settle for just an inventory listing? Get aging reports with 2 options, reorder reports, total 
listings with purchase dates and amounts, total cost of inventory, items sold, profit margins, and more: Do 
day to day updates, delete items, change items, and pack files; with printer routines and documentation. 
(32K-1 disc minimum) $24 ,95,'ca sse lie $29 .95/d isc 

CASH REGISTER 60 ■ Use your TRS-80* as a point of sale terminal with auto inventory lookup, auto pricing, auto 
inventory update, discount pricing, automatic taxing, print sales slip with user adjusted formats, end of day 
reports with all cash, charge, and check sales by salesperson. CASH REGISTER 80 requires INVENTORY + 
48K. and 1 disc minimum (2 discs recommended). S24. 95/cassette S29.95/dlsc 



Send check or M.O. to: 

EDUWARE ^477 
P.O. BOX 336 

MAYNARD, MA01754 



Dealer and educational inquires invited. 

Mass. residents add 5% tax. 

Ask about our cassette duplicating service for TRS-80. 

'TRS-80 is a registered trade mark of the Tandy Corp. 



i m i 


GPIB-488 to TRS-80* 
INTERFACE 

Mod. 48&60B | 

$225.00 

+ shipping, insurance 4 tax 

SPECIFY 
DISK OR TAPE 
r 

' 'Trade Mark of Tandy Corp 

There is no affiliation between 
Scientific Engineering Laboratories 
and Tandy Corporation or Radio 
Shack. 


' r- ! ==H 




"Oct, ••■ M 

Everything needed to add powerful controlle 
capability to TRS-80, Model 1, Level 2 or DO J 

SCIENTIFIC ENGINEERING LABORATORIES ^291 

11 NEIL DRIVE • OLD BETHPAGE, NEW YORK 11804 
TELEPHONE (516) 694-3205 



1980 INDIVIDUAL 
INCOME TAXES MADE EASY 

(and profitable!) 

We have developed a software program for 
the TRS-80 Model I & III to enable you to: 

1 Prepare >our own 1980 Form 1040 and schedules A & B 
easily, quickly, and accurately. 

2 barn money in your spare lime by preparing lax returns 
for oihers (family, friends, neighbors, business asso- 
ciates, etc.) 

Our package was: 

1. Written by a team consisting of a C.P.A.. tax return 
preparer and EDP programmer with many years ex- 
perience. 

2. Is completely interactive and thus requires a minimal 
amount of technical lax training. 

3. Comes complete with easy to follow manual, program 
disk, and list of 1980 tax tips 

The minimum required hardware is: 

I diskette 
32K memory 
printer (optional) 

Send check or money order for $79.95 (in- 
cludes postage, handling, and sales taxes) 
to: DFR Associates s 490 

P.O. Box 363 

Old Bethpage, New York 11804 



** 



>* 



!!••* SOFTWARE 

for the TRS-80 
POCKET COMPUTER 




CALENDAR — Remembers your important dates 

and events with instant recall $14 95 

GAMBLING-Bet on horse races, slot machines. 

•ouietle wheel and craps $9.95 

TRAVEL COMPANION-Approximaies MPG. ETA 

average MPH lime lo next fill up. etc $9.95 

EOUCATIONAL-Lei the Pocket Computer leach 

your cWdien math al various skill levels $9.95 

INVENTORY— Take inventory in the palm of 

your hand $14.95 

CHECKBOOK— Compulerue your checkbook 

w>ih land held aulomaiion $9.95 

GOLF — Play your friends or againsl par on 

Simulated Golfs conslaniiy changing course $9.95 



Write or call for a FREE PAMPHLET containing a description of 
Ihese and many olher amazing hand held programs (Scientific. 
Real Estate. Civil Eng. Horse Race Predicting. Games. Etc) 

Prices from $5.95. 

LP. DRt-TM-'A PIONER IN POCKET SOFTWARE" 

For more information or to order 

CALL 1-313-553-4978 

WRITE E F GREYER ""** 

PO Box 2391. Farmmgton Hills Ml 48018 

'TRS 80 'S a fadeoia'k of Radio Shac*. A Tandy Corp 



I MAXELL* o« o Dy§g.n I 

P A 

■ I 

T 8 SINGLE SIDE N 

R DOUBLE DENSITY Box of 10 lor 160 E 

5 8~ DOUBLE SIM R 

8 DOUBLE DENSITY Box of 10 for S 70 A 

. 3. MINI Box of lOlor SBO ^ 

, D Y SAW DISKS 1 

B 5- MINI BoxofSrotS2S M 

M (Spaclfy -8" Soft or Hard Sactor/5* Soft or Hard Sartor) A 



COD. 11 OO Additional 



• H^ ^J^Q^^^^^^^^w' ^^^^^^ \^^S* ^r w^^^^9%p\^*f At*.. 



238 EXCHANGE STREET 
CHICOPEE, MA. 01013 

413-592-4761 

MtaMlshad 1960 - cloaad mondaya 
I ATARI ■■■■■bbS TI/99 4 aaaaVBaaal 



PET I 



is Reader Service — see page 274 
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933E 


El 


00480 


POP 


HL 






933F 


C31C4C 


00490 


JP 


4C1CH 


; Regular type command 




9342 


CD8A8D 


00500 TYPE1 


CALL 


LETTER 


;Next letter 




9345 


FE50 


00510 


CP 


■ pi 






9347 


C28E8D 


00520 


JP 


NZ , ERR4 






934A 


CD8A8D 


00530 


CALL 


LETTER 






934D 


FE45 


00540 


CP 


•E' 






934F 


C28E8D 


00550 


JP 


NZ , ERR4 






9352 


218F93 


00560 


LD 


HL, TYPEA 


; Initialize type command 




9355 


362E 


00570 


LD 


(HL) ,'.' 






9357 


23 


00580 


INC 


HL 






9358 


3620 


00590 


LD 


(HL),' ' 






935A 


23 


00600 


INC 


HL 






935B 


3620 


00610 


LD 


(HL),' ' 






935D 


23 


00620 


INC 


HL 






935E 


3600 


00630 


LD 


(HL) ,0 






9360 


23 


00640 


INC 


HL 






9361 


3600 


00650 


LD 


(HL) ,0 






9363 


219A93 


00660 


LD 


HL,BUFF 






9366 


229493 


00670 


LD 


(TYPEA+5) ,HL 






9369 


3E00 


00680 


LD 


A,0 






936B 


329693 


00690 


LD 


(TYPEA+7) ,A 






936E 


211A94 


00700 


LD 


HL,BUFFT 






9371 


229793 


00710 


LD 


(TYPEA+8) ,HL 






9374 


213947 


00720 


LD 


HL,4739H 


; Intercept text output 




9377 


36C3 


00730 


LD 


(HL) ,0C3H 






9379 


21BC94 


00740 


LD 


HL, CHANGE 


; Intercept printer output 




937C 


22AB45 


00750 


LD 


(45ABH) ,HL 






937F 


21AE94 


00760 


LD 


HL,NOTAB 






9382 


223A47 


00770 


LD 


(473AH) ,HL 






9385 


Fl 


00780 


POP 


AF 






j 9386 


CI 


00790 


POP 


BC 






9387 


Dl 


00800 


POP 


DE 






9388 


El 


00810 


POP 


HL 






9389 


CD1C4C 


00820 


CALL 


4C1CH 






938C 


C36C95 


00830 


JP 


STUFF 






938F 


2E 


00840 TYPEA 


DEFB 


'.' ;Last 


three characters inserted p< 


igiam continues 



m sick s 

OF PROGRAMS THAT TREAT YOU LIKE 
AN IDIOT, WASTING TIME ft MONEY?? 

RANDOM ACCESS PAYROLL 

• NO Complicated Initialization 

• EDIT & LIST 

• QUARTERLY Reports 

• PROGRAM Loads In Less than 30 sec. 

PAY ANY EMPLOYEE ANYTIME 

• SALARIED OR HOURLY 

• COMPLETE Including EIC 

• PRINTS on NEBS 9020 CHECKS 

• NO SPECIAL PAYROLL CHECKS 

• SPECIAL HOURS— SPECIAL PAY 

• TWO SAVINGS— INCLUDING RIA 

• STATE TAX— WORKMENS COMP 

• CLASSED BY Occupation or Dept 

• PAYSTUB Shows Year-to-date 

• No Filenames— All Automatic 
SEND YOUR STATE TAX SCHEDULE 

• We'll Customize for your State Tax 

WRITTEN IN BASIC FOR 
COMPLETE CONTROL 
Documentation & Disk $55.00 

Documentation only $10.00- 
credit to purchase 

MASS ADD 5% or Exempt number 
Requires: 

Min. 32K-1 Drive-Printer = 50 EMP 
48K-2 Drives-Printer = 100 + 
TEL. 7 AM-9:30 PM EASTERN 
(617>35^2364/6370 

MEDFIELD *^ 421 
COMPUTER SOFTWARE 

39 GREEN ST., MEDFIELD, MA 02052 



32K-EXPANSION INTERFACES 



SPECIAL OFFERING. 

Due to a very special purchase, 
American Business Computers is 
able to offer a limited number of 
Radio Shack' Expansion Inter- 
faces at the lowest price ever. 

For COD service add 5%. 



ForTRS-80* Model 1 

399 95 



American Business Compulers 
guarantees Expansion Interfaces 
to be Brand New— still in original 
boxes with original documenta- 
tion and in perfect working condi- 
tion 

*TM Tandy Corp. 



AMERICAN BUSINESS COMPUTERS - 4M 
118 SOUTH MILL ST. 
PRYOR, OKLA. 74361 
918-825-4844 




CPT2000Seriesof 
Expansion Interfaces 

FEATURES . . . RS232 MA Serial Interface 
Field Proven l.\W Ixpansion Board ■ Floppy 
Disk Controller • 32K BYTI RAM Expansion 
Parallel Printer Port & Screen Printer Port 
Real lime Clock ■ Custom All Wood Cabinet 

Complete LNW Expansion Kit S 249. Assembled S 349. 

LNW PC. Board ONLY . $ 69. Custom Cabinet CPT 2000 . . $ 99. 

All components available call for price. 
Complete System as follows: Single Tanilon 40 Track Disk Drive«RS232 Serial Interlace 
Custom Cabinet ■ 32k RAM ■ Assembled Tested Guaranteed ■ Retuilar S799. 
INTRODUCTORY PRICE S 750. 

All products sold by COMPUTEX are 100% guaranteed for 90 days. A 1 year 100% guarantee 

is available on all of our hardware for an additional 10% of the items purchase price. 

ALL ORDERS SHIPPED WITHIN 6 DAYS OF ORDER 

VISA/Master Card accepted(add 4% to total) C.O.D.'s accepted(may require 10% down) 

SHIPPING -UPS insured(call for rate) Personal checks held 2 weeks prior to shipping. 



Computet 



^392 



17710 Heritage Ct. , Webster. Tx. 77598 (713) 332-4359 
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9390 


20 


00850 




DEFB 


1 ' ;into buffer 


9391 


20 


00860 




DEFB 


t i 


9392 


00 


00870 




DEFB 


;One if title being entered 


9393 


00 


00880 




DEFB 


;Number of letters in buffer 


9394 


9A93 


00890 




DEFW 


BUFF ;Next buffer spot 


9396 


00 


00900 




DEFB 


;Number of letters in title buffer 


9397 


1A94 


00910 




DEFW 


BUFFT ;Next title buffer spot 






00920 


The next address contains the number of characters on a 






00930 


printed line. This number should be 31 for the Radio Shack 






00940 


Quick 


Printer II and about 60 for a regular printer. It can 






00950 


be as 


large 


as 127. 


9399 


3C 


00960 BUFFL 


DEFB 


60 


939A 




00970 BUFF 


EQU 


5 


941A 




00980 BUFFT 


EQU 


BUFF+80H 


949A 




00990 
01000 
01010 


[NIT2 


EQU 


BUFF+100H 






01020 


ADDITIONAL INITIALIZATION BEFORE EDTASM PROMPT 






01030 












01040 








8B43 




01050 




ORG 


CONT+23H 


8B43 


9A94 


01060 




DEFW 


INIT2 


949A 




01070 




ORG 


INIT2 


949A 


213947 


01080 




LD 


HL,4739H 


949D 


36F5 


01090 




LD 


(HL) ,0F5H 


949F 


23 


01100 




INC 


HL 


94A0 


36E5 


OHIO 




LD 


(HL) ,0E5H 


94A2 


23 


01120 




INC 


HL 


94A3 


3621 


01130 




LD 


(HL) ,21H 


94A5 


218692 


01140 




LD 


HL, PRINT 


94A8 


22AB45 


01150 




LD 


(45ABH) , HL 


94AB 


C3DD46 


01160 
01170 
01180 




JP 


46DDH 






01190 


CONVERT TAB 


TO ONE 






01200 












01210 






Piogram continues 




9 TRACK TAPE DRIVE FOR A MICRO-COMPUTER ? 



INTERFACES FOR MICROCOMPUTERS . . . 

• POS MEMORY/PORT MODULE for TRS-80 Here 
is a programmable device controller which plugs to 

the TRS-80 tO pin bus and provides 1.7k of PROM and/ 
or RAM plus 18 input and 18 output lines addressed as 
3 parallel ports. Designed as j controller lor daisv-wheel 
printers and 9-lrack tape drives, its uses a'e limited onls 
b\ ones imagination. Includes sockets tor 1.7K RAM, 
1.7K tPROM. or Ik PROM and .7k RAM (memory Its 
not included] Requires tSVDC, *12VDC power source. 
Memory is addressed at I000H to avoid conflict with 
othei system and user-available memory. Ship wt. 3 lbs. 
Price $150.00 

• DAISY-WHEEL PRINTER INT ERFACE for TRS 80: 
1 his interlace will drive Diablo Hvl.pe I. Hvlvpe II. 

and Oume (J Series and Sprint < printer, ispecity ..able 
required). Includes Ik jser-availahlc memorv tor custom 
print routines (suet as graphics, bidirectional printing. 
etc.). Programmed to respond to print commands from 
BASIC, t I tCIRK PI V II IM and SCRIPSIT™ soft- 
ware. Draws its power trom printer. Ship wt.: 5 lbs. 

Price $250.00 

Cables, each S 25.00 

(Specify HvTvpe I. Hv Ivpe II. or Qumei 

• ASCII INTERFACE for IBM I/O SELECTRIC 
This Centronics-stv le parallel printer interface will 

drive an IBM Model 7 51 or 735 I/O typewriter (EBCD 
and Correspondence codes). No software needed, 
features on-board ' PROM which holds up to 8 ASCII- 
to-IBM code translation tables for different tspe spheres. 
Closed loop operation runs at maximum printer speed; 
slops and starts on a single character without loss ot 
data. Requires * 12V DC and tSVOC power source. Ship 



wt.: 3 lbs. Puce 
Power Supply . . . 
(sSVDC. + 12VDC 
• CONVERT 15 
TYPEWRITER 
switches, wire harn 
lions lor inslallatior 
Price 



$249.95 

$ 49.95 

♦ 24VDC tor Solenoids on Printer) 

IBM OFFICE SELECTRIC to I/O 
kit includes assembled solenoids, 

ss, magnet driver PCB plus instruc- 

and mCPU interface. 
$200.00 



Open up the world of IBM to the microcomputer. Now your micro can read and 
write IBM/ANSI compatible NR/1 format 9-track magnetic tapes, as used on the 
largest IBM computer installations. Read government statistics. Write tapes that can 
be loaded into an IBM 370 computer. Here is an IBM-compatible interface that 
won't void the IBM warranty ! 

A medium-speed (37.5 ips) 800 BPI tape drive can transfer data at a rate ol 
30,000 characters per second, making it an ideal back-up storage media tor the new 
nard-disk systems. The Phase I ncoded lfiOO BPI drives have twice the data capacity 
of the NR/1 drive, and can hold up to 40megahvtes of data on a single reel ol tape. 

• POS 100 NRZ1 TAPE DRIVE COUI\G SOO\ . . 

CONTROLLER/FORMATTER 

Pacific Office Systems has been qi 
POS- 100 NR/1 lape Drive C.ontroll 
"Pertec" industry standard NR/1 tac 
the S-lOO computer. The POS- 100 dim 
8080 or / 80 subroutines to Write a R 
or Check Sum Characters, Read a Re 




oi ovei 2 years 
netlv selling its 
rr, Formatter tor 
e transports and 
rates with 2k ot 
•cord, (ape Mark 
COrd • Orward O' 



Jckwj 



rd a Record or File, 
tc. Software also checks status ot 
it ion and provides error messages, 
id on ( PM oi NorthStar diskette. 



Backward, (.o I 
(rase a Cap, Rev 
tape drive during 
Software can be 
or on tPROMs 

The POS- 100 consists ot S-100 bus card, •> -ibbon 
cable, ;ape drive controllei ..aid. cable to Pertec-Standard 
NR/1 lape drive, plus documentation and /-80 or 8080 
software Specif) ). Power is derived trom tape drive and 
S-100 bus. Ship Wt.. 10 lbs. 

Suggested Retail Pi ice $995.00 

Optional CPM utility programs to copy data trom 
diskette to tape, trom tape to diskette, and from tape to 
CRT or Printer (record length variable up to si/e ot 
system memory >.- Price $100.00 

• REFURBISHED MAC- TAPE DRIVES Contact 
Pacific Ottice Systems tor currently available refur- 
bished 800 BPI and IbOO BPI mag tape drives by such 
manufacturers as PI R II C .CIPHI R DATA PRODUCIS, 
KENNEDY, etc, Prices vary according to capabilities and 
condition ot each unit. 



• A bus adapter for the T RS-80 Model One (40-pin bus). 

• POS Stand-alone 800/1600BPI Controller/Formatter: 
A microprocessor-based controller and tormatter tor 

both 800 BPI NR/1 1 and 1 bOO BPI (PI I tape drives, 
w it h interlaces tor serial RS-2 12 and 8-bil parallel ports. 
Controller is programmed to respond to simple ASCII 
commands to seek, read oi write a file ol data on tape 
via its 4k or 16k butler memory. Interrupts can be used 

• or status and command messages between controller 
and "ost CPL. Data transter rates are expected to run as 
high as 19,200 baud (RS-232 serial port), and 100.000 
baud 8-bit parallel port). 



MODEMS 



( 



> f t 



PACIFIC OFFICE SYSTEMS 

918 Industrial Avenue 

Palo Alto, CA 94303 

(415)493 7455 



• 153 



• POS 103/202 "MIX or M AILH" MODEM BELL 
103 and/or BELL 202 frequencies: Unique POS 
control design permits use in one housing ot both Bell- 
compatible 103 (0-300 baud) and 202 (0-1200 baud) 
modem modules originally made by VADIC Corp. for a 
telephone company subsidiary. I I ATURLS: RS-232 
serial interface, auto-answer, auto-dial, LED display, 
telephone line interface via acoustic coupler, manual 
DAA, or auto-answer DAA (sold separately). FULLY 
ADJUSTED; no special tools required. 3,000 mile range 
over standard dial-up telephone lines. 

-POS 103 MODEM $199.95 

-POS 202 MODEM $299.95 

POS 202 MODEM (Auto-Answer) .... $349.95 

- POS 103/202 MODl-M $499.95 

-FCC-approved Auto-Answer DAA .... $125.00 



* Reader Service— see page 274 
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94AE 


FE09 


01220 


NOTAB 


CP 


9 


;Tab 


94B0 


2002 


01230 




JR 


NZ, J J 




94B2 


3E01 


01240 




LD 


A,l 




94B4 


F5 


01250 


JJ 


PUSH 


AF 


; Instructions replaced by JP 


94B5 


E5 


01260 




PUSH 


HL 




94B6 


21BA41 


01270 




LD 


HL,41BAH 




94B9 


C33E47 


01280 
01290 
01300 




JP 


473EH 








01310 


; INTERCEPT 'T 


OUTPUT, MODIFY, 


AND SEND TO PRINTER 






01320 














01330 










94BC 


79 


01340 


CHANGE 


LD 


A,C 




94BD 


FEOD 


01350 




CP 


13 


; Ignore line feeds 


94BF 


C8 


01360 




RET 


Z 




94C0 


FE23 


01370 




CP 


'#' 


;Start of stop title 


94C2 


CAD195 


01380 




JP 


Z, TITLE 




94C5 


3A9293 


01390 




LD 


A, (TYPEA+3) 


.•Character in title? 


94C8 


B7 


01400 




OR 


A 




94C9 


C2D195 


01410 




JP 


NZ, TITLE 




94CC 


79 


01420 




LD 


A,C 




94CD 


FE01 


01430 




CP 


1 


;Tab 


94CF 


CA9295 


01440 
01450 
01460 




JP 


Z , PARA 








01470 


; CAPITOLIZATIO'N ROUTINE 








01480 














01490 














01500 


; Repl 


ace the 


iext command with 


NOP, NOP, NOP if you did not 






01510 


; add 


the lower case modification earlier. 


94D2 


C3D495 


01520 




JP 


EASY 


;No capitolization 


94D5 


3A9193 


01530 




LD 


A, (TYPEA+2) 


;Start of sentence? 


94D8 


FE2 


01540 




CP 


i i 




94DA 


204D 


01550 




JR 


NZ, ONWARD 




J 94DC 


3A9093 


01560 




LD 


A, (TYPEA+1) 




94DF 


FE20 


01570 




CP 


1 ■ 




94E1 


2046 


01580 




JR 


NZ, ONWARD 




94E3 


3A8F93 


01590 




LD 


A, (TYPEA) 





SERIAL PRINTER? 
HEATH H14? 



Interface mount» In TRS-80 Expansion 
Interface. NO MODIFICATIONS. Connects 
at parallel printer port. No EI? Use 
with RS printer Interface cable. Uaes 
the software driver In the Level 2 
ROM. No more software compatablllty 
problems. Works with Elec Pen, 
Scrips, Fortran, Newdos, Vtos, etc. 
The computer thinks It Is driving an 
RS parallel printer. Handshaking for 
reliable full speed operation. 

DECWRITER? KSR 43? 

The above Interface may be used with 
most RS232 ASCII aerial printers. 
Data format: start bit, 8 data bits, 
2 stop bits. BAUD rates 110 to 4800. 
No software driver required with 
printers which automatically Insert a 
line feed after CR. Software driver 
Included for printers which require 
LF after CR. $29.95 A*T with 90 day 
warranty. Specify Baud rate. May be 
changed by user. 

REMOTE CONTROL 



Control your home with your TRS-80 I 
Ultrasonic control module plugs into 
the cassette port and controls Sears 
or BSR X-lO home control system. 
Control lights, coffee pot, stereo, 
or whatever. Software Included for 
Level 2 and Disk basic. $19.95 AIT 
with 90 day warranty. 

Include $2.00 S*H with all orders. 
• 275 

SPEEDWAY ELECTRONICS 

1354 AUBURN 

SPEEDWAY, INDIANA 

46224 



S25C? 




Our 50/80 
INTERFACE 
lets you connect 
your Radio Shack 
TRS SO - (Model 1 
to the IBM Electronic Typewriter Mod SO. 60 or 75. 
Aside from yielding the best looking printouts and 
listings you'll ever see, our system lets you center 
titles, underline words 6 phrases, justify numerical 
columns, indent text and more from your own pro- 
grams and most others. Right justified proportion- 
ally spaced typesetting is even possible with the 
IBMS0' The most cost effective word processor 
ever, (this ad is an example) i}S0" 



SOFTWARE also available for any TRSBO: 

SUPEROIR - displays a menu like directory in DOS 
from which you can RUN or KILL any program, dis- 
play updated FREE space t print the display, all 
with single key commands. In fast acting Z BO code, 
only $14.95 (DOS). 

INMOD3 - easily used Z80 system program that can 
give any BASIC program professional keyboard 
entry. Blinking cursor, upper/lower case, user 
defined input length, repeat keys t single key- 
stroke control codes. Makes INKEYS obsolete: 
saves 1000 bytes over BASIC equivalent; for the 
rankest amateur! $14.95 IL2or DOS). 
INMOD3 Plus - same but works with Percom "Speak 2 
Me": each character is spoken as entered! $19.95 

* * * INTRODUCING our new MX 80 FIRMWARE 
Interface and Modules. Software now in hardware 
form; utilizes the unused 2K lower mem. Write or 
call. VISA EMC Dealers encouraged' 

umiuix 

PO Box 8775 

Universal City, CA. 91608 

213 475-9949 

Micronet* 70250,321 



SOFTWARE 

^WANTED 






Make an offer or we wW make one 
FOR EVALUATION SEND YOUR PROGRAMS TO: 



• 492 



OR CALL: 

(203) 335-3350 



Integer Soft 

P.O. BOX 2397 
DAREN CT 06820 
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94E6 


FE2E 


01600 




CP 


• i 






94E8 


2804 


01610 




JR 


Z,YES 






94EA 


FE3F 


01620 




CP 


'?' 






94EC 


203B 


01630 




JR 


NZ , ONWARD 






94EE 


CD1E95 


01640 


YES 


CALL 


CAP 






94F1 


1803 


01650 




JR 


REG1 






94F3 


CD1295 


01660 


REGULA 


CALL 


REVERS 


;Routine for regular letter 


94F6 


CD0595 


01670 


REG1 


CALL 


MOVE 






94F9 


79 


01680 




LD 


A,C 






94FA 


FE49 


01690 




CP 


'I' 






94FC 


2001 


01700 




JR 


NZ,XX 






94FE 


3C 


01710 




INC 


A 






94FF 


329193 


01720 


XX 


LD 


(TYPEA+2) ,A 






9502 


C3D495 


01730 




JP 


EASY 






9505 


3A9093 


01740 


MOVE 


LD 


A, (TYPEA+1) 






9508 


328F93 


01750 




LD 


(TYPEA) r A 






950B 


3A9193 


01760 




LD 


A, (TYPEA+2) 






950E 


329093 


01770 




LD 


(TYPEA+1) ,A 






9511 


C9 


01780 




RET 








9512 


79 


01790 


REVERS 


LD 


A,C 


;Correct keyboard 




9513 


FE41 


01800 




CP 


41H 






9515 


D8 


01810 




RET 


C 






9516 


FE5B 


01820 




CP 


5BH 






9518 


3004 


01830 




JR 


NC,CAP 






951A 


C620 


01840 




ADD 


A,20H 






951C 


4F 


01850 




LD 


C,A 






951D 


C9 


01860 




RET 








951E 


79 


01870 


CAP 


LD 


A,C 






951F 


FE61 


01880 




CP 


61H 


;Capitolize 




9521 


D8 


01890 




RET 


C 






9522 


FE7B 


01900 




CP 


7BH 






9524 


DO 


01910 




RET 


NC 






9525 


D620 


01920 




SUB 


20H 






9527 


4F 


01930 




LD 


C,A 






9528 


C9 


01940 




RET 








9529 


3A9193 


01950 


ONWARD 


LD 


A, (TYPEA+2) 






952C 


FE49 


01960 




CP 


•I" 




Program continues 





Radio /hack 



DEALER 




TRS-80 DISCOUNT 



TRS-80 
MODEL II 64K 



*3500 



PACKS ENOUGH DATA HANDLING POWER FOR 
MANY SMALL BUSINESSES. 



D NO OUT-OF-STATE TAX 
□ NO SHIPPING COSTS 



TRS-80 MODEL III 

32K-2 DISKS 

*2100 

NEW PERSONAL COMPUTER. . . 
REAL-TIME CLOCK, SHARPER 
-l\ \ CRT IMAGES AND FASTER 
B J LOADING CASSETTES 



h- ;vr .-. • 




III! 
til" 


!fel 




1. • -^z 


■lZjh 




^ 



CERTIFIED CHECKS 
CASHIERS CHECKS 
OR CREDIT CARDS 



VISA 




i TRS-80 COLOR 

COMPUTER OR VIDEO 



'339 



•ach 

A LOW COST, COLOR COMPUTER FOR PERSONAL BUSINESS OR ENTERTAINMENT 

/ 

PERRY OIL & GAS INC. '" 

137 NORTH MAIN STREET, PERRY, MICH. 48872 

PHONE (517) 625-4161 

WARRANTIES HONORED BY ALL RADIO SHACKS • 'T.M. TANDY CORP. 



^ Reader Style*— see page 274 
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952E 


2807 


01970 




JR 


Z,EIP /Previous letter 'i' 


j 9530 


79 


01980 




LD 


A,C ! 


9531 


FE49 


01990 




CP 


■ I ' j 


9533 


2819 


02000 




JR 


Z,EI ;Current letter ■ i' 


1 9535 


18BC 


02010 




JR 


REGULA 


9537 


79 


02020 EIP 


LD 


A,C 


9538 


FE20 


02030 




CP 




953A 


2009 


02040 




JR 


NZ,GG 


953C 


C5 


02050 




PUSH 


BC 


953D 


0E49 


02060 




LD 


C,'I' 


953F 


CDD495 


02070 




CALL 


EASY 


9542 


CI 


02080 




POP 


BC 


9543 


18AE 


02090 




JR 


REGULA 


9545 


C5 


02100 GG 


PUSH 


BC 


9546 


0E69 


02110 




LD 


C, 'I'+20H 


9548 


CDD495 


02120 




CALL 


EASY 


954B 


CI 


02130 




POP 


BC 


954C 


18A5 


02140 




JR 


REGULA 


954E 


3A9193 


02150 EI 


LD 


A, (TYPEA+2) 


9551 


FE20 


02160 




CP 


1 i 


9553 


209E 


02170 




JR 


NZ, REGULA 


j 9555 


3E49 


02180 




LD 


A,'I' 


9557 


329193 


02190 




LD 


(TYPEA+2) ,A 


955A 


C9 


02200 
02210 
02220 




RET 








02230 


LINEFEED ROUT INF. 






02240 












02250 








955B 


CD6695 


02260 1 


.INEFD 


CALL 


LINEF1 


955E 


3A6595 


02270 




LD 


A, (DOUBLE) 


9561 


B7 


02280 




OR 


A 


9562 


C8 


02290 




RET 


Z 


9563 


1801 


02300 




JR 


LINEF1 






02310 


Insert zero 


in the next address for single space and one for 






02320 


doubl 


e space. 


9565 


00 


02330 I 


)OUBLE 


DEFB 





9566 


0E0D 


02340 I 


jINEFI 


LD 


C,13 ;Print line feed 


9568 


CD8692 


02350 




CALL 


PRINT j 


956B 


C9 


02360 
02370 
02380 




RET 








02390 


ROUTINE TO 


PRINT HALF-FILLED BUFFER 






02400 












02410 








956C 


3A9393 


02420 . 


;tuff 


LD 


A, (TYPEA+4) 


956F 


B7 


02430 




OR 


A 


9570 


C8 


02440 




RET 


Z 


9571 


E5 


02450 




PUSH 


HL 


9572 


C5 


02460 




PUSH 


BC j 


1 9573 


CDBD95 


02470 




CALL 


MAR1 


9576 


47 


02480 




LD 


B, A 


9577 


219A93 


02490 




LD 


HL,BUFF 


957A 


4E 


02500 1 


fA 


LD 


C, (HL) 


957B 


CD8692 


02510 




CALL 


PRINT 


957E 


23 


02520 




INC 


HL 


957F 


10F9 


02530 




DJNZ 


YA 


9581 


3E00 


02540 




LD 


A,0 


1 9583 


329393 


02550 




LD 


(TYPEA+4) ,A 


9586 


219A93 


02560 




LD 


HL,BUFF 


9589 


229493 


02570 




LD 


(TYPEA+5) ,HL 


958C 


CD5B95 


02580 




CALL 


LINEFD 


958F 


CI 


02590 




POP 


BC 


9590 


El 


02600 




POP 


HL 


9591 


C9 


02610 
02620 
02630 




RET 








02640 


PARAGRAPH ROUTINE 






02650 












02660 








9592 


CD6C95 


02670 ] 


>ARA 


CALL 


STUFF 


9595 


3ABB95 


02680 




LD 


A, (EXTRA) 


9598 


B7 


02690 




OR 


A 


9599 


2805 


02700 




JR 


Z , NOEX j 


959B 


OEOD 


02710 




LD 


C,13 


959D 


CD8692 


02720 




CALL 


PRINT 


95A0 


E5 


02730 I 


K)EX 


PUSH 


HL 


95A1 


C5 


02740 




PUSH 


BC 


95A2 


3ABC95 


02750 




LD 


A, (PARAL) 


95A5 


47 


02760 




LD 


B,A 


95A6 


219A93 


02770 




LD 


HL,BUFF 


95A9 


0E20 


02780 




LD 


C," ' 


95AB 


71 


02790 I 


\A 


LD 


\HL) , t. Program continues 
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95AC 


23 


02800 




INC 


HL 


95AD 


10FC 


02810 




DJNZ 


RA 


95AF 


229493 


02820 




LD 


(TYPEA+5) ,HL 


95B2 


3ABC95 


02830 




LD 


A, (PARAL) 


95B5 


329393 


02840 




LD 


(TYPEA+4) ,A 


95B8 


CI 


02850 




POP 


BC 


95B9 


El 


02860 




POP 


HL 


95BA 


C9 


02870 




RET 








02880 


; Insert zero 


in the next address for no extra lines between 






02890 


; pa rag 


raphs. 


and one for one extra line. 


95BB 


00 


02900 


EXTRA 


DEFB 









02910 


; Insert below 


the number of spaces in a paragraph indentation. 


95BC 


05 


02920 
02930 
02940 


PARAL 


DEFB 


5 






02950 


; MARGIN ROUTINE 






02960 


; 










02970 


j 






95BD 


F5 


02980 


MAR1 


PUSH 


AF 


95BE 


C5 


02990 




PUSH 


BC 


95BF 


3AD095 


03000 




LD 


A, (MARGIN) 


95C2 


B7 


03010 




OR 


A 


95C3 


2808 


03020 




JR 


Z , KLK 


95C5 


47 


03030 




LD 


B,A 


95C6 


0E20 


03040 




LD 


C f 20H 


95C8 


CD86 92 


03050 


XJ 


CALL 


PRINT 


95CB 


10FB 


03060 




DJNZ 


XJ 


95CD 


CI 


03070 


KLK 


POP 


BC 


95CE 


Fl 


03080 




POP 


AF 


95CF 


C9 


03090 




RET 








03100 


; Load 


the next address with the number of spaces in the left 






03110 


; margin. This should be zero for the Quick Printer II and 






03120 


; about 


12 for 


a regular printer. 


95D0 


OC 


03130 


MARGIN 


DEFB 


12 


95D1 




03140 


TITLE 


EQU 


$ 


95D4 




03150 


EASY 


EQU 


TITLE+3 


0000 




03160 




END 




00000 TOTAL 


ERRORS 









MICRO-80™ CASSETTES— 
100% ERROR-FREE 



C-10 

WHOLESALE 
PRICED 

59$ 



C-20 

HOLESALI 
PRICED 

790 



WHOLESALE 
PRICED 



LOTS OF 24 EACH LOTS OF 24 EACH 



• Fully Guaranteed! 
'World's Finest Media 

• Premium 5-Screw Construction 
'Used by Software Firms Nationwide 

' Dealer and Club Discounts Available 
' Custom Storage Case, Add 13« Each 
'Write for Wholesale Price Listing 



MICRO-80™ INC. 

E 2665 NO. BUSBY ROAD 
OAK HARBOR, WA 98277 



Relief for your eyes... 

Color Screens for your TRS-80* 

GREEN, BLUE, RED, GOLD 

FIXED-MOUNT MODEL (Hard 
surface-optically clear) OR 
FLIP-UP MODEL (especially for 
Light Pen Lovers.) 

• Reduces glare and eyestrain 

• Gives "professional look" 

• Won't mar surface or void 

Guarantee 

• No tools required 

• Removeable (easy to change 

to another color screen) 

• Liven up your video display 

• Your eyes are worth it ! 

• Money Back Guarantee 
FLIP-UP: $3.98 ea. + $1 S&H 
all four colors: $12.98 + $2 S&H 
FIXED: $4.98 ea. + $2 S&H 
all four colors: $16.98 +$4 S&H 
State colors, model and quantity. 
Send chec kor Mone y Order to: 

WILL O SCREEN 
Viiiiams Enterp"ses 
HO' Oeverty A»e 



;heve*v MD 20 't 



Radio Shack TM 



• 374 



m80 



i# 



FOR 
WORK 

AM) 
PLAY 



PACKAGE DEAL 15: 



BOSS 2.1 

Designed to aid you in creating and 
debugging programs written in Basic. 
Allows you to trace the program 
flow, to single-step through the 
program, to observe variables during 
program execution, and to push vour 
programs on the stack during 
development. I. II or DOS. 

ListPrice . . . . . . $29. % 

AND Your choice of: 

Datestones of Ryn 

or 

Morloc's Tower 

ListPrice $14.95 

Total List Price $44.90 

20% Discount 8.98 

Plus Shipping 08 

TAS Package Price $36.00 

THE ALTERNATE SOl'RCE 

1806 Ada Street ^138 
Larking, MI 18910 
Ph. 5 17/ 185-03 44 

Masirr (hargr I 1M urlromr. add 4 r ~, 
COD ■ ■■■f. ,.,-i ti 45 



^ Reidtr Service— see page 274 
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style, etc. However, comments 
which begin in the comment col- 
umn can be ignored; they ex- 
plain the operation of the code 
for those who are interested. 

Memory Distribution 

See Table 2 for an explanation 
of memory distribution. When 
EDTASM is entered, it occupies 
7000-96E6. Immediately, 
7000-89FF is moved to the 
original EDTASM location; 
some of this area then becomes 
part of the editor buffer. The 



BASIC RAM area 4000-42FF is 
modified by EDTASM, but tem- 
porarily restored to original form 
by the J command. 

A Final Touch 

The modified EDTASM can be 
used to write and correct assem- 
bly language programs inter- 
actively, much as BASIC is 
used. There is one difference. 
When assembly language pro- 
grams go wrong, they go hor- 
ribly wrong. If your program has 
a mistake, the J command may 



not return control to the assem- 
bler and you might have to push 
RESET to tame the computer. 

In that case, there is a simple 
way to return to the editor/as- 
sembler with your program in- 
tact. After you hit RESET, the 
DOS prompt will appear. Exe- 
cute SAVE and EDTASM and Y. 
You will find yourself back in the 
assembler with the editor buffer 
intact. 

The program SAVE/CMD used 
above should be permanently 
placed on the EDTASM disk. 



Create it by using DEBUG and 
entering the following machine 
code. 



8000 F3 21 F9 5C 11 CO 9F 01 
8008 07 23 ED B0 C3 20 40 



Owners of version 1.2 should 
replace F9 on the top line with 
F0 and 07 on the bottom line 
with 10. 

Turn off DEBUG, and execute: 

DUMP SAVE/CMD (START = X'8000'.END = 
'8010,TRA = X'8000')« 



9327 Zero (or Parallel Printer. One for Serial Printer 

9329 Current Line. Zero for Top of Form 

932A Lines per Page 

932C Zero for Continuous Printing. One for Pause between Pages 

9399 Number of Printed Characters per Line 

9565 Zero for Single Space. One for Double Space 

95BB Zero for No Additional Spaces between Paragraphs. One for Addi 

tionai Spaces 

95BC Length of Paragraph Indentations 

95D0 Length of Left Margin 

96E5 Zero for Single Width Letters in Titles. One for Double Width Letters 

Table 1. 



0000-3FFF 


Basic ROM, Keyboard. Etc. 


4000-42FF 


Basic Fixed RAM. Used Independently by EDTASM 


43005CF8 


EDTASM (Original Program) 


5CF9-7FFF 


Text Buffer Jt-'l' 


8000-89FF 


Used Only When Loading EDTASM 


8A00-96E6 


EDTASM (New Program) 


96E7-98FF 


Available for Future Expansion 


9900 99EF 


Stack While Using J 


99F0-9FFF 


Used by J. X. Y 


AOO0-BFFF 


Reserved for Machine Language Programs. Used by X. Y 


COOO-FFFF 


Unused 




Table 2. Memory Distribution 











Program Listing 8. EDTASM 8 






00100 


INSTRUCTIONS 


: Run EDTASM7. Enter the following text and 






C0110 


assem 


ble it 


to memory. Then read the instructions at the 






00120 


end o 


f this 


section. 






00130 












00140 












00150 


PRINT 


ROUTINE 






00160 












00170 








95D1 




00180 " 


riTLE 


EQU 


95D1H 


95D4 




00190 1 


]ASY 


EQU 


95D4H 


955B 




00200 I 


^INEFD 


EQU 


95 5BH 


9399 




00210 I 


JUFFL 


EQU 


9399H 


956C 




00220 . 


3TUFF 


EQU 


956CH 


9286 




00230 1 


3 RINT 


EQU 


9286H 


938F 




00240 ' 


rYPEA 


EQU 


938FH 


939A 




00250 


3UFF 


EQU 


939AH 


941A 




00260 I 


3UFFT 


EQU 


941AH 


95BD 




00270 I 


4AR1 


EQU 


95BDH 


95D1 




00280 




ORG 


TITLE 


95D1 


C33F96 


00290 




JP 


TITLE1 


95D4 




00300 




ORG 


EASY 


95D4 


79 


00310 




LD 


A,C ;Don't print initial space 


95D5 


FE20 


00320 




CP 


t i 


95D7 


2005 


00330 




JR 


NZ,XA 


95D9 


3A9393 


00340 




LD 


A, (TYPEA+4) 


95DC 


B7 


00350 




OR 


A 


95DD 


C8 


00360 




RET 


Z 


95DE 


E5 


00370 - 


<A 


PUSH 


HL 


95DF 


D5 


00380 




PUSH 


DE 


95E0 


C5 


00390 




PUSH 


BC 


95E1 


79 


00400 




LD 


A,C ;Insert character into buffer 


95E2 


2A9493 


00410 




LD 


HL, (TYPEA+5) 


95E5 


77 


00420 




LD 


(HL) ,A 


95E6 


23 


00430 




INC 


HL 


95E7 


229493 


00440 




LD 


(TYPEA+5) ,HL 


95EA 


3A9393 


00450 




LD 


A, (TYPEA+4) 


95ED 


3C 


00460 




INC 


A 


95EE 


329393 


00470 




LD 


(TYPEA+4) ,A 


95F1 


219993 


00480 




LD 


HL,BUFFL 


95F4 


BE 


00490 




CP 


(HL) ;IS buffer full? Program continues 
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95F5 


2804 


00500 




JR 


Z,XB 




95P7 


CI 


00510 STOP 


POP 


BC 




95F8 


Dl 


00520 




POP 


DE 




95P9 


El 


00530 




POP 


HL 




95FA 


C9 


00540 




RET 






95FB 


CDBD95 


00550 XB 


CALL 


MAR1 




95FE 


46 


00560 




LD 


B,(HL) 


;Find last space in buffer 


95FF 


2A9493 


00570 




LD 


HL, (TYPEA+5) 




9602 


2B 


00580 XC 


DEC 


HL 




9603 


7E 


00590 




LD 


A, (HL) 




9604 


FE20 


00600 




CP 


■ ■ 




: 9606 


2806 


00610 




JR 


Z,XD 




9608 


10F8 


00620 




DJNZ 


XC 




960A 


219993 


00630 




LD 


HL, BUFFL 




960D 


46 


00640 




LD 


B, (HL) 


;If no spaces, print entire line j 


960E 


C5 


00650 XD 


PUSH 


BC 




960F 


219A93 


00660 




LD 


HL,BUFF 


;Print buffer 


9612 


4E 


00670 XD1 


LD 


C, (HL) 




9613 


CD86 92 


00680 




CALL 


PRINT 




9616 


23 


00690 




INC 


HL 




9617 


10F9 


00700 




DJNZ 


XD1 




9619 


CI 


00710 




POP 


BC 




961A 


3A9993 


00720 




LD 


A, (BUFFL) 




961D 


90 


00730 




SUB 


B 


/Remaining buffer length > 


961E 


B7 


00740 




OR 


A 




961F 


329393 


00750 




LD 


(TYPEA+4) ,A 




9622 


2810 


00760 




JR 


Z,XE 


; Remaining buffer empty 


9624 


47 


00770 




LD 


B,A 


;Move old buffer to new 


9625 


119A93 


00780 




LD 


DE, BUFF 




9628 


7E 


00790 XF 


LD 


A,(HL) 




9629 


12 


00800 




LD 


(DE),A 




962A 


23 


00810 




INC 


HL 




962B 


13 


00820 




INC 


DE 




962C 


10FA 


00830 




DJNZ 


XF 




962E 


ED539493 


00840 




LD 


(TYPEA+5) ,DE 




9632 


1806 


00850 




JR 


XG 




9634 


219A93 


00860 XE 


LD 


HL,BUFF 




9637 


229493 


00870 




LD 


(TYPEA+5) ,HL 




963A 


CD5B95 


00880 XG 


CALL 


LINEFD 




963D 


18B8 


00890 
00900 
00910 
00920 
00930 
00940 


TITLE 


JR 

ROUTINE 


STOP 




| 963F 


3A9293 


00950 1 


CITLE1 


LD 


A, (TYPEA+3) 


;Start of title? 


9642 


FEOO 


00960 




CP 







9644 


2013 


00970 




JR 


NZ,AA 




9646 


E5 


00980 




PUSH 


HL 




9647 


3E01 


00990 




LD 


A,l 




9649 


329293 


01000 




LD 


(TYPEA+3) ,A 


;Title mode 


964C 


3E00 


01010 




LD 


A,0 




i 964E 


329693 


01020 




LD 


(TYPEA+7) ,A 


;Title empty 


9651 


211A94 


01030 




LD 


HL,BUFFT 




1 9654 


229793 


01040 




LD 


(TYPEA+8) ,HL 


;Start of title 


! 9657 


El 


01050 




POP 


HL 




9658 


C9 


01060 




RET 






1 9659 


79 


01070 I 


U\ 


LD 


A,C 


;End of title? 


965A 


FE23 


01080 




CP 


•#' 




965C 


282C 


01090 




JR 


Z,AB 




965E 


E5 


01100 




PUSH 


HL 




965F 


3A9693 


OHIO 




LD 


A, (TYPEA+7) 


;If not, add letter to title 


9662 


47 


01120 




LD 


B,A 




9663 


3AE596 


01130 




LD 


A, (DW) 




9666 


B7 


01140 




OR 


A 




9667 


281B 


01150 




JR 


Z,AP 




9669 


219993 


01160 




LD 


HL, BUFFL 




966C 


7E 


01170 




LD 


A, (HL) 




966D 


CB3F 


01180 




SRL 


A 




966F 


B8 


01190 / 


^Q 


CP 


B 




9670 


2810 


01200 




JR 


Z,HH 


.•unless title full 


9672 


2A97 93 


01210 




LD 


HL, (TYPEA+8) 




9675 


79 


01220 




LD 


A,C 




9676 


77 


01230 




LD 


(HL),A 




9677 


23 


01240 




INC 


HL 




9678 


229793 


01250 




LD 


(TYPEA+8) ,HL 




967B 


3A9693 


01260 




LD 


A, (TYPEA+7) 




967E 


3C 


01270 




INC 


A 




967F 


329693 


01280 




LD 


(TYPEA+7) ,A 




9682 


El 


01290 I 


iH 


POP 


HL 




9683 


C9 


01300 




RET 






9684 


219993 


01310 I 


\P 


LD 


HL, BUFFL 




96 87 


7E 


01320 




LD 


A, (HL) 


Program continues 
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9688 


18E5 


01330 


968A 


AF 


01340 AB 


968B 


329293 


01350 


968E 


CD6C95 


01360 


9691 


3A9693 


01370 


9694 


B7 


01380 


9695 


2004 


01390 


9697 


CD5B95 


01400 


969A 


C9 


01410 


969B 


F5 


01420 AC 


969C 


CDBD9 5 


01430 


969F 


3AE596 


01440 


96A2 


B7 


01450 


96A3 


2805 


01460 
01470 ; 
01480 ; 
01490 ; 
01500 ; 


96A5 


0E0F 


01510 


96A7 


CD8692 


01520 


96AA 


Fl 


01530 AD 


96 AB 


47 


01540 


96AC 


3A9993 


01550 


96AF 


4F 


01560 


96B0 


3AE596 


01570 


96B3 


B7 


01580 


96 B4 


2805 


01590 


96 B6 


79 


01600 


96B7 


CB3F 


01610 


96B9 


1801 


01620 


96BB 


79 


01630 AM 


96 BC 


90 


01640 AN 


96 BD 


CB3F 


01650 


96BF 


47 


01660 


96C0 


B7 


01670 


96C1 


2807 


01680 


96C3 


0E20 


01690 


96C5 


CD8692 


01700 AJ 


96C8 


10FB 


01710 


96CA 


3A96 93 


01720 AE 


96CD 


47 


01730 


96CE 


E5 


01740 


96CF 


211A94 


01750 


96D2 


4E 


01760 AG 


96D3 


CD8692 


01770 


96D6 


23 


01780 


96D7 


10F9 


01790 


96D9 


El 


01800 


96DA 


CD5B95 


01810 
01820 ; 
01830 ; 
01840 ; 
01850 ; 


96DD 


1805 


01860 
01870 ; 
01880 ; 


96DF 


0E00 


01890 


96E1 


CD8692 


01900 


96E4 


C9 


01910 AH 
01920 ; 
01930 ; 


96E5 


CO 


01940 DW 


96E6 




01950 CO 
01960 ; 
01970 ; 
019 80 ; 
01990 ; 
02000 ; 
02010 ; 
02020 ; 
02030 ; 
02040 ; 
02050 ; 
02060 ; 
02070 ; 
02080 ; 
02090 ; 
02100 ; 
02110 ; 
02120 ; 


0000 




02130 


00000 TOTAL 


ERRORS 



JR 


AQ 


XOR 


A 


LD 


(TYPEA+3) ,A 


CALL 


STUFF 


LD 


A, (TYPEA+7) 


OR 


A 


JR 


NZ f AC 


CALL 


LINEFD 


RET 




PUSH 


AF 


CALL 


MAR1 


LD 


A, (DW) 


OR 


A 


JR 


Z,AD 



;Leave title mode 
;Print all before title 
;Title empty? 
;If so, print empty line 



If you can print double width characters, load C below with 
the control character which begins double width printing. 
This control character is OFH for the Radio Shack Quick 
Printer II. 



LD 


COFH 


CALL 


PRINT 


POP 


AF 


LD 


B,A 


LD 


A, (BUFFL) 


LD 


C f A 


LD 


A, (DW) 


OR 


A 


JR 


Z,AM 


LD 


A,C 


SRL 


A 


JR 


AN 


LD 


A,C 


SUB 


B 


SRL 


A 


LD 


B, A 


OR 


A 


JR 


Z,AE 


LD 


C,' ' 


CALL 


PRINT 


DJNZ 


AJ 


LD 


A, (TYPEA+7) 


LD 


B,A 


PUSH 


HL 


LD 


HL,BUFFT 


LD 


C, (HL) 


CALL 


PRINT 


INC 


HL 


DJNZ 


AG 


POP 


HL 


CALL 


LINEFD 



;Spaces at two ends of title 
;Divide by two 



;No spaces at left 



;Title length 



;Print title 



Replace the next line with NOP, NOP if your printer is not 
automatically converted from double width to single width 
mode by a line feed. Notice that the line should remain as 
is for the Radio Shack Quick Printer II. 

JR AH 
Load C below with the control character needed to convert 
your printer back to single width style. 

LD C,00 

CALL PRINT 

RET 
Insert a zero in the address below for single width title 
characters and a one for double width title characters. 

DEFB 
'NT5 EQU S 



INSTRUCTIONS: Now a few cleanup details before saving the 
final version of EDTASM. Make sure locations INIT, LINE, PAGE, 
TOTAL, and PAUSE contain the right values (they will unless 
you used the printer after running EDTASM7 or you want different 
initial values than those I provided). Next POKE 8AB1,00 
and POKE 8AB2,00 to protect the assembler from assembling 
code on top of itself. Then POKE 7397, 7F to enlarge the 
text buffer and POKE 8E4D,23 to modify SIZE accordingly. 
Make sure locations BUFFL, DOUBLE, EXTRA, PARAL, MARGIN, 
and DW contain the values you want on initialization. Issue 
the command Ml if you want EDTASM to power up in keyboard 
entry mode one (and M0 or M2 for other entry modes) . Finally, 
if you added the lower case modification, put the assembler 
in the mode in which you wish it to power up. Issue the command 
DUMP EDTASM8/CMD ( START=X ' 7000 ' , END-X ' 96E6 * , TRA*X ' 8A00 ' ) . 
END 
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|FoT«h« TRS-80:".. 

EXPAND-O- BOARD 
$29* 

- As your system grows . the need for additional 
\ I/O ports becomes obvious. Solve the problem 

> with the now three port extender from S.C.P 
The EXPAND-O -BOARD may be connected 
to the keyboard unit or E.I. A bus cable is 
required and may be ordered separately for $11 95 

TO ORDER CALL: 

] (313)264-5704 

OR SEND YOUR ORDER TO: 

Sterling Computer Products 
36811 Lodge Drive 
; Sterling Heights, Ml. 48077 

> Add St SO for shipping -Mick res. add 4 * sales tax 

o 

Orders maybe paid by check, money order or COD. 
VISA & MASTER CHARGE ACCEPTED 

DEALER INQUIRIES INVITED! 



uedemeikol Tandy Corpowon 



• 449 



CPM2TRS 

AND 

TRS2CPM 



TM 



TM 



e Converts CPM Files to/from TRSDOS Files 

e EASY TO USE - uncomplicated, user oriented, 
professional quality programs. 

e FAST - Machine linguage code - disk to disk 

e RELIABLE - Reads and writes verified and 
automatically retried. 

e SUPPLIED ON DISKETTE with full user 
instruction sheets 



MINIMUM 

CONFIGURATION 

MOD I LVl II 3?K ? D.Sks 



MODEL I Available NOW 
MODEL II Available Soon 



CPM2TRS" - $55 TRS2CPM T " - $55 
BOTH - $90 

SEND CHECK OR MONEY ORDER TO s^«71 

UNNEX RESEARCH ASSOCIATES, INC. 

:iti I .lih \ untie • New Vt*L Sew > »»rL I0DIII 



9* CHW. PEP LI*. reX»WlJW.NNOrWtni«*'YZC l'. v Sfe«Sefe*li 

ensr II *- ■=• e~- trs-©o ~ 
,' <T»»e Grarkic Lin, Printer) - 



*V4, 72 80. 96. I». Mtf tr CLvK'tn 'tr Um. 
WCirjP "Hr swinery PHBBj rort 



1 1 en 



thtk 



MlH«il 



M.1 tMKT 
PriMwlMtrren Ca>l> 
HXiHil S»|0 m Um rn« 
iMirrto Cat, 

Ml 

OUR PRICE 



tm.m *7mn 

•710.00 *730.00 



NdTF. THI-. EIITIPE *(■ HP- ECCH 

CPCRTEC- ON THE BfllE II 
L I HE PF I NTEP 

RUS RUOIO'UIDEO SYSTEMS ^146 
2485 Huouixudt Dr. 
Sen Jo*». Cfl 99132 

PH . 4 08-946- 1 263 



STEPWISE 
MULTIPLE LINEAR REGRESSION 

Fast Compiled Machine Language 
Comprehensive Data Base Manager 

* Transformations 

* Lags 

Designate Any Variable As Dependent 

At Run Time 
Descriptive Statistics 
Correlation Matrix 
ANOVA Table 

Partial Correlation Coefficients Each Step 
Future Releases Are Upward Compatible 
And Include: Factor Analysis, Time Series, 
Linear Programming 

For 2 Disk, 48K TRS-80®, With Line Printer 
Write For Information On Other System 

Configurations 
Price $89.00 - Documentation Only $10.00 
Visa And Master Charge Accepted 
Barstrann Corporation — Dept. A 
P.O. Box 265 Mid City Station 
Dayton, Ohio 45402 1 513 293 8299 



^201 



UPDATE: 
'TRSSO* & ISS! 



INCREASE YOUR TRS-80* 

CAPABILITIES 
WITH OUR QUALITY PRODUCTS 

• COLOR GRAPHICS BOARDS: 

Model C-1000 $12t w 

Model C-2000. HH 91 

Model C-JOOO- 432t« 

• lower case BOARD $41 » 

• PROTOTYPE BOARD $34 «° 

ADO S3 00 POSTAGE And HANDLING 

Dealer Inquiries Welcome I 

= = Irfcegrafced m... Residents 

EiService *^ 378 **«*■«*• ™ 

- =5y5feeire Jjnc.. 

10H WEST BROADWAY 
MINNEAPOLIS. MN.. 55411 

(S12) 522-SS31 'Trademark or Tjndy Corp 



Hard Copy Printer 
For Your Computer 

COMPLETELY 
REFURBISHED 

Model 33. Friction Feed 
Receive only. Table Model, 110 
Baud. 8 level ASCII Code, 20 
MA Loop 

$279.95 

Compile line ol options available. Check 

or MO $50 Deposit on COD. orders. N.J. 

Residents add 5 : i Sales Tax 

RED ARROW " 433 

ELECTRONICS CORP. 

1217 Summit Ave.. 

Union City. N.J. 07087 

(201) 863-7916 



— fVo/esi/ona/ — 

Real Estate Software 

For Apple or TRS 80 

Property Management System 

(32K, 1 Disk Systems) 



• S Died fxssesa Accsseti 

• Liti Reel Resent ■ leMMa basest "i pen 

• TTO e Mi nthry lsts*N • Vtetsr Esses** Report 

• Handles — • I s o en Tu Reeert 

Partial Payments • Ml ".sports Can It Printed 

Returned Check* • ES M SM sl Oeeumensatien 

At, IK* Pay— M s • Easy Data Entry a Edit 

• Mais Receipts • ZOO UeRs per Fee 

Price $225.00 

Real Estate Analysis Modules: 

(Cassette or Disk) 

l| Horn. Purchas* Analysis 
2) Tu Deterred Eichanje 
J| Cemtreceea Cost/ProM 

4) lecesw Presertf Cash*** 

5) APfllser, Anarys* 
t) Hep arty Wet AsaNtH 
7) Lean Amtrtizatwn 



fl 



$35 Per Module 



|l^$35 

I ^^*W ai canpum Sts— e a e rp eea aa 

« ^ 0> O.O.. COD D«KI 

I of t wa re |C " * """" * **■ * % ***** , ** > 



jaltyllom 



TM 



U1X) 37JHII 



ealty I lompany 



Ostt. M 1 1 1 S "Q- 8th SI., Manhattan Beech CA 9026* 



MEMOREX 

DISKETTES 
& CARTRIDGES 

for your computer or word processor 

BUY THE BEST FOR LESS. 
Lowest prices. WE WILL NOT 
BE UNDERSOLD!! Buy any 

quantity. Call free (800) 235- 
4137 for prices and information. 



^370 
PACIFIC 
EXCHANGES 

100 Foothill Blvd 
San Luis Obispo. CA 
93401 (In Cal call 
(805) 543-1037.) 




1. BULLION— COMPUTES 
MELT VALUE FOR 
ALL U.S. COINS 
(LEVEL II-16K).... $12.00 

2. COINS-CATALOGS 
COIN COLLECTION- 

(1 DISK) $20.00 

3. STAMPS-CATALOGS 
STAMP COLLECTION 

(1 DISK) $20.00 

- 455 P.O. BOX 2163 
E.PEORIA, ILLINOIS 61611 



y* Reader Service — see page 274 
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Pertec Drives 

J325 <. 

I. fast 20 MS access tie*. 

7. 40 Track "flippy" (use both sides). 

3. Car, use double density mod. 

4. Uuict and precis*. 

5. Complete .Itn pooer supply and cabinet 

6. 90 Day .arranfy. Service available. 

Cable V Plus J7 Per drive. 

Verbatlai diskette! 128 per 10. 

Data cassettes $7 per 10 

Imp Lineprinter 

■ »■> J660 r <—.. .......... ... 

THE HOST VERSATILE OF IT'S TYPE Mil 

1. Soft.ere controlled print size. 

1*0, it. 66, 80. 96.132 Char per line) 

2. lo«er case 1 user definable graphics 

5. .5K Buffer. (2K optional) 

I. Bidirectional 60 Unas per ulnute. 

3. RS232C 1 2X>m S Parallel data. 

6. Built In self test and bell. 
'. Choice of paper types. 

8. Oulet, dependable, long life. 

PET, APPIE OR TRS80 Interface 4 cable »9i 

Cable for existing expansion Interface 135 

Tractor teed »95 

TRS-80 Software 

MICRO NOSCARRIER «eeps all essential records for a 
ne.spaper route. Includes dally ( Sunday route list In 
route or alpha order, and billing systeei. 
S?K, Disk and printer. S35 Cass. 

AUTO HINDER Analyzes cost of oanlng a car. Running and 

accumulative graphic record of cost and ullage helps 
save you eoney. 
>6K and 01 sk. 179 Cess. 

MAILBOX keeps Ml I list ultfi nee*, address, phone 1 
codes. Sort, delete, save I update on one of seven 
fields. Makes lists, labels and personalized for* 
letters. Easy to use. Many extras. 
32K, Disk and printer. S79 Cass. 

GRAPHICS MONITOR. Dra. designs to perk up programs. 13 
control keys give l I ve keyboard. Save finished pictures 
on tape or disk or In programs. 
'*<• SIS Cass. 

HIBROX VOCABUART. 106 Word graduate level vocabulary 
gives you clout. Multiple choice, spelling and recall 
tests. Adaptable to other data sets. 
I0K. tlO Cass. 

TALKING KEYBOARD for synthesizer. Teaches children the 
alphabet and teaches blind students typing. 110 Cass. 

SPELLING PROGRAM for synthesizer. Teaches spelling and 
vocabulary. It keeps score for you. 3rd grade 
vocabulary »lth Instructions on hou to add your own 
list. J20 Cass. 

We accept checks and noney orders. All soft.ere 
available on disk for »5 acre, 'msa.iimcn.iam 

Micro Mnemonics ^us 

403 ». 2750 N. 
Sunset, Utah 64013 



TRS-80™ SOFTWARE 



MACHINE LANGUAGE 
SOFTWARE 



MONITOR #3 



$39 95 



Disassemble*, memory displays, memory move, search verily 
and modify, lead and write obiecl (apes, hexadecimal 
arithmetic, objecl code relocaloi. unload programs for disk, 
symbolic output tapes. 41 page instruction manual 

MONITOR M $4995 

Same as Monitor 03 but adds save and read disk tiles, direct in 
put and output ol disk sectors, send receive, or talk to another 
computer via RS-232-C interlace, symbolic disassembly on 
disk 

SMART TERMINAL $49.95 

Enables your TRS-80 to be used as a remote terminal to a time- 
sharing system Supports lowercase and lull range of control 
keys Automatic transmission between memory and host com- 
puter Much more 

FASTSORT $9 95 

Machine language sorting program lor use by Basic programs 
Many iinies faster than other methods 1 

GAME OF LIFE $5 95 

John Conway s game ol lite shows patterns evolving and 
changing swiftly before your eyes A dazzling demonstration 
program 1 

BASK SOFTWARE 

MAILING LIST $69 95 

Maintains mailing list files ol over 1000 names per diskette 
Add. delete, change, tmd name, machine language sort, print 
die 

SMALL BUSINESS ACCOUNTING $4995 

Based on Dome Bookkeeping Journal N612. keeps track of in 
come, expenditures, and payroll for a small business ol up to 16 
employees Daily monthly year to-date summaries 

HOME BUDGET $49 95 

Checkbook maintenance combined with records ol income 
and monthly bills Monthly and year-to-date summaries show 
ing tax deductions 

DATABASE MANAGEMENT $2995 

Defines files ol any description and maintain on cassette or 
disk Add. change delete, find sort justify print line punt 



HOWE SOFTWARE •ios 

14 Lexington Road 

New City, New York 10956 

I') TRS-80 is a registered trademark ol Tandy corp. 



♦SYSTEM TO BASIC* 
UTILITY 

TIm Bridge Between Basic And Yew Edlter/- 
Assembler It Here) New You Can include Your 
Machine Language Program, In Your Basic 
Programs P-A-l-N-L-B-S-S-L-Y. 

SYS— BAS Will Croat* A Basic Program 
Modulo Of Your Machine Codo That Can Ba Run Or 
Merged With Most Basic Program, All Hox To 
Decimal And Typing Of Data Statements It Done 
Automatically, Accurately, And Past With 

SYS-BAS 

Eliminates The Need Per System Or DOS Loads 
Before Running Your Basic Program. 
Included Is An Optional PASTLOADBR Program 
Which Will Lead The Module SYS-BAS Has 
Created Back Into Memory At 'Warp' Speed, 
Available For Model l-HK And Up. Level 11 And 
Disk. 

Send Check Or Money Order To/ Per: 
Cassette 19.95 J. F. Consulting 

Disk 24.95 74-355 Buttonwood 

Calif. Residence Palm Desert, Ca. 
Add 6% 9M40 



SO 



microcomputing 



BINDERS 

order 
yours 
today 



Keep your library of 60 Microcomputing safe from lots 
or damage in these handsomely appointed binders with 
rich dark green covers ond gold lettering. Each binder 
holds 12 issues making an EXCELLENT REFERENCE HAND- 
0OOK. Several binders form o quality library you can be 
proud of. 

WMcoch .9 tor $21.79 6fcK $42.00 
Postog* poid in USA. Foreign ordexs pleas* include- $2.30 for postcKj* 

Send check or money order only to: 
80 MICROCOMPUTING BINDERS 
P.O. Box 5120, Phila., PA 19141 




TRS 80 SOFTWARE DIRECTORY 

7000 listings - 600 suppliers 

Alphabetized by Program Title 

Alphabetized by Supplier's Names 

Model I & Model II listings 

Areas: Business. Education. Games. 
Home. Math, Utility 

Listings include: Title. Description. 
Basic. Class. Memory, Price, 
Supplier 

5TH EDITION NOW AVAILABLE 
$7 00 Includes Postage & Handling 

COMPUTERMAT »-ei 
Box 1664M 
Lake Havasu City. Arizona 86403 

TRS-80 is a registered trodemork of randy Corp 



FULL SCREEN TEXT EDITORS 
FOR THE TRS-80* 

The Text Editor for BASIC (Req. 32K & up. Ul) 
Order #1010-20 24.95 

The Text Editor for Radio Shack* EDTASM Source 
Files: Tape Editor (Req. I 6K & up. Lil) 

Order * 1 1 0-30 24.95 

Disk Editor (Req. 32K & up. Lil, shipped on tape) 

Older f 1 1 0-3 1 34.95 

Send check or money order (no COOs) to: 

Computer Applications Unlimited 

Post Office Box 214, Dept. 23N 

Rye, New York 10580 

N.Y. Stale residents please add applicable sales tax. 

Please allow 4-6 weeks delivery. 

* Radio Shack and TRS-80 are registered trademarks 

of the Tandy Corp. 

^VIIIKUI^I 



TAR HEEL SOFTWARE SYSTEMS 

"Affordable Software for Small Business" 
PROUDL Y ANNOUNCES 

REAL ESTATE BOOKKEEPING SYSTEM 

a disk-based fully-integrated system including 
cash journal, general journal, tenant ledger, 
landlord ledger, monthly landlord statements, 
balance sheet, PAL statement by profit 
centers, and more, all for $150 postpaid. 
(North Carolina orders add 4% sales tax.) 
Free continuing update service included. 
Minimum hardware: TRS-80 Model 1, 32K, 
2 disk drives, line printer. Versions for 
TRS-80 Model II and III, Apple 11 and 
Commodore 2001 Series coining soon. Watch 
for announcement of other small business 
applications software in the months to come. 
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TAR HEEL SOFTWARE 
SYSTEMS, INC. 

536 S. LEXINGTON AVE P.O BOX 340 
BURLINGTON. NORTH CAROLINA 27215 




LEARNING TOOLS 

■ Spelling Primer 

■ Vocabulary Builder 

■ Crossword Generator 

EACH PROGRAM FEATURES: 

• HUNDREDS OF WORDS 

• GRAPHIC SCORING MONITOR 

• PROGRAMMABLE SPEED CONTROL 

Each Program Available In 4 Levels: 

Grades 1-2; 3-4; 5-6; 7-6. 
(Specify Grade) 

16K - LEVEL II 

$4.95 each — any two for $7.95 

DYNATEK INFO. SYSTEMS 

586 CONCORD AVE. 
WILLISTON PARK, N.Y. 11596 

i^253 'Quiiny Software it Affordable Prices" 
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RECREATION 



A little drawing program. 



Compu-Sketch 



Merl J. Hendricks 
140 Gradolph St. 
Toledo. OH 43612 



The February 1980 issue of 80 
Microcomputing carried an 
article by Wes Thielke on "ROM 
Routines." The section on key- 
board encoding interested me. I 
entered the program and ran it. 
After looking at the output, I 
thought I could use it to create a 
little drawing program. I came 
up with the following program. 

Compu-sketch 

When an arrow key is de- 



pressed, the pixel will move in 
the indicated direction. If two 
keys are pressed at the same 
time, the pixel will move in the 
diagonal direction determined 
by the keys. 

Interesting, but I thought I 
should be able to blank the trail 
so I could interrupt the lines. Af- 
ter some playing around, I set it 
up so that if the space bar is 
held down while the arrow key is 
depressed, the pixel will not 
leave a trail. 

Lastly, I could not clear the 
screen unless I used the break 
key, and then ran the program 
again. With a couple of added 
lines I cleared the screen by 
pressing the clear key and 
space bar at the same time. 



Graphic Set-ups 

This little program could cer- 
tainly speed up game graphic 
set-ups. 

A very short PEEK-POKE rou- 



tine could transfer the graphics 

from the screen to memory and 
another PEEK-POKE routine 
could recall them. Take a look at 
the program. ■ 



100 CLS:X = 56Y = 22DEFINTC 

110 C- PEEKi 144001 

'20 IF C AND 8 THEN Y = Y - 1 

130 IF C AND 16 THEN Y = Y. 1 

140 IFC AND 32 THEN X-X - 1 

150 IF C AND 64 THEN X = X ♦ 1 

160 IF X> 12/ THEN X = X - 1 

170 IF X<. 1 THEN X = X * 1 

180 IF Y>47 THEN Y = Y 1 

190 IF Y< THEN Y-Y + 1 

200 IF C= 130 THEN PRINT CHH$(2):GOTOl 10 

210 IF C> 120 THEN RESET|X.Yi.GOTO110 

220 RESET (X Y)>OR T - 1T01 NEXT SET [X Yi UOTO1 10 

230 END 

Program Listing 1. Etch a-compusketch 



from ELCOMPCO 



^63 



CASE DOT 

for Shugart, MPI, & other minis 



includes 

• CHASSIS 

• PLEXIGLASS COVER 

• ALL PARTS POWER SUPPLY 



Easy Assembly (1-2 hrs.) 

Enough Powerfor2Mini Drives 

use one now— one later 

$125 




COMPLETED UNIT 



(Disk Drives & Connecting Cables— extra) 



Block off for Drive— $5 extra 

DEALER INQUIRIES INVITED 



ELCOMPCO 

Microcomputer Peripherals 

Post Office Box 6133 
C.O.D. Albany CA 94706 



H 



t^ Reader S»rvic€>—s*» page 274 



80 Microcomputing, December 1980 • 255 



TRS-80 



THE 



Software 
E fficienc y 

/ VERBNQUN / SERIES 



(PRICES: DISK-CASSETTE-MANUAL] 

SORTFILE MJ. 95- $19. 95- S3. 00 

* Internal speed: 500 records /* sees 

* Multiple keys, of any mixture of 
data types and of ascend -descend 
directions 

* Six output options: new data file, 
file with selected and /or reshuffled 
data fields in records, two kinds 
of index file, or output to screen 
and /or printer directly 

* Needs just 1 disk and 16 K memory 

* SEEFILE utility included free 

UTILI TIES PACK S28. 95-124. 95-$3. 00 

SEEFILE MERCFILE 

CUTFILE SEEREC 

JOINFILE FIXREC 

PRINFILE ADDREC 

BOTH ^ 3 " t43.95-S39.95-$3.00 

SOFTWARE EFFICIENCY 314-863-7187 
7800 Stanford Avenue, St Louis, MO 63136 



PALOMAR 
SOFTWARE 

"HISPKD" Tape operation. Save, verify 
& load programs or array data many 
times faster than CSAVE or" PRINT ft. In- 
cludes hardcopy formatting. Not a hard- 
ware add on. $24.95 

"CODED LEDGER" A ledger for the 

small systems user. Monthly reports. K.O 
user named categories, many features nor- 
mally found in disc systems. Requires 
"HISPEir and hardcopy printer. $14.95 

-TRANSFER LIST" Hardcopv print- 
out of all transfers. GOTO. GOSUB. 
ELSE. etc.. in your basic program are listed 
by calling line * and called line *. Transfer 
list is a great aid in changing or debugging 
basic programs. .S7.°-f> 

All I'alomar Software programs are 
designed for level 1 1 lfik or higher. 



Write for full specifications and sample 
printouts or send (ck or mo) + $1.00 P/H 
per tape. (Calif, residents add fi% sales tax) 



PALOMAR 
SOFTWARE 






170S.PalomarDr. 
Redwood City, Ca. 94062 

^228 

24 Hour Ordrrinu Line Nil) 366-5340 



Versatile 

Information 

Manager 

Thinking of buying specialized programs 
lor applications such as mailing lists, inven 
tory. or maintaining personnel records' VIM 
< an perform these and many other tasks, and 
the best part of it is that you only pay for it 
once 1 

Simplify the task of maintaining your data 
by putting VIM to work on your system VIM 
is very easy to use and its flexibility will per- 
mit you to perform a great variety of data 
processing |obs with no extra programming 
It runs on the TRS 80* Model I. J2K (or more) 
disk based system 

MODI] II 1 Iddtabax- manaiii-'l *S* « 

djUbjM- definition with up In 240 charge, 
ter records and K) tiekfc 

- alphanumeric and numeric lipids 

- add, update and delete rec ords 
-search on any lields or their combinations 

using I logical and 10 relational operators 
-modify, unload or delele records retrieved 
by a search 

MODULE 2 (sort utility) $29.95 

-written entirely in assembly language lor 
last operation 

- sort on any combination ot lields in 
ascending or descending order 

MODULI J (report generator) S29.95 

-user defined record and page lormats 

optional summary lor numeric fields 
VIM (modules 1 ) and 100 » page manual) 

$99.95 
Add 2% shipping and handling 
Dealer inquiries invited 

FOR MORE INFORMATION WRITE: >^ 307 

MICROCOSM 

PO Box 2034 Dearborn, Mi 48123 

"Trademark ol Tandy Corp 



INTERFACE EXPANSION BOARD] 



MD 

MOO-DCSIGN 



For the TRS 80' 




The Interface Expansion Board gives 
your computer these features: 

Phone Modem 

2K E-PROM OPTION 

32 K Memory PC Board* user marxjal 

Real-Time Clock M DX-1 

Parallel Port 

RS-232 Port 

Dual Cassette Line 

Floppy Disk Controller' MDX-2* 

On Board Supply 

Silk Screen 

Solder Mask 

Expansion Port 

Manual 



64?5 



74!* 



Add 3 00 'or shipping 
& handling Texas res- 
idents add 5% sales 
tax 

MANUALS $7.95 

•FREE PAMPHLET AVAILABLE 

Call or write 



T#iiSSi< s! 



MICRO-DG^IGM 

P.O. Box 18054 

Austin, Texas 78760 

1-512-458-2937 



e^379 




PROFESSIONAL 
FEDERAL INCOME TAX 
PROGRAMS 

Runs on any 16K Level II system 
Prohibits Bypassing of Mandatory Entries 
Accuracy Assured by Triple Check Logic 
Enter only Pertinent Lines - Much Faster than 
Line by Line entry 

Prompts are Erased from Screen Leaving 
Display Identical to IRS forms 
Single Line Correction with Automatic Update 
of Succeeding Totals 

Prints Directly on IRS forms or on Plain Paper 
with Overlays 

Professionally Written — Economically Priced 

1040 - $99.50 1040A - $74.50 

Schedules - $24.75 

Send $2.50 for Full Description and Samples 

applied to purchase price 



MICRO-TAX >"«86 



P.O. Box 4262, Mountain View, CA 94040 

Call: (415) 964-2843 



TRS-80 Model I and 

Model II Programs 



ims ] 



MUlTirU REGRESSION 2.1 -A disk based package ot 
chained programs that permits model estimation using 
thousands of observations, user specified iransforma 
tions. X-Y plots, formatted for screen or printer 

S4S 00 

Linear Programming $39.95 

0- 1 Programming $39.95 

Transportation Algorithm $39 95 

Heuristic Line Balancing $39 95 

Stat Pack— medium, mode, mean (avg.. harmonic. 
geometric), variance, histograms, Tests (T.X'.F.) one 
variable regression, one and two-way ANOVA S24 95 
Differential equations— 6 methods S39 95 

Queuing Statistics ........ ....$18 95 

LOWERCASE MOD— Includes excellent documentation 
♦ all parts (nothing else to buy), compatible with tlec 
trie Pencil $14 95 



Quant 
/ys t ems 



i.iUte « fet Mrj S5 

1C its** tii *N uta In 
ortm «M S5 to Mem 



Onimb 



p.o. box 628 

Charleston sc 

29402 



SCIENTISTS-INVENTORS 

Stop looking for convention fictort 
A mutt tor oiporimontort. onglnoora In: 

• PHYSICS-ELECTRONICS 

• CHEMISTRY-MECHANICS 

• SOLAR ENERGY-OPTICS 

• GENERAL SCIENCE, STUDENTS, etc. 

■ 110 MASS, LENGTH, TIME, ANGLE 

■ 230 AREA, VOLUME 

■ 310 VELOCITY. DISTANCE/TIME 

■ 400 FLOW, PRESSURE 

■ 520 WORK ENERGY, POWER , 
THERMAL UNITS 

■ 610 FREQUENCY WAVELENGTH, 
VOLTS OHMS AMPS WATTS, ETC. 

■ 730 PARABOLIC REFLECTOR, CYLIN- 
DER. PIPE, TORUS, RING, ROD, etc. 

Thru or moro $4.50 U Singli $6 00 M. 
Ordor by program number ibsvi 

SYSTEMS-*)®, P.O. BOX 277 

ALBION, CA 95410 (707) 937-4006 

Sond SASE lor full Indoi description of programs 



,--467 
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SOFTWARE 



Tell your data printer where to go, with software, of course. 



RESTORE 
Data Pointer Control 



10 ON ERROR GOTO 200 

20 D = 0; EL=0 

30 READ A$ : = D + 1 

40 PRINT A$; 

50 IF A$ = "MOUSE" THEN EL = ELSE 30 

55 REM "MOUSE" IS THE LAST OF THE STRING DATA 

60 READ A. PRINT A. 

70 GOTO 60 
100 DATA CAT. DOG. MOUSE 
110 DATA 9. 18. -21.3.98 
200 RESTORE 
210 FOR I = 1 TO EL 
220 READ AS . NEXT I 
230 RESUME 50 



Program Listing 1 



10 ON ERROR GOTO 200 

20 D = 0: EL = 0: REM D FOR DELETE, EL FOR LAST ELIMINATED 

30 READ A: D = D + 1 

40 IF A = 9.9 THEN EL = D: REM 9.9 IS LAST DATA ELIMINATED 

50 PRINT A: 

60 GOTO 30 

100 DATA 6. 9. 8. 9 9. 4. 8 
110 DATA 7. 3.45. 2.1 

REM ALL DATA IS RESTORED 

REM THE FIRST EL DATA ARE READ 

REM BUT NOT PRINTED 



200 RESTORE 
210 FOR I = 1 TO EL 
220 READ A: NEXT I 
230 RESUME 



Program Listing 2 



65030 FOR I = 1 TO N 



65000 INPUT M. N, P, R : REM SEE TEXT FOR M, N, P, R VALUES 

65010 RR = N+(R-1)-(N - P-M) : REM RR = TOTAL DATA WANTED 
65020 DIM A(RR) : REM THIS SIZE ARRAY ALLOWS R 

REPEATS 

: REM THE FIRST N DATA ITEMS ARE 
READ 
READ All) : REM AND PLACED IN THE FIRST N 

NEXT I : REM ENTRIES OF AN ARRAY A 

FOR I = 1 TO RR : REM ALL OF ARRAY A IS FORMED 

IF l>M THEN A(l) = A(l - (N - M)-INT«I - M - 1V(N - M)|) 



65040 
65050 
65060 
65070 
65080 
65090 
65100 
65110 
65120 



REM THIS INSURES THE FIRST M ITEMS ARE USED ONLY ONCE 

IFI>2-N-M-PTHEN A(l) = A(l + M * P- N) 

REM THIS ENABLES US TO USE THE LAST P ITEMS ONLY ONCE 

NEXT I 

RETURN 



Program Listing 3 



David ft Cecil 
Dept. of Mathematics 
Texas A & I University 
Kingsville, TX 78363 



Methods to effectively set 
the DATA pointer to some 
other place than the start of the 
DATA list or only to certain data 
statements through the RE- 
STORE command have been the 
topic of many a letter to the 
editor in microcomputing jour- 
nals of late. 

The following programs illus- 
trate two methods of obtaining 
a selected RESTORE. The 
method in Programs 1 and 2 
RESTORES to the first of the 
data set and then reads to the 
desired data. The method in Pro- 
gram 3 places the data in an 
array and relabels the sub- 
scripts of the array, so that se- 
lected lines of data may be re- 
stored and used as often as 
desired. 

When we run Program 1, the 
output will be 6 9 -8 9.9 4 8 7 3.45 
2.1 4 8 7 3.45 2.1 4, etc. We have 
restored only the data appear- 
ing after the data value of 9.9. 

Program Listing 2 allows us to 
restore only numeric data, if we 
have all the string data listed 
together and appearing before 
any numeric data. 

If all the numeric data is listed 
before any string data, then we 



simply replace each A$ by A and 
each A by A$, as in Program 2. 
Line 50 would have A s last 
numeric data value. 

Using an Array 

The second method, using an 
array for storing the data, allows 
us to use all the data once and 
then reuse any consecutive por- 
tion as often as we wish. To 
illustrate this method, we'll use 
a subroutine with high line num- 
bers. 

To use this Data Restore 
Computation method with any 
of your programs, type the 
subroutine in Program Listing 3 
and, for the very first line of your 
existing program, put GOSUB 
65000. 

The subroutine asks for four 
inputs M. N. P and R. These 
values are given by the follow- 
ing: 

M = the number of data items 
at the beginning of the DATA 
statements that will be used 
only once; 

N = the number of data items 
to be used until we want to reuse 
some data; 

P = the number of data 
items, from item N - P + 1toN, 
that will be used only once (the 
middle items from the M + 1 st 
through the N - P ,h are the only 
items that will be reused); 

R = repeats the total number 
of times the data items M + 1 
through N - P will be used. 

Table 1 illustrates how the 
subroutine forms array A. The 
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Qume 

Printers 
for the TRS-80 ? 

Our model CS-2 interface plugs into the Qume printer I/O 
and offers a Centronics connector for DIRECT CONNECTION 
from your TRS-80 parallel interface. 
Q. Which Qume? 

A. Any sprint 3 series printer 35. 45, or 55 CPS. 
0. Software compatability? 
A. The code set is compatable with: 

Diablo 1610/1620 

Sprint 5 subset 

Scripsit works with no modification. 

Price: S395.00 shipped from stock 



Complete printer systems available. 

Example: Sprint 3/45cps with TRS-80 interface $2645.00. 



ALSO AVAILABLE 

Sprint 5 Printers RO & KSR 

Sprint 3 Twintrack 

DataTrack 8 Floppy Disk Drives 

DataTrack 5 Floppy Disk Drives 

Forms Tractors 

Cut Sheet Feeders 

Interfaces for Qume to Apple, Pet, HP-85 

Systems 10 Computer systems 

Supplies 

Complete service depot 



Dealer quantity discounts available. 

DATA WHOLESALE 
CORPORATION - 

700 Whitney St. San Leandro, CA 94577 (415)638-1206 



Original Subscripts 


Relabeled Subscripts 


Comments 


A(1) 




A|1 1 


This data only used 
at first and not 


A(M) 




A(M) 


repeated. 


AIM + 1) 




A(M + 1) 


First use of that 
part of the data to 


A(N - P) 




A(N-P) 


be repeated 


AfN-P* 


) 


A(N-P + 1) 


This data used only 
once and not 


A(N) 




A(N| 


repeated 


A(N + 1) 




A(M + 1) 




Al 2N - M - 


-P> 


A(N-P) 


R - 1 additional uses 
of data Items M + 1 


A(RR-N + P + M-f 1) 


A(M + 1) 


thruN-P 


A(RR) 




A(N-P) 

Table 1 





short program in Listing 4 with 
four DATA statements should 
help you get used to our M, N, P, 
R input notation. 

If we input 4, 10, 2, 4 when the 
prompt ? appears, then data line 
20 will be used only once (the 4 
input): all the data will be used 
(10 items); data line 50 will be 
used only once (the 2 input); and 
data lines 30 and 40 will be used 
a total of four times (the 4 input). 
The output will then be (4 9 -80) 7 
1 5 2 (3 6) (7 1 5 2) (7 1 5 2) (7 1 5 2). 
The parentheses are not output, 
but are used to show the group- 
ing. 

If we want to use data lines 20 
and 30, with line 30 used six 
times, we would input 4, 7, 0, 6. 
(Note that line 30 is used once 
for the first listing of seven 
items and then line 30 is used 
five additional times.) 

We see that 0. 10. 0, 3 would 
use all ten data items three 
times, while 4, 8, 1, 2 would use 
data lines 20, 30 and 40, and 



then repeat data line 30 one 
more time. 

Try other combinations of 
values for inputs. Be sure you 
use whole number values for all 
four inputs with M > 0, N > 0, P > 
0, R > and N > M + P. Program 
Listing 4 has very little data, but 
remember that for larger N and 
R, the subroutine takes a longer 
time to form the array. 

Program Listing 3 can be 
used equally well with string 
data. You need only change 
each A to AS in lines 65020, 
65040, 65070 and 65090. You 
could try this with Program 
Listing 5. 

Inputs of 3, 8, 2, 4 give an out- 
put Of ABCDEFGHDEFDEFDEF. 
If we change the first part of line 
10 to FOR I ■ M + 1 to RR, then 
inputs of 2, 5, 0, 3 would result in 
line 30, and only line 30, being 
used three times. 

I hope these methods will 
make your RESTORE problems 
seem like child's play.B 



GOSUB 65000 
10 FOR I = 1 TO RR: PRINT All):: NEXT I STOP 
20 DATA 4. 9. -8.0 
30 DATA 7. 1.5 
40 DATA 2 
50 DATA 3.6 

Program Listing 4 



GOSUB 65000 

10 FOR I = 1 TO RR: PRINT AMI: . NEXT I STOP 
20 DATA A. B 
30 DATA C. D. E 
40 DATA F 
50 DATA G. H. I. J 



Program Listing 5 
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UTILITY 



An LPUNK list program for Model lis. 



Less Is More 



C. E. Winterbauer 
3910 Bandini St. 
San Diego, CA 92103 



Sometimes a program is writ- 
ten and becomes a favorite 
for a silly reason. 

This is partly the case with 
this routine. While it's useful, 
it's particularly attractive be- 
cause the program does so 
much with so little code! It was 



written in assembly language 
but is so short that it's faster to 
load it directly using Debug. It 
also uses a relative jump, mak- 
ing its location unimportant. I 
placed it at 3000H only for con- 
venience while using it alone. 
It's an easy program. 



3000 






ORG 


3000H 




3000 


2100F8 


PRINTER 


LD 


HL , 0F800H 


;mem start location 


3003 


0613 




LD 


B.24 


; INI riAL NUM OF LINE:-.: 


3005 


C5 


PRTLNE 


PUSH 


BC 


;SAVE IT FOR LATER 


3006 


3E8 1 




LD 


A.81H 


; VALUE FOR DSPLY TURN ON 


3008 


D3FF 




OUT 


(OFFH).A 


5DSPLY MEM SWITCH PORT 


300A 


0650 




LD 


B.80 


;NUM CHARS/LINE 


300C 


oeod 




LD 


CiODH 


;CARR RET ADVANCES PRINTER 


300E 


3E13 




LD 


A, 19 


SUPERVISOR CALL CODE 


3010 


CF 




RST 


8 


•.EXECUTES SUPERVISOR 


3011 


1 1 5000 




LD 


DE.80 


•.INCREMENT TO NEXT LINE 


3014 


19 




ADD 


HL , DF. 


?SET UP NEW TRANSFFR LOG 


3015 


CI 




POP 


BC 


;GET CURRENT LINE NUM 


3016 


lOED 




DJNZ 


PRTLNE 


; CHECK. JMP BACK IF NOT DONE 


301A 


D3FF 




OUT 


(OFFH) ,A 


; DSPLY MEM SWITCH PORT 


30 1C 


3E24 




LD 


A, 36 


SUPERVISOR CODE JMP TRSDOS 


301E 


CF 




rst 


8 


; EXECUTES SUPERVISOR 


0000 






END 










Model II Machine Code for Printing the Display Contents 



The number of lines to be 
printed can be easily changed 
(3004H). So can the end of the 
program, both by adding a form 
feed instruction, or returning or 
jumping to another routine in- 
stead of back to TRSDOS. I use 
this routine in a larger program, 
which examines and edits speci- 
fied sectors of the disk. I call 
this routine whenever I want a 
copy of the information (sector 
data) on the screen. Of course, 
my printer has already been ini- 
tialized and is on line. 

One of the key points of the 
routine is the knowledge of the 
port and the value sent to that 
port to perform the operation. I 
have a 64K Model II and the turn- 
on value is 81 H and the turn-off 
value is 0. 

I hope this routine will be use- 
ful for those needing a simple 
but effective print routine when 
coding in assembly or machine 
language for the Model II. ■ 







L*V 



Test your mind— not 
your roflexo*— with 
SQUADRON LEADER Games 
Command a Fighter Squadron 
in any of six ol the decisive 
j campaigns of World War li 

IMan 




war >oc 



Squadron Leader games are not |ust snoot em up orcade 
gomes, but detailed historical simulations Each ot these 
games gives you a choice ot dozens ot combinations ot 
tnendly aircraft (controlled by you) and enemy aircraft (con 
trolled by the computer) Each is carefully researched and 
simulated tor factors ot speed, manueverability firepower 
sturdiness. and rate of climb Success or failure depends on 
your ability to learn and exploit the advantages and 
weaknesses of every aircraft 

Each game includes an audiotape cassette tor 16K TRS80 
Level II. Aople ll (16K or larger), and the new 16K PET loading 
instructions, a tactics reference card, and player's manual, in 
an attractive bookshelf box Price is S19 95 



ery G«m«s • 936 W 



I 55113 
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■ GENEALOGY 

Compiling Roots and Branches 

An extensive family tree system 

for the Radio Shack TRS-80 
64K 1-disk Model II 

STORES AND REVIEWS 1000 FAMILY MEMBERS 
names, dates, places, marital statuses (2), relation- 
ships (father, mother, spouses (2), children (16)), and 
footnotes (2) 

OUTPUTS complete Family Books of info for yourself 
and others, new and revised pages for Family Book 
recipients, indices to names and their ID numbers, in- 
dented format 8-generation pedigree and descendent 
charts, lists of dates and footnotes, and blank and 
filled-in forms to solicit info. Includes compre hensi ve 
indexed 70 + page man ual. 

Diskette with manual $250.00 

Manual & 9-program 81 K BASIC listings $50.00' 
Manual alone $25 00' 

'applicable toward diskette purchase 

Brief description with example printouts $1.00 

Send check or money order or call for more details 

John J. Armstrong m 

3700 Whispering Pine Rd. #47B ^ 414 ■ 

Mobile, AL 36608 ■ 

I Phone evenings 205/342-7642 



From the original author of floors and Branches 

Personal Computing magazine September 1979 

•TRS-80 is a registered trademark of landy Corp. 



S Reader Service— see page 274 
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GENERAL 



Computer dating with a difference. 



Gregorian Converter 



Hubert C. Borrmann 

2840 S. Circle Dr. 

Colorado Springs, CO 80906 



When we work with dates in 
real life, we look at our 
digital watch or calendar. When- 
ever we have to compare several 
dates, we let our fingers do a lot 
of walking through the calendar, 
because we cannot use simple 
arithmetic when subtracting 
one date from another. 

We use the Gregorian Calen- 
dar which was established in 
the early Middle Ages. Our com- 
puter likes its dates simpler, 
however. Some large data pro- 
cessing installations are using 
the Julian date, named after 
good old Julius Caesar. The 
Julian date consists of five dig- 
its, the first two of which are the 
year, followed by a three digit 
day within that year. For exam- 
ple: 80039 is Feb. 8, 1980; 80061 
is March 1, 1980. 

When comparing two Julian 
dates within the same year, we 
merely subtract the lower from 



the higher and have the elapsed 
days. If we go from one year to 
the next we first determine how 
many days are left in the current 
year, and then how far we want 
to go into the next year, and add 
the values together. 

This program will convert a 
Gregorian date to a Julian date, 
or vice versa, via two entry 
points. To convert to a Julian 
date we furnish the subroutine 
with three values: the month 
from 1-12 in 'MM', the day from 
1-31 in 'DD', and the year from 
10-99 in 'YY\ 

GOSUB 12100 and the sub- 
routine will return the five-digit 
Julian date in the form YYDDD in 
variable 'JD'. To convert to a 
Gregorian date furnish the sub- 
routine with the Julian date in 
'JD' from 10001-99365, then 
GOSUB 12200, and the subrou- 
tine returns with the Gregorian 
month in 'MM', the Gregorian 
day in 'DD' and the year in 'YY'. 

Both entry points edit the en- 
tered data, and if they are in er- 
ror, a message is printed and the 
return variables contain zero. 

Look at the subroutine in Pro- 
gram Listing 1. There is a rather 
extensive REM section from 
lines 12000 to 12090. If you are 
pressed for space this part may 
be eliminated. In addition to the 



variables 'MM', 'DD', 'YY' and 
'JD', which are not destroyed, I 
am using the Y-family in this 
subroutine. 12100-12180 is the 
Gregorian-to-Julian routine, and 
we first link to another subrou- 
tine at 12300, which loads our 
table into variable 'VV$\ a sub- 
routine within a subroutine. 

Line 121 10 edits the furnished 
Gregorian month, day and year 
within valid ranges. Any errors 
cause the logic to go to line 
12180 which prints ERROR, sets 
variable 'JD' to zero and goes to 
line 12170, which is a RETURN 
statement. 

The table in 'VV$', (line 12300), 
consists of 13 elements, one for 
each month of the year, and one 
terminator. Each element is five 
positions long, its first two posi- 
tions indicating how many days 
each month has. The remaining 
three positions describe how far 
into the year the first day of the 
month is. The first element, 
31001, is January. It tells us that 
January has 31 days and the 
first of January is the first day of 
the year (001). The next element, 
28032, tells us that February has 
28 days and February 1st is the 
32nd day of the year. March 1st 
is day 60 of the year, etc. The 
table is adjusted for Leap years 
as well. A leap year is deter- 



mined by dividing the year by 
four, and if there is no re- 
mainder, it is a leap year (see 
lines 12120, 12160, 12235 and 
12240). If the test in line 12120 is 
not true, line 12130 is executed, 
and here we check that the sub- 
mitted day is not larger than the 
last day of the month. We find 
the correct table element by 
multiplying the month by five 
and then subtracting four. This 
points to position one of the ele- 
ment, which is also position one 
of the number of days in this 
month. 

Let's say, for example, the 
submitted month was 04 and the 
day was 31. We multiply four 
times five and subtract four 
= 16. The statement in line 
12130 would say: If the day en- 
tered (31) is larger than the two 
positions in the string (the table) 
VV$, starting at position 16, then 
it is an error. Counting off the 
16th and 17th position, you find 
30, indicating that the 31st of 
April is an error. 

We have to use VAL because 
the day variable 'DD' is numeric 
and strings are alphanumeric. If 
the check passes, in line 12140 
the Julian day of the first of the 
month is picked up. If April 30th 
was submitted, again we find 
our month element and we are 
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pointing at position one of the 
three position day within the 
year field; 091 for April, to which 
we add the day value 30, and 
since we do not want to count 
the first day twice, we subtract 
one. The Julian day for the 30th 
of April is 120. 

Line 12150 develops the five 
position Julian date by multiply- 
ing the submitted year by 1000 
and adding the Julian day to it. It 
is in variable 'JD' and we can 
then go back to the main rou- 
tine. Before we RETURN we test 
for a leap-year and adjust our 
answer accordingly. 

For any printouts and com- 
munication with the "other 
world" we need to reconvert 
Julian dates to Gregorian dates. 



Line 12200 is the entry point for 
the Julian to Gregorian conver- 
sion. Line 12210 resets some 
variables and also converts the 
submitted numeric Julian day in 
'JD' to a string. If the Julian date 
is five positions long (as it 
should be) we will have six posi- 
tions in our string V7$. 

The first position is for the 
sign. Line 12220 picks the five 
significant positions out of V7$ 
and builds V6$. We also split 
V6$ into the year in 'YY' and the 
day in 'DD'. In line 12240 variable 
V4 is set up with a one if we are 
working with a leap year and the 
submitted day is larger than 59. 
Otherwise the value in V4 re- 
mains zero. 

Lines 12250 and 12260 form a 



12000 'THIS DATE-CONVERSION SUBROUTINE HAS 2 ENTRY POIN 

TS : 
12005 ' 1) 12100 CONVERTS FROM GREGORIAN TO JULIAN 

DATE 
12010 ' 2) 12200 CONVERTS FROM JULIAN TO GREGORIAN 

DATE 
12015 ' 
12020 'WHEN CONVERTING TO JULIAN DATE, SUPPLY THE GREGO 

RIAN 
12025 'DATE AS FOLLOWS s MONTH (1-12) IN VARIABLE 'MM' 
12030 ' DAY (1-31) 'DD' 

12035 ' YEAR (10-99) 'YY' 

12040 'AND THE JULIAN DATE WILL BE IN VARIABLE 'JD' AT 

EXIT 
12045 'AS YYDDD (YY-YEAR, DDD-DAY WITHIN YEAR) 
12050 ' EXAMPLE : 02,08,80 (FEB. 8, 1980) IS 80039 
12055 ' 03,01,80 (MAR.l, 1980) IS 80061 

ETC. 
12060 ' 
12065 'WHEN CONVERTING TO GREGORIAN DATE, SUPPLY THE JU 

LI AN 
12070 'DATE IN VARIABLE 'JD' AT ENTRY, AND AT EXIT THE 

VARIABLES 
1207 5 ' 'MM' WILL CONTAIN THE GREGORIAN 

MONTH 
12080 ' 'DD' 

DAY 
12085 ' 'YY' 

YEAR 
12090 'Ml THE YEARS 10-99 IN THE 20TH CENTURY ARE ASSU 

MED I I 1 
12100 GOSUB 12300 ' GREGORIAN TO JULIAN ENTRY, LOAD TAB 

LE 
12110 IF MM<1 OR MM>12 OR DD<1 OR DD>31 OR YY<10 OR YY> 

99 THEN 12180 
12120 IF DD-29 AND MM-2 AND INT (YY/4) *4-YY THEN 12140 
12130 IF DD>VAL(MID$(W$,MM*5-4,2)) THEN 12180 'ERROR 
12140 Vl-VAL(MID$(W$,MM*5-2,3))+DD-l 
12150 JD-YY*1000+V1 

12160 IF INT (YY/4) *4-YY AND MM>2 THEN JD-JD+1 
12170 RETURN 

12180 PRINT'E R R R" : JD-0 :GOTO 12170 
12200 GOSUB 12300 ' JULIAN TO GREGORIAN ENTRY, LOAD TAB 

LE 
12210 V4-0:V5«0:V7$-STR$(JD) :IF LEN(V7$)<>6 THEN 12295 

' ERROR 
12220 V6$-MID$(V7$,2,5) :YY«VAL(MID$(V6$,1,2) ) :DD-VAL(MI 

D$(V6S,3,3)) 
12230 IF YY<10 OR DD<1 OR DD>366 THEN 12295 'ERROR 
12235 IF INT(YY/4)*4 <> YY AND DD-366 THEN 12295 'ERROR 
12240 IF INT (YY/4) *4-YY AND DD>59 THEN V4-1 
12250 V5-V5+1 

12260 IF DD->VAL(MID$(W$,V5*5-2,3) ) +V4 THEN 12250 
12270 V3-VAL(MIDS(W$,V5*5-7,3)) :IF V3>32 THEN V3-V3+V4 
12280 DD-DD-V3+1:MM=V5-1 
12290 RETURN 

12295 PRINT'E R R R" :MM-0 :DD-0 : YY-0 :GOTO 12290 
12300 W$»" 3 100128 0323106 030091 3112130152311 8231 2133024 

4 3127 4303053133500367": RETURN 



Program Listing 1. Subroutine. 



loop, checking each table ele- 
ment's Julian day until a month 
is found whose entry is larger 
than the submitted day in 'DD'. 
On checking each entry the val- 
ue in V4 is added to it and this 
has the same effect as if all day 
fields from March on are larger 
by one in the case of leap year. 
On leaving the loop we are one 
month too far, and in line 12270 
in V3 the day element of the pre- 
ceding month is picked up. If 
this picked up day is larger than 
32, it's added to the value in V4, 
which in the case of a leap year 
has the same effect as if the day 
fields from March-December 



were larger by one. 

In line 12280 we subtract the 
picked up day in V3 plus one 
from the submitted Julian day, 
and the result is the desired 
Gregorian day in 'DD'. We know 
that we went one month too far 
and reduce the month counter 
V5 by one, which goes into 'MM'. 
The year has been in 'YY' since 
line 12220. Line 12290 returns to 
the main program, and line 
12295 is the error line. 

To try the subroutine, see pro- 
gram listing 2 for a small driver 
which alternates between the 
two entry points, and also 
checks for a zero return. ■ 



10 CLS:CLEAR 200 




20 INPUT" ENTER GREGORIAN DATE (MM,DD,YY) 


" ; MM , DD , YY 


25 IF MM-0 THEN END 




30 GOSUB 12100 




40 IF JD-0 THEN 20 




50 PRINTTAB(33) MM; "-" ;DD; "-" ; YY ; " IS 


«";JD:PRINT 


60 INPUT" ENTER JULIAN DATE (YYDDD) ";JD 




70 GOSUB 12200 




80 IF MM-0 THEN 60 




90 PRINTTAB(27) JD;" IS -" ;MM; "-" ;DD; 


"-";YY:PRINT 


100 GOTO 20 




Program Listing 2. Driver. 





Dear Subscriber: 

80 Microcomputing does not keep subscription 
records on the premises. Therefore, calling the 
Peterborough offices doesn't solve your subscrip- 
tion problem. 

To quickly solve your problem, please send your 
most recent address label and a description of the 
problem to: 

80 Microcomputing 

Subscription Department 

PO Box 981 

Farmingdale, NY 11737 

Please allow the subscription department at least 
two weeks for an answer or a solution to your prob- 
lem. 
Thank you and enjoy your subscription. 

Sincerely, 

Si&d&xcl * 

Debra L. Boudrieau 
Circulation Manager 
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3 new hooks from Hie editors 
of Kit & SO A\k roroiii|iiif iii«| 

• 40 COMPUTER GAMES BK7381 Forty games in all in nine 
different categories. Games lor large and small systems and 
even a section on calculator games. Many versions of BASIC 
used and a wide variety of systems represented A must for the 
serious computer gamesman. $7.95* 

• UNDERSTANDING AND PROGRAMMING MICROCOMPUTERS BK7382 - A valuable 
addition to your computing library. This two part text includes the best articles that have ap 
peared in 73 and Kilobaud Microcomputing magazines on the hardware and software 
aspects of the new microcomputing hobby. Well known authors and well structured text 
helps the reader get involved m America's fastest growing hobby. $10.95* 

• SOME OF THE BEST FROM KILOBAUD/MICROCOMPUTING— BK7311— A collection of the 
best articles that have recently appeared m Kilobaud/MICROCOMPUTING Included is material 
on the TRS-80 and PET systems. CP/M. the 806078085/Z80 chips, the ASR-33 terminal. Data base 
management, word processing, text editors and file structures are covered too. Programming 
techniques and hardcore hardware construction projects for modems, high speed cassette 
interfaces and TVTs are also included in this large format. 200 plus page edition $10.95 * 



INTRODUCTORY 




• THE NEW HOBBY COMPUTERS— BK7340— This book takes it from 
where ' HOBBY COMPUTERS ARE HERE'" leaves off. with chapters on 
Large Scale Integration, how to choose a microprocessor chip, an introduc 
tion to programming low cost I/O for a computer, computer arithmetic, 
checking memory boards . . . and much, much more' Don't miss this tremen 
dous value! Only $4,95 * 

• HOBBY COMPUTERS ARE HERE 1 BK7322- II you (or a friend) want to 
come up to speed on how computers work . . . hardware and software 
this is an excellent book. !t starts with the fundamentals and explains the 
circuits and the bastes of programming This book has the highest recom- 
mendations as a teaching aid lor newcomers. $4.95.* 



.INTRODUCTION TO MICROCOMPUTERS (VOL. 0^111) 



• AN INTRODUCTION TO MICROCOMPUTERS, VOL 0- 
BK1 130 -The Beginners Book -Written for readers who know 
nothing about computers - for those who have an interest in 
how to use computers - and for everyone else who must live 
with computers and should know a little about them. The first in 
a series of 4 volumes, this book will explain how computers 
work and what they can do Computers have become an in 
tegral part ol life and society. During any given day you are af- 
fected by computers, so start learning more about them with 
Volume 6 $7 95 ' 




• VOL. I - BK 1030 - 2nd Edition completely revised Dedicated 
to the basic concepts of microcomputers and hardware theory. 
The purpose of Volume I is to give you a thorough understand- 
ing of what microcomputers are. From basic concepts (which 
arts covered in detail) Volume I builds the necessary compo 
nents of a microcomputer system. This book highlights the dif- 
ference between minicomputers and microcomputers. $12.50 * 

• VOL. II - BK 1040 (with binder) - $30 00* - Contains descnp 
tions of individual microprocessors and support devices used 
only with the parent microprocessor Volume II describes all 
available chips. 

• VOL. Ill - BK 11 33 (with binder) - $20 00 ' Contains descrip- 
tions ol all support devices that can be used with any micropro- 
cessor 



• HOW TO BUILD A MICROCOMPUTER - AND REALLY UNDERSTAND IT - BK7325-b/ 
Sam Creason The electronics hobbyist who wants to build his own microcomputer 
sysmrn now has a practical How To guidebook This book is a combination technical 
manual and programming guide that takes the hobbyist step-by step through the design 
construction testing and debugging of a complete microcomputer system Must reading 
for anyone desiring a true understanding of small computer systems $9 95 

• TOOLS ft TECHNIQUES FOR ELECTRONICS - BK7348 - by A A Wicks is an easy tr> 
understand book written tor the beginning kit builder as well as the experienced hob- 
byist it has numerous pictures and descriptions of th« sate and correct ways to use 
basic and specialized tools for electronic protects as well as specialized metal working 
tools and the chemical aids which are used in repair shops $4.95 * 



I |hr o>daf i*e In Iht UkH ol lh» magum ot itexnue youi u»d» on * tepafjlr piece ol |Mpet ana mat lo SO Mtrrerampunna, Boo* 
NH UJ-1 i*. be tut to BKJkate xhmk or aelaiwrt u«ott c*r4 ml oimation. no CO.D. oro»» anecrteat. Al above aaa • 1 .00 handling Ptenw 

LL FREE ORDERING CALL 1-800-258-5 
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UTILITY 



Unravel your ROM vacabulary. 



Keyword List Plus 



Jack Decker 

1804 West 18th Street, Lot 155 

Sault Ste. Marie, Ml 49783 



Maybe you've got all those 
BASIC keyword lists that 
show ASCII values coming out 
of your ears. (Two of them were 
published in issue 1 of 80 
Microcomputing alone.) But you 
probably can't put your hands 
on one when you want it. 



Here, then, is a short program 
that prints the table and, as an 
extra bonus, the starting ad- 
dress for those keywords that 
are BASIC commands. 

The BASIC keyword list can 
be divided into three parts- 
commands (such as GOTO, 
CLOAD, INPUT), functions (such 
as TO, AND, INT, MID$) and 
miscellaneous (TO, AND, ERR). 
All commands have a corre- 
sponding address in the jump 
table that starts at 61 78 decimal 
and 5640 decimal respectively. 
The table contains the address 
bytes (least significant and 
most significant bytes) to which 
the computer should jump when 



the keyword is encountered. 

The program lists the ASCII 
code representing the keyword, 
followed by the keyword itself. 
When applicable, additional col- 
umns show the LSB and MSB of 
the jump table entry, followed by 
that entry expressed in decimal 
(MSB*256 + LSB). 



If you have always wanted to 
disassemble the ROMs, this pro- 
gram will point you to whatever 
BASIC command you want to 
tackle. 

Line 35 is a delay loop to keep 
everything from scrolling too 
fast to read and may be changed 
or deleted! 



11 


CLS:X-5712:AS=" 


E":F0RZ=1T0124 






20 


X^X+1:IFPKRK(X) 


:12BTHENA$=AS+CI!RS (PEEK (X) ) 


GO' 


"020 


30 


PRINTZ + 127 ;AS, : 


IFZ<61A=6176+2*ZELSEIFZ>87ANDZ 


124A-S 


464+2*ZELSE35 








32 


B=PEEK(A) :C=PEEK(A+1) : PRI KTB.-C, B-tC*256 ; 






35 


FORY=1TO]00:HEXT 






40 


AS = CI!RS(PEEK(X) 


-128) :PR1NT:NEXT 

Program Listing 







tife Business Accoi\Ti\o tifr 
*■' Software I " 



Flexible cttenl writf-up/grneral ledger system designed by 
a CPA and developed by a computer specialist lor CPA's, 
accountants and general businessmen provides large-scale 
compuier features at micro-computer software costs: 

* designed for use by present employee* *'" 

* allows for up to 500 accounts 

" departmental financial statements including 
budgets 

* retains standard journal entries 

* automatic balancing of transactions 

* fast entry & posting of transactions 

* easy to follow audit trail 

* conventional accounting symbols used 

9-program package on diskette with user manual $495 
User manual only $25 ^147 

Task CoMPirTEK Applications 

Dayton, Ohio PO Box 24001 
— - 45424 

"■ (513)233-5515 



EDUCATIONAL 
SOFTWARE 

For TRS-80 & Pet Micro Computers 

80 + Programs In: 

ELEMENTARY MATH 

SCIENCE BIOLOGY 

GEOGRAPHY HISTORY 

ECONOMICS ACCOUNTING 

FOREIGN LANG. BUSINESS ED. 

GAMES FARM RECORDS 

Programs are grouped Into packages of i 
4 to 7 programs priced at $24.95 per \ 
package Including shipping and han- 
dling. Available on disk or tape. 

Write for catalog: ^ 89 

\ MICRO LEARNINGWARE, BOX 2 I 34, 

N. MANKATO MN 56001, 507 625 220' 

•TRS-80 is a registered trademark ol TANDY CORP. 

Pet is a trademark of Commodore Bus. Machines 



DISA SSEMBL ED HA NDBOOK 
FOR TRS-80 

VOL UME 3— $18. POSTPAID 

Chapter 1: Writing Disassembler Programs 
Chapter 2: High Speed Disassemblers 
Chapter .V Spooling Iheory & Practice 
Chapter 4: Port Lncodcrs & Deciniers 
Chapter 5: Writing Interrupt Programs 
Chapter 6: D. A C onveners & Construction 
Chapter 1: A D Converters & ( instruction 
Chapter 8: High Speed Morse Code Program 
Chapter s>: Comm. Bulletin Board Systems 
Chapter 10: Radio Teletype From A to / 
Chapter II: Self- Programmed Learning Q- A 
Appendix A: Volumes 1-2-3 combined index 
Appendix B: Vols. 1-2-3 Pgms. on Disk S20 

VOLUME I— $10. POSTPAID 

6th priming 

VOLUME 2— $15. POSTPAID 

41 h print inn 
— GFRMAN & I RLNCH LANGUACiH EDITIONS— 

RICHCRAFT ENGINEERING I. Tl). 

Drawer 1065, Wahmeda Industrial Park 
Chautauqua, New York 14722 
phone (703) 430-2333 for COD orders 

I US fund*: add $4. 5 o verseas airmuili ^276 
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Z80 BOOKS 



• TRS 80 DISK AND OTHER MYSTERIES - BK1 181 - by Harvard C. Pennington 
This is the definitive work on the TRS 80 disk system It is full of detailed "How to 
information with examples, samples and in-depth explanations suitable tor 
beginners and professionals alike The recovery of one lost file is worth the price 
alone. $22.50.* 

• PROGRAMMING THE Z-80 BK 1 1 22 - by Rodnay Zaks Here is assembly 
language programming for the Z-80 presented as a progressive, step-by-step 
course This book is both an educational text and a self-contained reference 
book, useful to both the beginning and the experienced programmer who wish to 
learn about the Z 80 Exercises to test the reader are included. $14.95.* 

• Z-80 ASSEMBLY LANGUAGE PROGRAMMING - BK1 177 - by Lance A Leven 
thai. This book thoroughly covers the Z80 instruction set. abounding in simple 
programming examples which illustrate software development concepts and ac- 
tual assembly language usage. Features include Z80 I/O devices and interlacing 
methods, assembler conventions, and comparisons with 8060A/8085 instruction 
sets and interrupt structure. $16.99.* 




• Z-80 SOFTWARE GOURMET GUIDE AND COOKBOOK - 
BKi045-by Nat Wadsworth Scelbi's newest cookbook! This 
book contains a complete description of the powerful Z-80 in- 
struction set and a wide variety ol programming information. Use 
the author's ingredients including routines, subroutines and 
short programs, choose a time-tested recipe and start cooking! 
$16.99 * 



• INTRODUCTION TO TRS 80 GRAPHICS - BK 1180- by Don 
Inman. Dissatisfied with your Level I or Level II manual's 
coverage of graphics capabilities? This well-structured book 
(suitable for classroom use) is ideal for those who want to use 
all the graphics capabilities built into the TRS 80 A tutorial 
method is used with many demonstrations It is based on the 
Level I. but all material is suitable for Level II use. $8 95." 




BASIC 



• BASIC BASIC (2ND EDITION) - BK1026- by James S Coan 
This <s a textbook which incorporates the learning of computer 
programming using the BASIC language with the teaching of 
mathematics. Over 100 sample programs illustrate the tech- 
niques of the BASIC language and every section is followed by 
practical problems. This second edition covers character string 
handling and the use of data tiles $9 45 * 



• LEARNING LEVEL II-8K1 1 75 - by David Lien. Written 
especially for the TRS-80, this book concentrates on Level II 
BASIC, exploring every important BASIC language capability. 
Updates are included for those who have studied the Level I 
User's Manual. Sections include: how to use the Editor, dual cas- 
sette operation, printers and peripheral devices, and the conver- 
sion of Level I programs to Level II $15.95 * 

• THE BASIC HANDBOOK - BK1 1 74 - by David Lien This book 
is unique It is a virtual ENCYCLOPEDIA of BASIC. While not 
favoring one computer over another, it explains over 250 BASIC 
words, now to use them and alternate strategies If a computer 
does not possess the capabilities of a needed or specified word, 
there are often ways to accomplish the same function by using 
another word or combination of words. That's where the HAND- 
BOOK comes in. It helps you get the most from your computer, be 
it a "bottom-of-the-line" micro or an oversized monster $14.95 * 

• MY COMPUTER LIKES ME ... WHEN I SPEAK BASIC - BK 1039 
-An introduction to BASIC . .simple enough for kids. If you 

want to teach BASIC to anyone quickly, this is the way to go 

$3 95 * 

• ADVANCED BASIC - BK 1000 - Applications, including strings 
and files, coordinate geometry, area, sequences and series, 
simulation, graphing and games $9 65* 

• SIXTY CHALLENGING PROBLEMS WITH BASIC SOLUTIONS 
(2nd Edition) -BK 1073 -by Donald Spencer, provides the 
serious student of BASIC programming with interesting prob- 
lems and solutions No knowledge of math above algebra re- 
quired. Includes a number of game programs, as well as pro- 
grams for financial interest conversions and numeric manipula 
tions. $6.95.* 



*Uv* Hw order L«d ■< lh* bock ol Ihia marram* of ilonut your order on a teparate pic<« of paper *nd mad to BO MKiotomputing Bookshelf • Peterborough 

NH OJ4S6 Be »i*e lo include <ttt<k ot detailed crcdM c ard Mormanon No C O.O ar&en arrentrd Ml above add * I 00 haodBn* Pleat* aao» 4-6 week* 

for defhrery Question* rrqardkiq your order I FV<»v write fuMomei Servire M Ihe abmr atMirw 



FOR TOLL FREE ORDERING CALL 1-800-258-5473 
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GAMES 



• MORE BASIC COMPUTER GAMES BK1 1B2- edited by 
David H Ahl More tun in BASIC! 84 new games from the people 
who brought you BASIC Computer Games. Includes such 
favorites as Minotaur (battle the mythical beast) and Eliza 
(unload your troubles on the doctor at bargain rates) Compieto 
with game description, listing and sample run $7.50.* 

• WHAT TO DO AFTER YOU HIT RETURN -BKI071 -PCCs 
first book of computer games 48 different computer games 
you can play in BASIC programs, descriptions, many illus- 
trations. Lunar Landing. Hammurabi. King, Civel 2. Qubic 5, 

Taxman Star Trek. Crash. Market, etc. S 10.95 * 

• BASIC COMPUTER GAMES BK 1074 Okay, so once rati 
get your computer and are runnma m BASIC, then what 7 Th«n 
you need some programs in BASIC, that s what This book has 
101 games lor you Irom very simple lo real buggers You get the 
games, a description of the games, the listing to put in your 
computer and a sample run to show you how they work run. 
Any one game will be worth more than the price of the book for 
the tun you and your family will have with it. $7.50.* 



MONEY-MAKING 



• HOW TO MAKE MONEY WITH COMPUTERS- BKl00."i In 
10 information-packed chapters. Jerry Felsen describes more 
than 30 computer related, money-making, high profit, low 
capital investment opportunities $15.00.* 

• HOW TO SELL ANYTHING TO ANYBODY -BK7306- Ac- 
cording to The Guinness Book of World Records, the author. 

the worlds greatest salesman" This book 
reveals how he made a fortune - and how you can. too. $2.25.* 

• FREELANCE SOFTWARE PUBLISHING -BK1 179 -by B J 
K rtlee ' This book is about money and how to make it by 
writing and selling ct' i :>grams." (author's foreword) If 
you have the skills to write a saleable program, you now need lo 
acquire the skills lo sell thai program This compact book com 

i r ,iveiy covers the entire publishing process and many 
aspects of software salesmanship $14 95* 

• THE INCREDIBLE SECRET MONEY MACHINE BKll/8 by Don Lancaster A dif- 
ferent kmd of cookbook from Don Lancaster Want to slash tanes'' Get free vacations? 
Win at investments'' Make money from something that you like to do' You'll find this 
book MMntuM to give you the key insider details of what is really involved in starting up 
your own money machine $5.95.* 





BUSINESS 



• PAYROLL WITH COST ACCOUNTING -IN BASIC BK1001 by I Poole & M. 
Borchers. includes program listings with remarks, descriptions, discussions of 
the principle behind each program, file layouts, and a complete user s manual with 
step by step instructions, flowcharts, and simple reports and CRT displays Pay 
roll and cost accounting features include separate payrolls for up to 10 com- 
panies, time-tested interactive data entry, easy correction of data entry errors, job 
costing (labor of distribution), check printing with full deduction and pay detail, 
and 16 different printed reports, including W-? and 941 (in CBASIC) $20.00 ' 

• SOME COMMON BASIC PROGRAMS— BK 1053- published by Adam Osborne & 
Associates. Inc. Perfect for non-technical computensts requiring ready-to-use pro 
grama Business programs, plus miscellaneous programs. Invaluable lor the user 
who is not an experienced programmer. All will operate in the stand-alone mode. 
$12 50 paperback.* 

• PIMS: PERSONAL INFORMATION MANAGEMENT SYSTEM- BK1009 - Learn 
how to unleash the power of a personal computer for your own benefit in this 
ready-to-use data-base management program. $1 1 95 * 



V 



' UM UK Otdei <-«'d in Um both ui tin* «i *j*i\m m Hrmirr your otOrt on a wparatr pirrr of papr* *nd rn»U to 00 *K«XOmp*«irtf BeoktnaM ■ H«la»taj»ou0h 

-•HOIaM (V turr to include OwOi o< (MaWuaMuid mlanwlliin No C O D nrdrr* orrrptrd Ml nhovr nod * 1 .00 hand***;. flMM ••©• 4-6 «ra«fc* 

for dc*v«fy. Qucrtion* rceauhng vuw) otdei/ l>-jsr *•■!.• (ustianr* Hrtt« r M \hr .tfrmi- «iddrem 



A 



FOR TOLL FREE ORDERING CALL 1-800-258-5473 
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HOBBYWORLD 

ELECTRONICS. 



••23 



19511 BUSINESS CENTER DRIVE, DEPT. VI 
NORTHRIDCE, CALIFORNIA 91124 

Call Toil-Free: USA (800) 423-5387 

in California: (800) 382-3651 

Local & Outside USA: (213) 886-9200 



TELESIS VAR/80 

I/O Unit 

for the TRS-80 

now you can use your trs-80 as a digital 
door lock, burglar alarm, power manager, fre- 
quency counter, light dimmer, darkroom 
timer, lust to name a few! comes fully 
assembled and tested, use it with or without 
an expansion interface. Data pack includes: in- 
structions, applications, sample circuits and 
several programs, with power supply. Wt. 5 
lbs. 

Cat. No. imz 



$105 



Mini 8100 

s-100 Bus Adaptor 

for the TRS-80 

Mini size, mini price, maxl performance! A 
complete adaptor/ motherboard for the 
TRS-80 



Cat no. Description 

1905 Kit. all parts, one S-100 

connector 

a&t w four s-100 connectors 

Kit. w s-100 a bd. plugs into 

mainframe 

As above, a&t 



1906 
1907 



1908 



Price 
S1 15.45 



5155.45 
[ 90.00 



SI 25.00 



16K MEMORY 



ADD-ON 



$39.95 



for the TRS-80, 
Apple, & Exidy 

Everything you need to upgrade your 
system! includes 4 pages of illustrated instruc- 
tions. Complete with rams and pre-program- 
med Jumpers. No special tools required! wt 4 
oz. 

cat no. Description 
1 1 56 for TRS-80 Keyboard unit 

1 1 56A For TRS-80 Exp. interface 

purchased before 4/1/79 
1 1 568 For trs-80 Exp. interface 

purchased after 4/1/79 
1156C APPLE H 

11560 EXIOY 



BASF 

WW 



DISKETTES 

BOX/10 



soft sector, double density, single sided, use 

for TRS-80. Apple. Atari. 

cat No. 2746 Box of 10 diskettes. 




VERBATIM 

SV* m Diskettes 

VERBATIM 525 SERIES 

• Double Density 

• single sided 

• Perfect for commercial and general applications 

Cat No. Description Type Use for 

1147 Soft sector 525-01 TRS-80. Apple 

1148 10 hole, hard 525-10 North Star 

1149 16 hole, hard 525-16 Mlcropolis 

VERBATIM 550 SERIES 

• Ouad Density (double sided, double density) 

• For commercial and general applications 

1492 Soft sector 550-01 SA450.MP152 

2528 10 hole, hard 550-10 BASF.wangco 

2529 16 hole, hard 550-16 Micro-2 

VERBATIM 577 SERIES 

• certified twice, 77 tracks 

• single sided, double density 

• Built-in hub protector ring 

• For critical data applications 

2550 Soft sector 577-01 TRS-80, Apple 

2331 10 hole, hard 577-10 North Star 

2332 16 hole, hard 577-16 Mlcropolis, etc. 



10 for 
$33.00 

33.00 
33.00 



$62.25 

51.95 
59.95 



$49.95 
54.95 
49.95 



Electric Pencil for the trs-so® 

Allows you to produce malllng-llsts, forms, large numbers of original cor- 
respondence, etc. A character-oriented word processing system, providing max- 
imum freedom and simplicity In the handing of text. Eliminates the need for word 
hyphenations or carriage returns. Line formatting is done automatically, insert, 
delete, or relocate any text using simple keyboard demands. 

Cat NO. 1338 TRS-80, 11 6 L2 



Cat NO. 1338-0 TRS-80. L1 6 12 



$59.95 



16K, cassette 



$89.95 



16K, Disk 



"Scott Adams" 

ADVENTURES 

ADVENTURELAND 

Cat no. Description Price 

2719 TRS-80. L2. 16k Cassette $14.95 

2720 TRS-80, 12. 52k Disk 

( ♦ Pirates Adv.) $24.95 

PIRATES ADVENTURE 

2505 trs-80, 12. 16k Cassette $14.95 

MISSION IMPOSSIBLE 

2723 TRS-80, L2, 16k Cassette $14.95 

2724 TRS-80, L2. 32k Disk 

i ♦ voodoo castle) $24.95 

The COUNT 

2726 TRS-80, 12. 16k cassette $14.95 

STRANGE ODYSSEY 

2766 trs-80, 12, 16k Cassette $14.95 

GHOST TOWN 

2765 trs-80, 12. 16k cassette $14.95 

TUNNEL OF FAHAD 

2771 trs-80, 12. 16k cassette $ 9.95 

utilities, Business, Sci-fi, 
Games, Education, and 
much more software for 
the trs-80 is available at 
Hobbyworldi 



Disk/Diskette 

Drive Head 

Cleaning Kit 

Clean these hard-to-reach heads in lust 
minutes! Available for both sv«" and 8" 
drives, single and double sided. Comes com- 
plete with two cleaning disks, 4 oz. of CS-85 
cleaning solution, and easy-pour dispenser. 
wt. 12 oz. _ ^ 

Cat NO. 2499 8 disk CTfl 

cat No. 2534 5V«" diskette ^«»w 



CATALOG 



Fourty-four pages of computers, terminals, 
printers, disk-drives and many more periph- 
erals that can add dimension to your personal 
computing, we also carry complete lines of 
computerized toys i games, application 
boards, integrated circuits, comprehensive 
software, electronics parts, p.c. i soldering 
accessories, electronics books & manuals, and 
much more! 

Call or write to us today and ask us for your 
free Hobbyworid catalog, (or circle the 
reader's service number in this magazine.) 



HOW TO ORDER 

Minimum Order $15.00. Order toll-free by 
phone or by mall, or at our retail stores. Pay 
by check, Mastercard, visa or COD. Please 
include expiration date with charge-card 
orders. U.S. dollars only, include phone t 
and magazine Issue you are ordering from 
Add $1.25 for c.O.D. and shipping charges 
from rates below. 
Shipping Not—: US* 

Ground: $2.25 for first 2 lbs. and 40e 
each addt i lb 

Air $5 25 for first 2 lbs. and 70« each 

a ddriib. 

Shiif>ffrif%fl N cites: Poraltjti 

Ground: $3.00 first 2 lbs and 60e each 
addt I lb 

Air: $11 25 first 2 lbs. and $5 00 each 
addt I lb. 

Prices valid thru month of magazine 
issue. Some items subject to prior sale or 
quantity limits. Hobbyworid is not 
responsible for typographical errors. 120 
Day Guaranteed satisfaction. Exception: 
Partially assembled kits, abuse or misuse. 
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TRS-80 
SERIAL I/O 

• Can input into basic 

• Can use LLIST and 
LPRINT to output, or 
output continuously • 
RS-232 compatible • 
Can be used with or 
without the expansion 
bus • On board switch 
selectable baud rates 
of 1 1 0. 1 50. 300. 600. 
1 200. 2400, parity or 
no parity odd or even, 
5 to 8 data bits, and 1 
or 2 stop bits D T R. 
line • Requires +5, 
-12 VDC • Board only 
$19 95 Part No 8010. 
with parts $59 95 Part 
No 801 OA. assembled 
$79 95 Part No 8010 
C No connectors pro- 
vided, see below 




oH|i|)9SPn 
No DB23P9 

3 -'Obo- cat* 

■"•cicno't ">S 



COMPUCRUISE 




$129S5:witf-cnjsec 
trolS16995 



PAPER TIGER 



ft i 




Prints address labels, 
multicopy invoices and 
legal-size reports. Ad|ust 
the tractor width from 
1-3/4 to 9-1/2 inches. 
8 switch-selectable 
forms lengths Pnnt 6 
or 8 lines per inch Add 
the software-selectable 
full dot plotting graphics 
option to pnnt illustra- 
tions, block letters, 
charts, graphs Part No 

162 172 $899 95 -with 
graphcs option Part No 

162 173 $1099.95 



GAME PADDLES 

& SOUND 




Includes 2 game pad- 
dles, interface, soft- 
ware, speaker, power 
supply, full documen- 
tation including: sche- 
matics, theory of 
operation, and user 
guide: plus 2 games on 
cassette (Pong and 
Starship War) $7995 
Complete Part No 
7922C 



DIGICOM DATA 
PRODUCTS INC. 

Series 312 
Acoustic Coupler 

«» 

300 BAUD Originate. 
Part No. AC3122. 
$21935. 300 BAUD 
Answer, Part No. 
AC3122. $219.95 
300 BAUD Answer/ Or- 
iginate Part Nq ACS 1 23. 
$229.95. 



IBEX 
LIGHT PEN 




Comes with Backgam- 
mon and Tic-Tac-Toe on 
tape with full documen- 
tation and program list- 
ing. Requires 9v. battery 
Part No IBEX $19.95 



SYSTEM 

EXPANSION 

from 

LNW Research 

• Senal RS232C/20 
mA I/O • Floppy con- 
troller • 32K bytes 
memory • Parallel print- 
er port • Dual cassette 
port • Real-time clock 

• Screen printer bus • 
Onboard power supply 

• Software compatible 

• Solder mask, silk 
screen PC board and 
user manual, Part No 
LNW80. $69 95 



DISKETTES 




1 Verbal i m 



Box of 10. 5" $29.95. 
8" $39.95. 
Plastic box, holds 10 
diskettes. 5 " - $4 50. 
8 -$6 50. 



16K RAMS 

For the Apple. 
TRS-80 or Pet $8 
each Part No 41 16' 
2117. 



LEEDEX 
MONITOR 



CJ 



12' Black and White* 
12 MHz Bandwidth 
• Handsome Plastic 
Case -$139 00 



S-100 INTERFACE 




AN S-1 00 bus Adapter— Motherboard for the 
TRS-80. Kit, Part No. HUH81 DLXK. $295 95 
Assembeled. Part No HUH81 DLX A, $375.95 



NOW! 

A FULL SUPPORT SYSTEM 

FOR TRS-80 




• 32K of RAM • EPROM firmware • Disk 
control • Data acquisition • Parallel I/O • 
Senal I/O • Plug into GPA's Motherboard 
GPA's quality design includes • 6-44 pin edge 
connectors • +5V. -5V, + 12V. -12V external 
power supply required • Active termination. 
The Motherboard. Part No GPA80. is only 
$14995. 

TAKE ADVANTAGE OF 

GPA-EXPANSION CARDS 

FOR THE GPA80 

Memory cards: Now with Fortran compilers 
available for your TRS-80. additional expansion 
memory is a must! Card with sockets only, Part 
No. GPA801 .$1 1 9.95. Card with 1 6K of 41 1 6 
Dynamic Ram. Part No. GPA802, $22495 
Card with 32K of 4 1 1 6 Dynamic Ram. Part No 
GPA803, $329 95 All cards come equipped 
with sockets to accomodate 32K of Ram. 
EPROM firmware card. Put those valuable 
subroutines m firmware Don't waste time 
loading and unloading tapes and disks. For 2708 
or 271 6 EPROMS. Part No. GPA806, $79.95 
Serial I/O card. Here's what you've been 
asking for. a full serial terminal interface, with 
RS-232C or 20 mA. Current loop. Input/ output 
capabilities Part No GPA807. $79 95 
Parallel I/O Card. Control functions m the 
outside world, monitor and store real time 
events Two parallel output ports Dip switches 
select ports 10-254) Part No GPA808 
$79.95. 



FLOPPY DISK 
STORAGE BINDERS 




Three nng binder comes 
with ten transparent plas- 
tic steeves which accom- 
modate either twenty, 
ftve-mch or ten. aght-rich 
floppy disks Binder & 1 
holders. Part No 81 0B- 
$995 • Extra holders. 
Part No B 1 0—69C each 



Three-nng bwrder with 
ten 5 1/4 inch jackets 
PartNa510B-$9.95« 
Jackets only, fits stan- 
dard 3-nng tenders. Part 
No 510-69Ceach 



DIGITAL 
CASSETTE 




5 mm. each side Box 
of 10 $9 95 Part No 
C-5. 



TRENDCOM 
PRINTER 




TRENDCOM 200. Part 
No TRC0200 $495.95 
Interface for TRS-80. 
Part No TBOA $49 95. 
For Apple II, Part No 
TRCALL $7595 For 
PET. NO TRCP2. 
$79.95. For Sccccerer. 
TRCSR1 $45 95 



SARGON: A Computer 
Chess Program 

Features the complete program that won the 
1978 West Coast Computer Faire Tourna- 
ment Part No 00603 — TRS-80 Level II. 
Part No. 00604 — Apple II (24K) $19 95 



SPINWRITER 
MODELS 5510 and 5520 




Features— EIA RS-232C/CCITT V.24 Inter- 
face Standard • 55 Characters Per Second 
Maximum Pnnt Rate • Impeccable Pnnt Quality 
tOCR Quakty) • Microprocessor Electronics • 
Ffcgh Resolution Plotting/Graphing • Lowest 
Operating Noise Level • Setf-Test Printing • 
Operator Engineered Control Panel • Prints 
Original and up to Seven Copies • NEC Informa- 
tion Systems new Model 5510 Receive Only and 
Model 5520 Keyboard Send/Receive SPIN- 
WRITER terminals are microprocessor con- 
trolled senal. impact terminals designed for 
remote printing applications where impeccable 
pnnt quality is required. Model 5510 RO Part 
No NECA30759 $279595 • Model 5520 
KSR. Part No. NECA30762 $3095.95 



Send for FREE Catalog. ..a big self addressed envelope with 80C postage gets it fastest! 



TO OrdGr* Mentlon P art no - description, and price. In USA shipping paid by us for orders accompanied by check or money 
'" ' order. We accept C.O.D. orders (U.S. only) or a VISA or Master Charge no., expiration date, signature and phone 
no., shipping charges will be added. CA residents add 6.5% for tax. Outside USA add 1 5°/o for air mail postage 
and handling. Payment must be in U.S. dollars. Dealer inquiries invited. Pnces subject to change without notice. 



Order Line: (408) 448-0800 



ELECTRONIC S YSTEMS Dept 80 P0 Box 2163a San Jose ' CA USA 95151 
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APPLICATIONS (Combine* Business. Horn* 

132 Graphics greeting card 

1:52 Impact printer braille 

1:54 ESP research aid 

1 56 Decision-making program 

1114 Calculus on the TRS-80 

2:70 Tracking church collections 

2:104 Avoid process over-adiustment 

2:114 Home accounts manager 

3:22 Printing quotes on the TRS-80 

3:42 Tax record program 

3:30 Index articles 

3:84 Algebraic equation solutions 

3:117 Produce biorhythm curve 

3:127 Organize the workload 

3:130 Plot spending 

3:136 Genealogical research aid 

4:95 Keep track ol travel plans 

4:114 Referencing magazine articles 

4:121 Captioning video productions 

4:123 Lite's mood changes 

5:62 Carpooling 

5:128 Scale model measurements 

6 130 Replacing columnar worksheets 

6:148 Preparing exams on an 80 

7:58 Mathematics 

7:62 Amway product list 

7:166 Algebra 

8:86 Radio log 

9:162 Bookkeeping 

9:174 Grocery shopping 

9:212 Company stock sales plan 

10:188 Genetics 

10:106 Cattle breeding program 

10:176 Home heating 

10:156 Voltmeter 

11:32 A daily calendar 

11:90 Photography program 

11:114 Compute election results 

11:160 Utility bill program 

11:212 Directory tor PIMS 

12:109 Computers in the office 

12:132 Holiday greeting cards 



EDUCATION (Combines tutorial. Style) 

1:41 Computer education course 

1:60 Learning Level I 

1.84 Reclaiming programs 

1:102 Data sorting 

1:130 How disk drives work 

2:73 Computing square roots 

2:88 Move machine code with BASIC 

3:94 Inbuilt assembly routines 

4:45 Upgrading to Level II 

4:75 Teaching children math 

4:103 Doing away with ENTER 

4:128 Eliminating effects of BREAK 

5:94 Searching data base by 

character 

5:142 Fractions, variable data streams 

6:140 PEEKing the keyboard 

7:94 Calling routines 

7:108 Video display 

8:144 Steps 

8:166 Sort 

8:178 Speed 

9:124 Teaching aid 

9:182 Reading music 

9:188 Line printing 

9:50 Level II overview 

9:62 String handling 

9:138 Level I programming 

9:152 String packing 

9:158 Flash cards 

9:178 Cryptology 

10:93 RESTART 

10.68 Level II series 

10.76 String management instructions 

10:100 Assembly routines in BASIC 

11:70 IF . THEN explored 



. Personal. Math) 




11:186 


Math drills 


Merry TRSMAS 


Taylor 


11.202 


Selfmodifying code 


Braille 


Bruey 


11:222 


Learn simple graphics 


Telepathy 


Warren 


12:82 


Dimensioning arrays 


Decisions. Decisions 


Walton 


12:94 


How to program arrays 


Oh No' Calculus 


Joffe 






Passing the Plate 


Reikers 






Process Control 


Hoffman 


GAMES (Combines Recreation) 


Household Accountant 


Andresen 


1:36 


Music generation 


Printer's Apprentice 


Barnes 


1:90 


Horse handicapping 


TRS40 


McNeil, Jr 


3:55 


Selfmodifying games 


K WIC Index 


Sparks 


4:60 


Beyond ping-pong 


Equations 


Joffe 


4:116 


Children learning game 


Biorhythms 


Holthausen 


6:116 


Predict your answer 


Duty Roster 


Straw 


7:152 


Tic-tac-toe 


Graph Plotter 


King 


8:42 


Adventure 


Soundex Codes 


Hodge 


8:50 


Star trek type 


Itinerary 


Gorsky 






Magazine Index 


Klungle 


8:59 


Space war 


Tiller 


Rotzien 


8:62 


Language versions 


1 Chmg 


Scarpeili 






Carpool 


McCahan 


8:68 


Submarine game 


Model Conversion 


Blackburn 


8:76 


History recreation 


Accountants Aid 


Sheats 


8:84 


Betting program 


Quiz Master 


Eckert 


9:216 


SET. RESET. POINT. INKEYS 


Linear Meter Design 


Thibodeau 


10:212 


4K space game 


Get the Whole Story 


Blechman 






Real Roots 


Daniels 


10.148 


Pioneering game 


On the Radio 


Hastings 


10:198 


Word fingers 


Doctor Your Records 


Muehlig 


11:83 


Computerize the board game 


Mind Your As and P s 


Leonard 


11:168 


Music program 


Down the Road 


Vick 


11:230 


Manipulating tones 


Genotype 


Rauber 


12:255 


Line drawing 


When the Cons Come Home 


Noyt 






Cold Comfort 


Keen and 


GENERAL 




Laughlin 


1:28 


The Development of Tandy Corp 


DVM Interlace tor the 80 


Casper and 


1:93 


What they didn't tell you about 




Freed man 




the TRS-80 


Your Personal Calendar 


Colsher 


1:138 


How to use INKEYS 


The Fixer 


Ashley 


2:32 


Story ol a software firm 


Tally with an 80 


Graham 


2:106 


Programming Shortcuts 


Ot Two-dimensional Arrays 


Conhaim 


3:79 


Use computer expertise 


Mix your own PIMS 


Busch 


4:30 


Hooked on computers 


The Ottice Computer 


Valle 






Holiday Cheer 


Kerr 


4 98 


Early days with the 80 






5:36 


New Languages for 80 






5:44 


Compiler in BASIC 






5:46 


High level command language 


Night School 


Lopez 


5:50 


Word processor 


Beyond Blackjack 


Thorson 


5:78 


Meeting needs of a small 


NEW Restored 


Fordham 




business 


Sort 80K in 6K ' 


Fitchman 


5:107 


80 user report 


A Disk Primer 


O'Brien 


5:110 


Electronic messages 


Root Routines 


Gerald 


6:38 


Generation graphics 


Relocate with PEEKPOKE 


Rappaport 


6:62 


Video patterns 


Inside the ROMs 


Stock 


6:65 


Plotting a bar graph 


More Night School 


Lopez 


6:72 


80 for doodling 


Pre-School Math 


Hastings 


6:78 


Computerized kaleidoscope 


IN KEYS 


Himler 


6:82 


PEEK & POKE simulations 


Break Disable 


Rastin 


6:96 


Level 1 examined 


Free Format Search 


Riekers 


6:106 


Double width characters with 
CHR$(23) 


Fractional Input 


Cecil 


6:118 


Learning assembly language 


Keyboard Interrogation 


Yarbrough 








and Vosteen 


6:124 


Find references quickly 


White 


Commander 


7.44 


School labs 


Beginners' Formatting 


Keller 






Towards machine language 


joffe 


7.48 


Profile. Scott Adams 


Graphic Sort 


de Zoysa 


7:52 


Commands 


Machine Code USR 


MacDonald 


7:78 


TRS-80 


Kidstuft 


Keen and 


7:84 


TRS-80 




Dischert 


7:88 


Data files 


Music Note Recognition 


McClung 


7:110 


Computer consumer 


Variations on a Theme 


Bullitt 


6:148 


Model II entry 


Into the 80s— Parr 1 


Sinclair 






Pulling Strings together 


Adams 


9:58 


Computer's annual audit 


My Way 


Meushaw 


9:187 


ROM commands 


Stringy Machine Code 


Grimes 


9:208 


NEXT 


Math Flash 


Barbarello 


10:54 


Copyright laws 


An Article Called Intrepid 


Gorsky 






Get Serious 


Pape 


10:114 


MEMORY SIZE? 


Into the 80s— Part II 


Sinclair 


10:140 


Disk storage 


Pulling Strings Together 


Adams 


11:62 


Computer networks (feature) 


The Useful USR(0) Function 


Kepner 


11:109 


■ Competing, but compatible 


Into the 80's—Part III 


Sinclair 




products 



Hey. . You in the Corner 
Smart Programs 
Inside out Debugging 
Into the 80s. Part 4 
A Manipulative Wizard 



South 

Lovy 

Ogren 

Sinclair 
Adams 



Music. Maestro 


Pape 


Tout 1 


Wilson 


4K Intelligence 


Lopez 


Ball Box 


Lewis 


Rocks. Scissors. Paper 


Harris 


True or False? 


Krutch 


The Third Dimension 


Dillehay 


Swords and Sorcery II 


Adams 


Star Search 


Berenbon and 




Gentile 


Startighter 


Ferrera 


Life m the Fast Lane 


Kepner and 




Grace 


UBoat 


Borrmann 


A Heartbeat Away 


Morey 


Slot Machine 


Fason 


Pmg pong 


Moehlis 


Asteroid Adventure 


Perry and 




Taylor 


Westward Ho' 


Heroid 


Puzzler 


Morgan 


Computer Monopoly 


Adams 


Cheap Trills with T-BUG 


Bole 


POW BANGZAP-iCRASH, 


Brandolim 


CompuSketch 


Hendricks 



The Tandy Story Brown 

Hidden Codes and Missing O'Conner 
Chips 

Keyboard Informal ion Lovy 

The Bottom Shelf Shulord 

ROM Routines Thielke 

Part-Time Consultant Morin 

A Confession from a Korntieid 
Computer Derelict 

A Dealer s Experience DeFonzO 

Languages Perry 

TINYCOMP Bohlke 

PUTN O'Brien 

8AS/C Word Processor Hinnchs 

Business Programming Clarke 

An Owners Tale Dilbeck 

Computer Bulletin Boards Cambron 

The Game ot Life Kitsz 

Adventures in Roseland Joffe 

Randomness Carpenter 

Doodle Bug Bishop 

Kaieidopen Nicholas 

Realtime Graphics Zidonis 

Inside Level I Meushaw 

Double Size Graphics Thiel 

Assembly Language Colsher 

Trainer 

EOT ASM index Kepner 

Computer Education Chartier and 

Goldner 

How the Gamesman Began Robertson 

The BASIC Switchyard Perkins 

In the Beginning Herro 

Modification Update Richards 

Disk Files O'Brien 

Saving Money Acres 

Hires of Passage Keen and 

Dischert 

A Bout with the IRS Blechman 

BINAX KIBUFF Blair 

The 'Next" Trap Borrmann 

Have the Courts Smashed Kitsz 
Software Copyright? 

Memory Sizer Decker 

Punch Out Your Disks Taylor 

Electronic Net work s Robert so n 

Radio Shack vs the Busch 
Competition 
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JOWEST PmCES ON 
PERSONAL COMPUTERS 

Q|cippkz computer 




Apple II 
personal 
computer. 

16K 
List $1195 



ONLY $989 



32K, List $1395 .. 


. .. $1169 


48K, List 


. .. $1259 


DISK II DRIVE 


$420 


Above w/Controller 


$505 


MICROSOFT Z80/CPM 




Conversion For Apple II - - 


ONLY $299 


APPLE III 






$2998 



CENTRONICS PRINTER INTERFACE 

Pascal Language Systemi • $495 $420 
Centronics 

Printer Card Lm $225 $191 

High Speed 

Printer Interface $195 $165 



COMPLETE LINE OF 
CALIFORNIA COMPUTERS 

Interface cards available. 
We also stock the 
DC Hayes Micromodem, 
Mountain Hardware, 
and the SSM combination 
serial/parallel interfaces. 



R 



ersonal 
omputer 

ystems .*» 



c 



s 




609 Butternut St., 

Syracuse, NY 13208 

(315) 475-6800 

Prices do not include shipping by UPS. All 
prices and offers subject to change without 
notice. 



HEWLETT-PACKARD 

HP-85A ONLY $2795 




HP-85 ACCESSORIES 

S-Va" Dual Master 

Disc Drive List $2500 $21 25 

5-Vi" Single Master 

Disc Drive List $1500 $1275 

HP 7225A 

Graphics Plotter List $2050 $1845 

HP-85 16K 

Memory Module List $395 . $355 

HP-85 Application Pacs 
Standard List $95 $85 

Serial (RS-232C) 

Interface Module List $395 $355 

GPIO 

Interface Module List $495 $445 

IMAGINE A CALCULATOR 
YOU CAN CUSTOMIZE. 
ITS HERE-THE HP-41C. 




HP-41C 
ONLY $244.95 

^CALCULATORS: 

HP-32E Scientific w Statistics 
HP-33C Scientific Programmable 
HP-34C Advanced Scientific 

Programmable 

HP-37E Business Calculator 
HP-67 Handheld Fully Advanced 
Programmable Scientific for 
Business & Engineering 



53.95 
99.95 



123.95 
58.95 



298.95 




Texas Instruments 

INCORPOR AT ED 

TI-99/4 

home computer 




CALL FOR PRICE 

Commodore Pet 

CALL FOR PRICE 



PRINTERS FOR 
ALL COMPUTERS 



A 

ATARI 



PERSONAL 

COMPUTER 

SYSTEMS 



<*—».© List $1080 

ATARI® 800™ 
PERSONAL $849 
COMPUTER SYSTEM. 




HP-97 Desktop w Built-in Printer 579.95 



ATARI 810 DISC DRIVE 

List $699.95 $589 

ATARI* 

820™ Printer, List $599.95 • • • • $499 

Atari- 400 List $630 • • • $499 



1 1 : 1 79 Coordi nate graph ics 
11:195 Menu selection 

1 1 .234 lnde> to Scnpsil tapes 

12:66 Keyboard modification to Dvorak 

method 
12:208 Printer switch modification 
12:260 Program dates in Julian or 

Gregorian 



7:76 4K 

7:128 Plot variables 

7:130 Figures 

7:140 SET. RESET. POINT 

11:220 Draw simple patterns 

12:112 Christmas scenes 

12:128 Calendar printout program 



The Random Walker 

Menu List Selection 

Subroutine 

The Table ot Contents 

The Dvorak Keyboard 

Turn-On 

Gregorian Converter 



Simple Graphics 

Scatterpiot 

Curve Plotter 

BASIC Drawing 

images 

Seasons Greetings 

CAL81 



HARDWARE (Combines Interface, Construction) 

1:62 About cassette hang-upS Cassette Problems 



1:70 Line printer interface 

1:78 Protecting cassette relays 

1:104 Turning the 80 into a terminal 

1:109 Debounce with audio feedback 

1:132 Simplify CLOADing 

2:50 Speed up programs 

2:54 Cassette Hang-ups II 

2:62 Fix up your monitor 

2:94 Interface switches to system 

2:100 Inexpensive hard copy 

3:72 Software-driven modification 

3:88 Add a hexadecimal keypad 

3:96 Build your own interface 

3:113 Fix TRS-80 power glitches 

3:120 Interface Intel 8255 

3:132 Cabinet for the 80 

4:38 Constructing a light pen 

4:54 Reversing your video 

4:58 Hooking up to TV 

4:110 Improving CTR-41 recorder 

5:70 Adding extra memory 

5.74 Prevent cassette welding 

5:84 Metering load levels 

6:136 Automatic test measurement 

check 

6:142 Model 33 with no hardware mods 

6:154 External fuse to power supply 

7:112 Cassette recorder 

7:116 A/ D conversion 

7:156 Prevention 

7:114 H14 printer 

7:144 Printer 

8:136 I/O ports 

8.116 TV interface 

8:152 SWTPC interface 

9:84 Interface 

9:102 IBM interface 

9:116 Port 

10:82 Video monitor 

10:122 Serial I/O board kit 

10:182 Level II mod 



10:118 
10:144 



H14 printer 
Printer 



10:194 LIST 



11:116 
11:146 
11:216 
12:186 



Install an extra 4K 
Build a microcomputer 
Protect cassette relay 
Joystick construction 



REVIEWS 

1:34 Disk directory 

1:48 Four programs reviewed 

1:74 TRS-80 publications 

2:24 Disk mall systems 

2:26 Mail Program 

2:38 The competition 

2.58 Eight applications programs 

2:66 Percoms disk drives 



2:79 



Inexpensive printer 



Level II to Model 33 
Relay Protection 
Smart Terminal 
Listen to your Keyboard 
CLOAD Fix 
Faster! Faster! 
Cassette Problems II 

Video Tune-up 
A Simple Interlace 
LPRINT ■Cheap" 
lowercase & UPPERCASE 

Babybug Keypad 

Home Brew Interface 

Regulate It' 

I/O Parts Plus 

Box it in 

Build a Light Pen 

Reverse Video 

Mork and Mindy Monitor 

CTR-41 Modifications 

Homebrew Memory 

Destick Your Relay 

CLOAD Micrometer 

Testing 1.2.3 

Teletype interface 
Fuse Fix 
Relay Assistant 
Two Different Worlds 
Disaster Saver 
Heathkit Interface 
TTY Interface 
300 Baud Terminal 
Cheap Video 

PR-40 Printer Interface 
Teletype Interface 
Select nc Hard Copy 
Build Your Own Port 

The Light Pen 

Caveat Emptor 

Two BASICs are Better than 

One 

H-14. Meet the TRS-80 

Interfacing the NEC 

Spinwnter 

The Serial Clank on the 

Printer 

Mem Size.. 20K! 

Homebrew TRS-80 

Look, a Snooper/Snubber! 

Joystick City 



Disk Directory 
Software Review 
Rival Publications 
Three Mailing Programs 
Radio Shack 's Mailer 
Rival Publications II 
Software Review II 
Percom Drives 

Anadex Printer 



Strazzanno 
Rowlett 

Thurlow 
3oyd and 

Etherton 

Nestor 

Borrmann 



Hommel 

Genovese 

Cecil 

Gorsky 

Gorsky 

Vann 

Strazzanno 



Stoner and 

Barker 

Colby 

Richardson 

Shirley 

Domuret 

King 

Kitsz 

Stoner and 

Barker 

Miller 

Mullin 

Blechman 

Stoner and 

Barker 

K.tsz 

Vince 

Klungle 

Harron 

Zalnerunas 

Holder 

Kitsz 

Jackson 

Hinrich 

Ragucci 

Lukoff 

Thief 

Nelson 

Noeth 

Winter 

Jahns 

Eckert 

Brooks 

Kunk 

Rumbolt 

Loos 

Fowler and 

Murray 

Hise 

Commander 

Bickerton 

Hawkes and 

Reese 

Jackson 

Parris 

Erickson 

Friesen 
Kunzman 

O'Brien 

Stanley 
Steele 
M artel 
Suter 



Riley 
Haiien 
Hallen 
Fowler 

Buell 

Hallen 

Hallen 

Buffi ngton A 

Wagner 

June 



80 Reviews 



Books 



MANUFACTURER 



1001 THINGS W/PERSONAI. CONPUT. 

38 PROGRAMS FOR THE TRS-81 

81-US 

Mi INTRO. TO COMPUTER MUSIC 

COMPUTER GAMES FOR BUS. 4 SCHL. 

FREELANCE SOFTWARE PUBLISHING 

GUIDE TO TRS-88 INFORMATION 

INSIDE LEVEL II 

INTRO. TO TRS-81 GRAPHICS 

INTRODUCTION TO T-BL'C 

LEARN INC LEVEL II 

MICRO MILLENIUM, THE 

MOST POP. SUBROUTINES IN BASIC 

PASCAL-INTRO TO LOGICAL PGHNG. 

PER. GUIDE FOR COHPUTERISTS 

PROB SOI.V INC/ STRUCTURED PGRMN. 

PROCM TECHS FOR LEVEL11 BASIC 

PROGRAMMERS BOOK OF RULES, THE 

RECREATIONAL COMPUTING 

RUNNING MILD, THE NEXT IND. REV 

SOFTWARE BUYERS GUIDE 

SSI MICRO SOFTWARE GUIOF., THE 

SUPERMAP 

TRS-Sf DISASSEMBLED HANDBOOK 

TRS-81 INTERFACING 

TRS-88 MONTHLY NEWSLETTER 

TRS-81 TECHNICAL REFERENCE HAN 



TAB BOOKS 


EC/11 


WAYNE GREEN, INC. 


APR/81 


88 NW PUBLISHING 


FEB/88 


JOHN WILEY 4 SONS, INC. 


DEC/ Si 


WINTHROP PUBLISHERS, INC. 


SIP/ II 


KERN PUBLICATIONS 


TEB/ll 


F.E. HL'BENER 


FEB/ II 


H'JMFORD MICRO SYSTEMS 


OCT/Sf 


d: LITHIUM PRESS 


APR/lf 


DI LITHIUM PRESS 


JUL/II 


COMPUSOFT PUBLISHING 


HAY/81 


VIKING PRESS 


AUG/ II 


TAB BOOKS 


NOV/ II 


COMPUTER SCIENCE PRESS 


MAY/ II 


E . BERG 


FEB/II 


ADDISON-WELESLEY 


MAY/lf 


TANDY/RADIO SHACK 


NOV/81 


LIFETIME LEARNING PUBLICATIONS 


MAY/lf 


PEOPLES COMPUTER CO. 


FEB/II 


OSBORNE/HCGRAW HILL 


APR/81 


WALLACE ELECTRONICS 


FEB/II 


SSI 


FEB/II 


FULLER SOFTWARE 


JUL/II 


RICHCRAFT ENGINEERING 


JUN/BI 


BLACK5BURC EDUCATION SERIES 


SEP/81 


H4C COMPUTROMICS 


FEB/ 81 


TANDY RADIO SHACK 


MAY/ II 



Hardware 



MANUr ACTURER 



ACU-DATA TAPE DIGITIZER 

ANADEX PRINTER 

BETA-II 

CENTRONICS 711 PRINTER 

COMPRINT »12 

DB-ISII LINE PRINTER 

EXATRON STRINCY FLOPPY 

HIGH SPEED MODIFICATION K 

MAYDAY <S 

HICROLINE-II 

MODEL 441 PAPER TIGER 

MODEL III PRINTER 

PERCOM DISK DRIVES 

QUICK PRINTER 

RS-232 BOARD 

TC-8 CASSETTE SYSTEM 

TRENDCOM 111 PRINTER 

TRS-81 

TRS-81 MODEL II 

TRS-81 VOICE SYNTHESIZER 



Software 



MANUFACTURER 



ADVENTURE 

AIR FLIGHT SIMULATION 

ANDROID NIH 

APPLICATIONS 

AUTOK AND OEDIT 

BASIC IP 

BOOTSTRAP 

BUSINESS NAIL SYSTEM 

C BASIC 

DISK DIRECTORY 

DISK INSTRUCTION COURSE 

DISK-MOO 

DOCTOR AND FETCH 

EDAS 4.1 

EDUCATIONAL 

ESP-1 

GAMES 

GENERALIZED SUBROUTINE FACILTY 

GOMOKU 

GRAPHICS AND MISCELLANEOUS 

IDM-IV DATA BASE MANAGER 

INDIVIDUAL STUDY CENTER 

INSEQ-BI AND INSORT-81 

INTERLUDE -ULTIMATE EXPERIENCE 

ISAM 

ISAR.INFO. STORACE 4 RETRIEVAL 

KEEP IT VERSION 2.1 

LEVEL I IN LEVEL II 

LEVEL III 

LINE RENUMBERING 

HAIL/FILE LIST 

MAI LL I ST 

MATHEMATICS 

MAXI-DISX AND SBUFFLEBOARC 

MICRO MUSIC 

MICRO-OPOLY 

MMS FORTH 

HON- 2 

HORSE CODE XMIT 4 REC PGM. 

MOVING SIGNBOARD 

MUSIC COMPOSER/EDITOR 

NAME AND ADDRESS SYSTEM 

OBJREL 

PEOPLE'S PASCAL I AND II 

PLANETARY LANDER 

POOR NAN'S TEXT EDITOR 

PYRAMID 

RADEX-lf 

RADIO SHACK MAILER 

REHOOLE-PROLOAD 

RENUMBER 

RSM-2 MONITOR 

SCRIPSIT 

SORT- 1 1 

SPECIAL DELIVERY 

STEP BY STEP.. 

T-SHORT 

TRS 232 FORMATTER 

VIDEO CHECKERS 

WIN 21 

WORD-1 

WORD- IV — DISK WORD PROCESSOR 

ZSI 1AP/CND 





JUN/81 




FEB/81 




MAY/lf 


CENTRONICS INC. 


JUL/ 81 


COMPUTER PRINTERS INTERNATIONAL 


NOV/ II 




OCT/ If 


EXATRON 


MAY/ II 


SI MUTE K 


NOV/ 81 


SUN-RESEARCH INC. 


JUN/BI 


OR I DATA 


OCT/81 


INTEGRAL DATA SYSTEMS, INC. 


OCT/lf 




SEP/II 


PERCOM 


FEB/II 


CENTRONICS DATA COMPUTER CORP. 


NAR/lf 


TANDY/ RADIO SHACK 


NAR/BI 


J PC PRODUCTS 


JUN/81 


TRENDCOM 


AUG/ If 


TANDY/ RADIO SHACK 


AUG/ a I 


TANDY/RADIO SHACK 


JUL/II 


TANDY/RADIO SHACK 





SOFTWIN ASSOC/NICROSOrT 


JUN/II 


INSTANT SOFTWARE INC. 


APR/ II 


81 -NW PUBLISHING CO. 


FEB/81 


DI LITHIUM TAPES 


APR/88 


DISCOVERY BAY SOFTWARE 


FEB/II 


SMALL SYSTEMS SOFTWARE 


HAY/88 


PRACTICAL APPLICATIONS 


JUL/II 


THE BOTTOM SHELF 


FEB/II 


PNG CORP. 


APR/ 81 


MUHFORD MICROSYSTEMS 


J AN/ 81 


TANDY/RADIO SHACK 


NOV/ If 


MISOSYS 


DEC/lf 


OHICRON SOFTWARE 


J AH/81 


GALACTIC SOFTWARE 


AUG/II 


DI LITHIUM TAPES 


APR/lf 


SMALL SYSTEMS SOFTWARE 


FEB/II 


DI LITHIUM TAPES 


APR/lf 


RACET COMPUTES 


JAM/81 


DISCOVERY BAY SOFTWARE 


FEB/II 


DI LITHIUM TAPES 


APR/ 81 


MICRO ARCHITECT 


NOV/ If 


TYC SOFTWARE 


APA/8f 


S 4 M SYSTEMS, INC. 


OCT/lf 


SYNTONIC SOFTWARE 


SEP/ If 


JOHNSON ASSOCIATES 


SEP/81 


THE ALTERNATE SOURCE (TAS) 


DEC/lf 


THE ALTERNATE SOURCE (TAS) 


DEC/BI 


APPARAT SOFTWARE 


MAR/ Bl 


MICROSOFT 


MAY/lf 


SOFTWARE ASSOCIATION 


J AN/ II 


GALACTIC SOFTWARE 


FEB/ 81 


DAR SALES 


OCT/ff 


DILITHIUM TAPES 


APR/81 


PARASITIC ERG. 


MAY/81 


TANDY/RADIO SHACK 


OCT/II 


LEVEL IV PRODUCTS. INC. 


OCT/II 


MILLER MICROCOMPUTING SERVICES 


NOV/ II 


HUBERT HOWE 


FEB/81 


RICHCRAFT ENGINEERING 


JUL/81 


CIRCLE ENTERPRISES 


FEB/ If 


PFDC SOFTWARE 


JAM/II 


SMALL BUSINESS SYSTEMS GROUP 


FEB/BI 


HUBERT HOME 


FEB/BI 


COMPUTER INFORMATION EXCHANGE 


MAY/81 


INSTANT SOFTWARE INC. 


SEP/81 


DON COON 


FEB/BI 


TANDY/RADIO BRACK 


AUG/II 


IJC COMPUTER SERVICES DIV. 


JUL/ If 


TANDY/ RADIO SHACK 


FEB/II 


RACET COMPUTES 


NAR/lf 


TANDY/RADIO SMACK 


RAR/II 


SMALL SYSTEMS SOFTWARE 


APR/tf 


TANDY/ RADIO SHACK 


NAY/II 


NORTHEAST MICROWAVE 


FEB/II 


SOFTWARE ETC. 


JUL/II 


PROGRAM DESIGN INC. 


PEl/ff 


MEB ASSOCIATESD 


APR/lf 


SMALL SYSTEMS SOFTWARE 


OCT/lf 


COMPU-OUOTE 


FEB/II 


DISCOVERY BAY SOFTWARE 


FEB/II 


MICRO ARCHITECT 


JUN/81 


MICRO ARCHITECT 


NOV/ 81 


ORC-TEX INDUSTRIES 


SEP/ 61 
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2:80 


Disk database 


Floppy PIMS 


Herman 


5:134 


Block movement 


Cutting and Splicing BASIC 


Nottingham 


2:97 


Four games reviewed 


Games Review 


Hallen 


5:136 


Printing the screen 


LPVIDEO 


Powers 


2:111 


Cheap text editor 


Poor Man's Text Editor 


Blechman 


6:88 


Displaying hex conversions 


Hex Display 


Campbell 


3:58 


Three programming aids 


Useful Utilities 


Leedham 


6:111 


DECwriter LA-34 


DECwriter Driver 


Beauchamp 


3:77 


Private label compared 


Quick Printer 


Riekers 


6:132 


Displaying buffer contents 


Buffer Analysis 


Chambers 


3:134 


Level I m a Level II 


One into Two 


Wantz 


6:134 


Displaying lots ot data 


Display Formatting 


Joffe 


3:136 


Radio Shack's interlace 


RS232 


Hicks 


6:146 


Treat assembly like BASIC 


CLOAD Assembly 


Baker 


4:70 


Small systems software 


RSM-2 Monitor 


Churchill 






Language 




4:130 


CBASIC from FMG 


BASIC Review 


Knecht 


7:136 


Sound generation 


Sound X 


Baker 


4:136 


Software from dillithium 


Dillithium Tapes 


Hallen 


7:158 


Backup copy 


Displaced Programs 


Moehhs 


5:38 


Computer information exchange 


Pascal till 


Monsour 


7:160 


Tape duplication 


TCOPY 


Stevens 


5:56 


Word processors compared 


Pencil vs Scripsit 


Perry 


7:162 


TRENDCOM 100 


FORMAT 40 


Adams 


5:58 


Extra commands with Level III 


Level III 


Bobo 


8:100 


Index 


Tape Librarian 


Herold 


5:82 


Stringy floppy and BETA-80 


Disk Alternatives 


Dyk 


8:107 


Security 


The Invisible Password 


Conley 


6:92 


Six programs from four 


Applications Software 


Hallen 


8:108 


Telling zeros 


Slash Zero 


Richardson 




companies 






8:110 


Cryptology 


Code Cracker 


Morgan 


7:100 


Morse code 


Software for Hams 


Richardson 


8:118 


Security 


Software Lock 


Kelleher 


7:124 


Printer 


Centronics 730 


Frankenberg 


8:121 


Lowercase 


Lowercase with Strings 


Chepko 


8:184 


Operation 


The TRS-80 


Mac Lean 






Attached 




9:154 


Voice synthesizer 


Eloquent Eighties 


Wright 


8:122 


Modifying EDTASM 


Custom EDTASM 


Blair 


11:125 


RS pocket computer 


BASIC in the Palm ot Your 


Knecht 


8:132 


Combining machine and BASIC 


AUTOPOKE 


Kump 






Hand 




8:160 


Worksheet 


The Graphics Coder 


Racine 


12:102 


Statistical programs 


STATS 


Johnson 


8:164 


Sequential file 


Disk File Protection 


Keen and 
Dischert 


UTILITIES 






8:170 


Electric Pencil 


Penci! RS232 Driver 


Kinsey 


1:68 


Blinking cursor subroutine 


Winking Cursor 


Lovy 


8:174 


Tape index 


Cassette File 


Tallman 


1:82 


Renumber BASIC 


Basic BASIC Renumbering 


Orleff 


9:68 


Deleting spaces 


Free Space 


Cornell 


1:118 


Relocating T-Bug 


Get T-Bug High 


Rappaport 


9:76 


Keywords 


Uni-key 


Archer 


1:120 


Put EDTASM on DOS 


EDTASM on Disk 


Butler 


9:88 


Variable names 


Document Those Variables 


Noel 


1:122 


Tape analysis program 


TTape 


Stevens 


9:94 


Centronics 779 


Printer Calibration 


Rex rode 


1:134 


Increasing variables 


Extra Variables 


Clark 


9:98 


INPUT 


Versatile Input 


Wilde 


2:42 


Machine language monitor 


BABY BUG 


Kitsz 


9:146 


Index program 


Reference Library Index 


Morgan 


2:68 


Modify your monitor 


CLOAD Machine Language 


Schimclman 


9:150 


POSDIS 


Position Display 


Frost 


2:82 


Add BASIC statements 


APPEND IV 


Gerald 


9 168 


Delaying a program 


Delay Loop 


Joffe 


2:118 


Program shrinker 


Compress It' 


Powers 


9:170 


Rectangles, ellipses, boxes 


Drvine Proportions 


Cecil 


2:120 


Format printouts 


LPRINT Formatter 


McCormick 


9:173 


Moving messages 


Walking Words 


Borrmann 


2:124 


Index program names 


Disk Index 


Cheshire 


9:192 


Sort utility 


Beyond Shell Metzner 


Walker 


3:46 


Print files while running 


SPOOL A DeSPOOL 


Gentry 


9:196 


Debug monitor 


Deflower Your Debug 


Walter 


3:80 


Memory test 


Test your memory. 


Chepko 


9:202 


Scrolling 


Slow Scroll 


Lewis 


3:105 


Hard copy video 


LPRINT Routines 


Werner 


9:206 


Disk operation 


OWIKDISK 


Nazanan 


3:115 


Identify system and BASIC tapes 


Whazit? 


Penny 


9:210 


Cursor 


The Competition's Cursor 


Bishop 


3:122 


Simple text editor 


Screen Editor 


Colsher 


10:134 


USR 


Variable Scroll 


Colsher 


3:125 


Error messages in Level II 


Extra Errors 


Moses 


10:138 


IN KEYS 


Input with Insight 


Decker 


4:62 


CLOAD assembly programs 


Level II to Level 1 


Wolf 


10:202 


Commands 


Super Graphics 


Moyer 


4:68 


Adding sound effects 


Babybeep 


Kitsz 


10:207 


Multiple loading into memory 


Triple Play tor TBUG 


Johnson 


4:80 


Adding USR subroutines 


Multiple USRs 


Ventimigha 


10:210 


Maxell UD cassettes 


Take Me Beyond Your 


McTernan 


4:84 


Shortening T-BUG 


T-BUG tor II 


Curtis 






Leader 




4:90 


Putting machine- language into 


MACROPOKE Monitor 


Suter 


11:128 


Code-t racking device 


Cross Reference 


Camp 




Level II 






11:172 


Dump memory with new T-BUG 


T-BUG and Then Some 


Pax ton 


4:106 


Consolidating SYSTEM 


Service Tape 


Flat ley 


11:177 


Eliminate volume problems 


Up and Down 


Parris 




programs 






11:206 


Recapture a lost program 


Resurrect It 


Ouindry 


4:106 


Relocating KBFIX 


KBFIX Fix 


Andreasen 


11:208 


Add three loading instructions 


DOS Machine Code 


Turner 


4:133 


Designing an intelligent 


BASIC Terminal 


Noreault 






Loading Techniques 






terminal 






11:226 


PEEKing a directory 


You Can Call It Ray 


Kornfeld 


5:76 


Finding defective memory 
locations 


Babyroot 


Kitsz 


12:147 


Understanding Level II ROM 


Mysteries Ot the Level II 
ROM 


Gnswold 


5:86 


Determining quality Of input 


CLOAD Monitor 


Whaland 


12:160 


Labeling and indexing routines 


Now it's Time tor. . . Name 


Cornell 


5:96 


ASCII and hexcodes on screen 


Backup/Display 


Lindley 






That Tune 




5:114 


Speed up DOS 


FASTDOS 


Neher 


12:198 


Robotics 


COMPAC 


Romanchik 


5:116 


Designing and utilizing video 


Etch-a-Screen 


Shrum 


12:212 


EDTASM modification 


Assemble it Yourself 


Koch 




layouts 






12:257 


Controlling data pointers 


RESTORE Data Pointer 


Cecil 


5:126 


Editing hybrid programs 


Progdata 


Kelley 






Control 




5:130 


Producing sound through 


Super Sound 


Morr 


12:259 


Printing the display 


Less Is More 


Winterbauer 




recorders 






12:263 


ROM vocabulary 


Keyword List Plus 


LsQCK&f 
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^450 



INC 



THE CHESTERFIELD BUILDING 



TO ORDER CALL TOLL FREE 

1 800 321 2037 

IN OHIO CALL COLLECT (216) 566-91 

• 1801 EAST 12TH STREET. SUITE 



30 



IRiSO jia »jdic Shack 
222 • CLEVELAND. OHIO 441 1 
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NEW the MAGIC WAND- 
special ! $ 299.95 



NEW 



the most powerful, most flexible, most reliable, most useable word processing software 
available for a CP'M" based TRS-80" model II 

MAGIC WAND™ can do more work in less time with high quality than any other product you 
can buy. 

The command structure is simple, logical and complete The programs are crash-proof and 
completely reliable 

The system is supported by what users say is the best user's manual ever produced for 
microcomputer software. 

FEATURES 

• Full screen text editing • Up to 128 variables 

• Full text formatting commands • Conditional commands 

• Merging with external data files • True proportional spacing 

QUOTES FROM THE June. 1980 Microcomputing article "Super Word Processors" by Rod 

Hallen 

"Of all the word processors I have used (and that includes a dozen or more), the Magic Wand 

is the most versatile The Wand has almost all of the features of other processors, plus many 

new ones of its own. It measures up to even the word-processing software running on the 

largest mainframe computers " 

. . "Magic Wand is an outstanding example of the new levels of software that are being 

written for the small businessman, although I can't imagine a business of any size that 

couldn't use software of this quality." 

MAQIC WAND ■ will also operate on Oasis based systems 

- will operate on 16k but we recommend 32k for adequate operating memory 

- is available on 5V« and 8 diskettes 

MAQIC WAND is a copyrighted program by Small Business Applications Inc., TRS-80 is a 
registered trademark of Tandy Corp.. CP'M is a registered trademark of Digital Research Corp 



AIDS- 






by MTC 



MODEL I . . $69.95 



MODEL 



$99.95 



Introducing the latest addition to MTC s family of data management systems AIS III NO 
PROGRAMMING easy to use COMPLETE PACKAGE including demonstration application 
documentation and MAPS III (see below i 

• Up to 20 USER DEFINED FIELDS of either numeric or character type 

• CHARACTER type fields may be any length (total up to ?54 characters: 

• NUMERIC type fields feature automatic formatting rounding decimal alignment and 
validation 

• Full feature EDITING when adding or changing records 

FNTER FIELD ican t type m more characters than speotied 

BACKSPACE (delete ast charade typed RIGHT JUSTIFY FIELD contents 

DELETE FIELD contents SKIP FIELD ito next or previous field) 

RESTORE MELD contents SKIP RECORD ito next or previous record 

• SORTING of records is MACHINE CODE assisted 
200 RECORDS i40 characters' in about 5 SECONDS 
ANY COMBINATION of fields (including numerics' with each field m ascending or 

descending order 

• SELECTION of records for Loading Updating. Deleting Printing and Saving is 
MACHINE CODE assisted 

Specify up to 4 CRITERIA, each using one of 6 RELATIONAL COMPARISONS 

LOAD or SAVE selected records using MULTIPLE FILES 

Example Select records representing those people who live in the state of Col 

orado. but not in the city of Denver whose last name begins with F 

and whose income exceeds S9000 00 
Example Select records representing those sales made to XY7 COMPANY that 

exceeds $25 00. between the dates 03 15 and 04 10 

MAPS-MI (MTC AIDS PRINT SUBSYSTEM), included at no Charge 

• COMPATIBLE with AIDS II data files and AIDS subsystems 

• Move up from AIDS II and EXPAND to 20 field capability WITHOUT REENTERING 
DATA 

• AIDS-II (Model I or II) owners may UPGRADE FOR ONLY $25.00. 

'WARNING 1 This program is written in BASIC and can be listed in the normal manner 
Modification of program code is NOT RECOMMENDED due to its extreme complexity 



NEWDOS/80 

by Apparat 

Apparat's long-awaited successor to NEWDOS + 
is here! This is not an enhanced version of 
NEWDOS. but a completely new product 
Simplified DOS commands can be instantly ex 
ecuted from BASIC, even within a program, 
without disturbing the resident code. System op 
tions. such as password protection, number and 
type of disk drives. BREAK key enable disable 
and lowercase modification recognition, can be 
quickly and easily changed Five new random 
access file types allow record lengths of up to 
4096 bytes, and no FIELDing! A powerful CHAIN 
facility allows keyboard INPUT s to be read from a 
disk file An improved RENUMBER facility per 
mits groups of statements to be relocated within 
program code Diskettes may even be 
designated as RUN ONLY! Features all 
NEWDOS+ utilities (SUPERZAP 3.0. etc.) and 
much more! One MTC technical staff member 
said having NEWDOS 80 is "better than sex" 
(you'll have to judge for yourself!) Includes 
180-page instruction manual and MTC QUE 
card. 

NEWDOS/80 $ 149.95 

MTC QUE Card only $7.50 

CALL REGARDING OUR NEWDOS* UPGRADE 
PRICING. 



Complete for Model I with all utilities 
Plus exclusive MTC QUE card! 

NEWDOS + 

A Q Jj by Apparat 

40 TRACK VERSION $ 79.95 

includes REF. RENUM. SUPERZAP. EDITOR 
ASSEM . DISASSEM . DIRCHECK. and more! This 
is the original NEWDOS with all of Apparat s utility 
programs. Includes exclusive MTC QUE (Quick User 
Education) card. 

MTC QUE Card only $ 1 50 



AIDS 

CALCULATION SUBSYSTEM 
(CALCS) 

MTC's most popular AIDS subsystem. Use 
for report generation involving basic 
manipulation of numeric data. Features are: 

• User-specified page title 

• Columnar Headings 

• Optional Indentation 

• Columnar subtotals generated when 
there is a change in a user- specified 
column. 

• User-specified Columnar Totals 

• Columnar values computed using con- 
stants and/or column values 

• Balance forward calculations (Ex: Gross 
sales equals previous gross sales + sale 
amount + sales tax). 

• Use for accounting, inventory, financial 
and other numeric-based information 
systems. 

MTC CALCS $24.95 

For Model II $39.95 
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DISTRIBUTORS OF TOP QUALITY DISKS, DOS & DATA MANAGEMENT SYSTEMS 



THE TOOL BOX && 



TDAM $19.95 

For Model II $29.95 

Includes MTC QUE Card! 

Having trouble with RANDOM FILES? With MTC's 
Table-Driven Access Method (TDAM) you'll never 
fret over FIELDing again No knowledge of 
random access files is required. Insert the TDAM 
"interpreter" into any BASIC program and type in 
a few DATA statements describing the information 
in your files. TDAM does the rest! Reads and 
writes fields and records of any type (even com- 
presses a DATE field into 3 bytes!) Features 
automatic file buffer allocation deallocation, 
memory buffering, sub-record blocking de 
blocking, and handles up to 255 fields per record. 
Super fast and super simple! Complete with 
TDAM interpreter, instructions and demo pro- 
gram Requires programming experience 

DIVERGE $19.95 

For Model II $29.95 

Compares two BASIC program files, showing the 
differences between them Identifies & lists lines 
which have been inserted, deleted, & replaced 
Use for version control. 

REBUILD $19.95 

For Model II $29.95 

Reorganize programs for adding program code, 
faster execution, readability. Much more than sim- 
ple renumbering. Rearrange groups of statements 
within a program automatically updates 
references to line numbers Use with 
SUPERSEDE and MINGLE for maximum effect 



For Model 11 $ 74.9 5 

SIFTER $19.95 

For Model II $29.95 

Tw*lve in-memory high speed sorts for use in any 
BASIC program: stable, non-stable, with'without 
tags, for numeric or string data. Random File 
Sort included Some sorts written in machine 
code Includes sort subroutines, demo programs 
and instructions. Relocate as needed with 
REBUILD Requires programming experience 

SHRINK $19.95 

For Model II $29.95 

Makes Every Byte Count! Make programs 
smaller and faster! Combines lines & removes un- 
necessary code including remarks, without alter 
mg program operation. Typically reduces pro- 
gram size 25% to 40% 

SUPERSEDE $19.95 

For Model II $29.95 

A "must have' 1 for the professional programmer 
or the serious amateur Probably one of the 
greatest time-savers available. Write programs in 
shorthand - change variable names - generate 
program documentation - use with REBUILD and 
MINGLE to build new programs from old ones. 

MINGLE-II $19.95 

For Model II $29.95 

Merge up to 14 dies (Program or Data) into a 
single file Data files may be merged in ascending 
or descending sequence with the ordering based 
on a user specified comparison field. A very han 
dy utility for consolidating data files 



Single sided. Single density Soft-sectored 

DISKETTES 



Verbatim 5' • inch 

$23 



95 

Box of 10 



10 Boxes of 10 .. . (each box) $22.95 
Hard sectored (10 hole). Box ol 10 $26 95 

8-inch FLOPPIES 
Single-density Box of 10 $29 95 

Double density Box ot 10 $39 95 

PLASTIC LIBRARY CASES 
5' .-inch or 8 inch diskette case $3 00 

50 (5 ; . inch) diskette file box $29 95 

FACTORY FRESH ABSOLUTELY FIRST 

QUALITY Minimum order 1 Doi NO order limit' 



Transfer PROGRAMS and DATA 
from MODEL I to MODEL II 

TRAN-SEND 



$49 95 



by MTC 



Requires MODEL II and MODEL I with disk & 
RS 232. Simple to use not d kit nothing else to 
buy Complete with custom cable. 5 '* & 8 (lop 
pies instructions May be used over phone lines 

Custom Cable only $ 19.95 



•able lo- 



th Radio Shack" tiansfe- p'ograrmACT Oli 



Let your TRS-80' Teach You 

ASSEMBLY 
LANGUAGE 

REMSOFTs unique package. INTRODUCTION 
TO TRS-80- ASSEMBLY PROGRAMMING in 
eludes ten 45 minute lessons on audio cassettes, a 
display program for each lesson providing illustra- 
tion & reinforcement, and a text book on TRS-80 
Assembly Language Programming. Includes use- 
ful routines to access keyboard, video, printer and 
ROM. Requires 16K - Level II. Model I 

REMASSEM-1 $69.95 



Let Your TRS-80' Teach You 

ASSEMBLY LANGUAGE 
DISK I/O TECHNIQUES 

REMSOFT does it again! REMDISK 1 is a concise, 
capsulated supplement to REMASSEM 1 Package 
consists of two 45-minute lessons on audio casset- 
tes, and display programs providing illustration 
and reinforcement. Provides specific track and 
sector CO techniques, and sequential and random 
file access methods and routines 

REMDISK 1 $29.95 



The perfect supplement for your 
NEWDOS+. from IJG. Inc. 

"TRS-80 DISK AND 
OTHER MYSTERIES" 

by Harvard C. Pennington 

132 pages written in PLAIN ENGLISH packed with 
HOW TO information with details, examples and in 
depth explanations Recover lost files and direc 
tories, remove file protection, make BASIC pro 
grams unlistable. How to use SUPERZAP. recover 
from DOS errors and MORE! 

TRS-80 DISK $19.95 



All products 

guaranteed for 

replacement only. 

Prices. Specifications & 

Offerings subject to 
change without notice. 



MOST ORDERS 

SHIPPED 

WITHIN ONE 

BUSINESS DAY 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• COO 



• Add $2.50 for 
standard UPS 
shipping & handling 

• S2 00 EXTRA 
for C D 

• Ohio residents 
add 5' :°o sales tax 




^450 



TO ORDER CALL TOLL FREE 

1 800 321 2037 

IN OHIO CALL COLLECT (216)566-9130 



INC 



TRS-80 and Radio Shack are ftgisteied 
trademarks ol lard) Coip 



I THE CHESTERFIELD BUILDING ■ 1801 EAST 1 2TH STREET, SUITE 222 . CLEVELAND, OHIO 44115 



• Reader Service— see page 274 
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When It Comes To 
TRS-80 Add-on Memory... 

LOBO Has 
It All. 



LOBO DRIVES manufactures disk drive sub- 
systems designed to provide TRS-80* users 
with a wide selection of low-cost high-speed, 
efficient, mass-storge capabilities Every 
LOBO DRIVES Memory System is thoroughly 
tested and burned-m to assure reliability and 
carries LOBO's unique one year, 100% 
parts/labor warranty. 

Expansion and enhanced 
capabilities are key words in 
achieving full utilization of your 
computer system. LOBO 
DRIVES complete line of 
TRS-80 compatible disk drive 
subsystems is the ideal, cost 
effective way to provide the 
expansion capabilities you 
need to meet your system 
growth requirements 

• fflS-80 <S a trademark ol 8d< ' 
A Tandy Company 



MODEL 800/850 DUAL FLOPPY 
DISK MEMORY SYSTEM 

Complete with stylized cabinet, power 
supply, controller, interface, and cables, the 
Model 800/850 Dual Floppy Disk Memory 
System is the ideal way for the serious user 
to expand his d'sk-based TRS-80. 

• Up to 3 2 MBytes Capacity 

• Single-side, Single or Double Density 

• Double-Side. Single or Double Density 

• Complete Software Compatibility 

• High Speed Access Time 



TRS-80 MODEL II 

LOBO DRIVES makes 
expanding your TRS-80 
Model II very, very easy. 
Now you can add more 
floppy disk memory at less 
cost And. LOBO can provide 
you with up to 40 MBytes of 
fixed disk Winchester technology storage 
capacity that is completely software 
compatible to your Model II 

• Model 800-850 8-inch dual Floppy 
Systems 

• Model 1850 Dual Floppy/Fixed Disk 
Memory System 

MODEL 1850 DUAL 

FIXED/FLOPPY DISK MEMORY 

SYSTEM 

LOBO DRIVES has combined a 5 or 10 
MByte Winchester technology fixed disk and 
1 6 MByte double-sided, double-density 
floppy disk drive in one cabinet. The unique 
controller can accommodate two dual units 
Now you can have the speed and reliability of 
fixed disk, with built-in floppy back-up. 

• 5 or 10 MByte Fixed Disk Capacity 

• Up to 1 6 MByte Floppy Disk Capacity 

• Winchester Reliability 

• Software Compatible 




MODEL 400 5V4-INCH FLOPPY 
DISK MEMORY SYSTEM 

A low-cost, high performance, software- 
compatible Floppy Disk for TRS-80 Model I 
users 

• Up to 220 KBytes Capacity 

• Single/Double Density 

• Soft Sector Format 

• 298 Msec Access Time 



MODEL LX80 EXPANSION 
INTERFACE 

LOBO DRIVE'S new Mode LX80 expansion 
interface enhances system performance by 
expanding disk storage capacities bevond 40 
MBytes, adding a second serial pc- 
facihties for an additional 32 K RAM The 
LX80 permits you to achieve the maximum 
expansion capabilities of your TRS-80 

• Connects Directly to Keyboard 

• Two Serial Ports (optional) 

• One Parai'ei Expansion Port (standard) 

• One Parallel "Centronics " 
Printer Port (Standard) 

• Supports Double Density 
and 8 inch Floppies 

• Separate Port for 8-mch 
Floppies 

• Switch for Overriding 
Keyboard ROM 

• Separate Port for Fixed 
Disk Drives 

MODEL 950 DUAL 

FLOPPY/FIXED DISK 

MEMORY SYSTEM 

LOBO combines the out- 
standing capabilities of the 
latest technological break- 
through in disk drives, the 
Shugart Technology 5'/«-inch 
Micro Winchester fixed disk 
drive with the proven 
reliability of the Model 
400/450 Floppy Disk in one 
easy-to-use cabinet 

• The Storage Capacity of 16 double- 
sided, double-density Mini-Floppies 

• Built-m Floppy Disk Back-up 

• 1 70 Msec Average Access Time 

• Sealed Environment/Winchester 
Reliability 

W£ Limited A va>iab''\ ->80 



See your nearest dealer, call, or write for the complete LOBO DRiVfS story 
find out just how competitively pricea a quality drive can be 



mm 

owes 



& 



^ IS 

935 Camino Del Sur 
Goleta, California 93017 
(805) 685-4546 
Telex: 658 482 



INTERNATIONAL 



Pump Up Your TRS-80 with the ES/F Mass Storage System 




THESE FACTS SPEAK FOR THEMSELVES! 





CASSETTE 


ES/F 


MINI DISK 


SPEED 56 
(Seconds to 
toad 'Blackjack") 


6 

(5' wafer) 


6tt 


CAPACITY 

(thousands 
of bytes) 


38 

(C-20) 


64 
(75' wafer) 


59 

(TRSDGS) 


RELIABILITY 
(Designed for 
digital data?] 


NO 


YES 


YES 


SYSTEM COST 

.lit 

plus Interface] 


$60 


$250 


$800 


MEDIA COST 

(in quantities 
often] 


$3.10 

cassette 


$3.00 
wafer 


$3.20 
disk 



Let's face it. Cassette players were not 
designed to store digital data and pro- 
grams. That's why we designed a digital 
storage system using a continuous tape 
loop-, the Exatron Strinqy/ Floppy 
(ES F) ana the Wafer. There's no ex- 
pensive interface to buy -the ES/F 
comes ready to pump up your TRS-80.* 

Once your TRS-80* is pumped up by 
our ES/ F . . . you won't want to deflate 
it. We're so sure, that we offer an 
unconditional 30-day money-back 
guarantee and a one-year limited war- 
ranty. Over 2.000 TRS-80* owners have 
met the wafer . . . why don't you?«^ 



EXATRON 
STRINGY/FL 

SPEED, CAPACITY 
AND RELIABILITY 
FOR ONLY $249.5 




CALL 

OUR HOTLINE 

(800)-538-8559 

IN CALIFORNIA. 
CALL(408)-737-7111 



•TR5-80 Is a registered trademark of Tandy Corp 




on, inc. 

mercial Street 
.Calif. 94086 



